Application.EditCopyPicture Method (Project)

Articolo
09/15/2015

Copies the active view as a picture or an OLE object, or exports the active view to a GIF image file.

Syntax

expression .EditCopyPicture(Object, ForPrinter, SelectedRows, FromDate, ToDate, FileName, ScaleOption, MaxImageHeight, MaxImageWidth, MeasurementUnits)

expression A variable that represents an Application object.

Parameters

Name	Required/Optional	Data Type	Description
Object	Optional	Boolean	True if the view should be copied as an OLE object. The default value is False.
ForPrinter	Optional	Long	Specifies where to copy the view. Can be one of the following PjCopyPictureFor constants: pjScreen, pjPrinter, or pjGIF. If Object is True, ForPrinter is ignored. The default value is pjScreen.
SelectedRows	Optional	Boolean	True if Microsoft Project 2010 copies only the selected rows. False if the program copies all visible rows.
FromDate	Optional	Variant	The beginning of the timescale for the copied picture. If Object is True, FromDate is ignored. If FromDate is specified and ToDate is not, Project will use the last entered date for the end of the timescale. If that would create a negative time span, the program will use the latest timescale date visible in the active view. The default value is the earliest timescale date visible in the active view.
ToDate	Optional	Variant	The end of the timescale for the copied picture. If Object is True, ToDate is ignored. If ToDate is specified and FromDate is not, Project will use the last entered date for the beginning of the timescale. If that would create a negative time span, the program will use the earliest timescale date visible in the active view. The default value is the latest timescale date visible in the active view.
FileName	Optional	String	The file name for the GIF image file. If ForPrinter is pjGIF, FileName is required. If Object is True, or ForPrinter is not pjGIF, FileName is ignored.
ScaleOption	Optional	Long	Specifies how to treat a picture of the active view if it is larger than MaxImageWidth by MaxImageHeight (default 22 inches by 22 inches). The default value is pjCopyPictureKeepRange. Can be one of the PjCopyPictureScaleOption constants.
MaxImageHeight	Optional	Double	Specifies the maximum height of the picture. The accepted range of MaxImageHeight is 1 to 22 inches (2.54 to 55.88 centimeters). The default value is 22 (inches).
MaxImageWidth	Optional	Double	Specifies the maximum width of the picture. The accepted range of MaxImageWidth is 1 to 22 inches (2.54 to 55.88 centimeters). The default value is 22 (inches).
MeasurementUnits	Optional	Variant	Long. Specifies the units of measurement. The default value is pjInches. Can be one of the PjMeasurementUnits constants.

Return Value

Boolean

Remarks

Using the EditCopyPicture method without specifying any arguments displays the Copy Picture dialog box.

Example

The following example makes a copy of the Gantt Chart view as Test.gif file and saves in the root folder.

Sub Edit_CopyPicture() 
 'Activate Gantt Chart view 
 ViewApply Name:="&Gantt Chart" 
 EditCopyPicture ForPrinter:=pjGIF, FileName:="C:\Test.gif" 
End Sub

Condividi tramite