Project) (Application.EditCopyPicture 方法

將使用中檢視複製為圖片或 OLE 物件；或將使用中檢視匯出為 GIF 圖像檔案 (GIF 檔案)。

語法

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

expression 代表 Application 物件的變數。

參數

名稱	必要/選用	資料類型	描述
Object	選用	Boolean	True 是表示 如果檢視複製為 OLE 物件。 預設值為 False 。
ForPrinter	選用	Long	指定要複製的檢視的位置。 可以是下列 PjCopyPictureFor 常數之一： pjScreen 、 pjPrinter 或 pjGIF 。 如果 物件 是 True ，則會忽略 ForPrinter 。 預設值為 pjScreen 。
SelectedRows	選用	Boolean	True 是表示 如果 Project 會複製選取的列。 False 表示該程式會複製可見的所有列。
FromDate	選用	Variant	複製圖片的時幅的開頭。 如果 物件 是 True ，則會忽略 selectedrows，FromDate 。 如果指定 selectedrows，FromDate ， ToDate 不是專案會使用的時幅結束的最後一個輸入的日期。 如果，會建立負數的時間範圍，該程式會使用顯示作用中檢視最新的時幅日期。 預設值是最早出現在使用中檢視的時幅日期。
ToDate	選用	Variant	複製圖片的時幅結束。 如果 物件 是 True ，則會忽略 ToDate 。 如果指定 ToDate ， selectedrows，FromDate 不是專案會使用開頭的時幅的最後一個輸入的日期。 如果，會建立負數的時間範圍，該程式會使用最早出現在使用中檢視的時幅日期。 預設值是可見作用中檢視最新的時幅日期。
FileName	選用	String	GIF 圖像檔案的檔案名稱。 如果 pjGIFForPrinter ， FileName 是必要的。 如果 物件 是 True ，或 ForPrinter 不是 pjGIF ，則會忽略 檔案名稱 。
ScaleOption	選用	Long	會指定如何當使用中檢視的圖片大於 MaxImageWidth 乘以 MaxImageHeight (預設值 22 英吋寬 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	長 。 會指定度量單位。 預設值為 pjInches 。 可以是 PjMeasurementUnits 常數之一。

傳回值

布林值

註解

使用任何引數的 EditCopyPicture 方法會顯示 [ 複製圖片] 對話方塊。

範例

下列範例會將 Gantt Chart 檢視複製為 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 支援與意見反應。