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