Application.EditCopyPicture 方法 (Project)

将活动视图作为图片或 OLE 对象进行复制，或者将活动视图导出到 GIF 图像文件中。

语法

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

expression：表示 Application 对象的变量。

参数

名称	必需/可选	数据类型	说明
Object	可选	Boolean	如此 如果应将视图复制为 OLE 对象。 默认值为 False 。
ForPrinter	可选	Long	指定视图复制到的位置。 可以是下列的 PjCopyPictureFor 常量之一: pjScreen 、 pjPrinter 或 pjGIF 。 如果 对象 为 True ，则忽略 ForPrinter 。 默认值是 pjScreen 。
SelectedRows	可选	Boolean	真 当项目复制选定的行。 假 如果程序将复制所有可见的行。
FromDate	可选	Variant	所复制图片的时间刻度的开始处。 如果 对象 为 True ，则忽略 FromDate 。 如果指定了 FromDate 且 ToDate 不可，项目将使用的时间刻度的结束最后一次输入的日期。 如果此操作导致了负时间段，该程序将使用活动视图中可见的最晚时间刻度日期。 默认值为活动视图中可见的最早时间刻度日期。
ToDate	可选	Variant	所复制图片的时间刻度的结束日期。 如果 对象 为 True ，则忽略 ToDate 。 如果指定 ToDate 并不是 FromDate ，项目将使用上次输入的日期时间刻度的起始位置。 如果此操作导致了负时间段，该程序将使用活动视图中可见的最早时间刻度日期。 默认值为活动视图中可见的最晚时间刻度日期。
FileName	可选	String	GIF 图像文件的文件名。 如果 ForPrinter 是 pjGIF ， 文件名 是必需的。 如果 对象 为 ，则返回 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 常量之一。

返回值

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。