Application.EditCopyPicture メソッド (Project)

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

構文

式。 EditCopyPicture( _Object_, _ForPrinter_, _SelectedRows_, _FromDate_, _ToDate_, _FileName_, _ScaleOption_, _MaxImageHeight_, _MaxImageWidth_, _MeasurementUnits_ )

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

パラメーター

名前	必須 / オプション	データ型	説明
Object	省略可能	ブール型 (Boolean)	True を指定すると、ビューは OLE オブジェクトとしてコピーされます。 既定値は False です。
ForPrinter	省略可能	長整数型 (Long)	ビューをコピーする場所を指定します。 使用できる定数は、 PjCopyPictureFor クラスの定数である pjScreen 、 pjPrinter 、または pjGIF のいずれかです。 Object が True の場合、 ForPrinter は無視されます。 既定値は pjScreen です。
SelectedRows	省略可能	ブール型 (Boolean)	True を指定すると、Project は選択した行のみをコピーします。 False を指定すると、プログラムは表示されているすべての行をコピーします。
FromDate	省略可能	バリアント型 (Variant)	コピーされた図を配置するタイムスケール領域の開始点を指定します。 Object が True の場合、 FromDate は無視されます。 FromDate を指定し、 ToDate は指定しない場合、Project はタイムスケール領域として入力された最後の日付を使用します。 この日付が開始点の日付よりも前の日付である場合は、作業中のビューに表示されているタイムスケール領域の最後の日付を使用します。 デフォルト値は、作業中のビューに表示されているタイムスケール領域の最初の日付です。
ToDate	省略可能	バリアント型 (Variant)	コピーされた図を配置するタイムスケール領域の終了点を指定します。 Object が True の場合、 ToDate は無視されます。 ToDate を指定し、 FromDate は指定しない場合、Project はタイムスケール領域として入力された最初の日付を使用します。 この日付が終了点の日付よりも後の日付である場合は、作業中のビューに表示されているタイムスケール領域の最初の日付を使用します。 デフォルト値は、作業中のビューに表示されているタイムスケール領域の最後の日付です。
FileName	省略可能	String	GIF 画像ファイルのファイル名です。 ForPrinter が pjGIF の場合、 FileName が必要です。 Object が True の場合、または ForPrinter が pjGIF ではない場合、 FileName は無視されます。
ScaleOption	省略可能	長整数型 (Long)	作業中のビューで表示されている画像が MaxImageWidth X MaxImageHeight (既定値は 22 インチ X 22 インチ) よりも大きい場合の処理方法を指定します。 既定値は、 pjCopyPictureKeepRange です。 使用できる定数は、 PjCopyPictureScaleOption クラスの定数のいずれかです。
MaxImageHeight	省略可能	倍精度浮動小数点型 (Double)	画像の高さの最大サイズを指定します。 MaxImageHeight の許容範囲は 1 ～ 22 インチ (2.54 ～ 55.88 センチメートル) です。 既定値は 22 (インチ) です。
MaxImageWidth	省略可能	倍精度浮動小数点型 (Double)	画像の幅の最大サイズを指定します。 MaxImageWidth の許容範囲は 1 ～ 22 インチ (2.54 ～ 55.88 センチメートル) です。 既定値は 22 (インチ) です。
MeasurementUnits	省略可能	バリアント型 (Variant)	Long. 測定単位を使用します。 既定値は pjInches です。 使用できる定数は、 PjMeasurementUnits クラスの定数のいずれかです。

戻り値

ブール型 (Boolean)

注釈

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

例

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

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

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。