次の方法で共有


EditCopyPicture メソッド

重要

この記事は機械翻訳されています。機械翻訳についての「免責事項」をお読みください。この記事の英語版を参照するには、ここをクリックしてください。

作業中のビューを図または OLE オブジェクトとしてコピーします。または、作業中のビューを GIF イメージ ファイルにエクスポートします。

Syntax

.EditCopyPicture(Object, ForPrinter, SelectedRows, FromDate, ToDate, FileName, ScaleOption, MaxImageHeight, MaxImageWidth, MeasurementUnits)

Application オブジェクトを表す変数です。

パラメーター

名前

必須かどうか

データ型

説明

Object

オプション

ブール型

True の場合は、ビューは OLE オブジェクトとしてコピーする必要があります。既定値は False です。

ForPrinter

オプション

長整数型

ビューをコピーする場所を指定します。PjCopyPictureFor の次の定数のいずれかになります: pjScreen、pjPrinter、または pjGIF。ObjectTrue の場合は、ForPrinter は無視されます。既定値は pjScreen です。

SelectedRows

オプション

ブール型

Microsoft Project 2010 選択した行のみをコピーする場合は、True。False の場合は、プログラムが表示されているすべての行をコピーします。

FromDate

オプション

Variant (バリアント型)

コピーした画像のタイム スケールの開始します。FromDate は ObjectTrue の場合は、無視されます。FromDate が指定されている ToDate でない場合は、プロジェクトを最後に入力された日付のタイム スケール領域の最後を使用します。負の時間間隔を作成する場合は、プログラムは最新タイム スケールの日付を作業中のビューに表示を使用します。既定値は、作業中のビューに表示されるタイム スケール日付です。

ToDate

オプション

Variant (バリアント型)

コピーした画像のタイム スケールの終了日。ToDate は ObjectTrue の場合は、無視されます。ToDate が指定されている FromDate でない場合は、プロジェクトは、最後に入力された日付のタイム スケール領域の先頭を使用します。負の時間間隔を作成する場合は、プログラムは、作業中のビューに表示されるタイム スケール日付を使用します。既定値は、作業中のビューに表示されるタイム スケール日付です。

FileName

オプション

文字列型

GIF イメージ ファイルのファイル名。ForPrinterpjGIF ならば、FileName が必要です。ObjectTrue、または ForPrinterpjGIF ではない場合、FileName は無視されます。

ScaleOption

オプション

長整数型

MaxImageWidthMaxImageHeight でよりも大きい場合は、作業中のビューの図を処理する方法を指定します (既定の上限は 22 インチ x 22 インチ)。既定値は pjCopyPictureKeepRange です。PjCopyPictureScaleOptionの定数のいずれかにできます。

MaxImageHeight

オプション

倍精度浮動小数点型

画像の高さの最大値を指定します。MaxImageHeight の許容範囲は 1 ~ 22 インチ (2.54 に 55.88 センチメートル) です。既定値は 22 (インチ) です。

MaxImageWidth

オプション

倍精度浮動小数点型

画像の最大の幅を指定します。MaxImageWidth の許容範囲は 1 ~ 22 インチ (2.54 に 55.88 センチメートル) です。既定値は 22 (インチ) です。

MeasurementUnits

オプション

Variant (バリアント型)

Long。測定の単位を指定します。既定値は pjInches です。PjMeasurementUnitsの定数のいずれかにできます。

戻り値

Boolean

引数をまったく指定しない状態で EditCopyPicture メソッドを実行すると、[図のコピー] ダイアログ ボックスが表示されます。

使用例

次の例は、[ガント チャート] ビューのコピーを Test.gif ファイルとして作成してルート フォルダーに保存します。

Sub Edit_CopyPicture()
   'Activate Gantt Chart view
    ViewApply Name:="&Gantt Chart"
    EditCopyPicture ForPrinter:=pjGIF, FileName:="C:\Test.gif"
End Sub

注意

機械翻訳についての免責事項: この記事の翻訳はコンピューター システムによって行われており、人間の手は加えられていません。マイクロソフトでは、英語を話さないユーザーがマイクロソフトの製品、サービス、テクノロジに関するコンテンツを理解するのに役立てるため、こうした機械翻訳を提供しています。記事は機械翻訳されているため、用語、構文、文法などに誤りがある場合があります。