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 のサポートおよびフィードバックを参照してください。