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