Método Application.EditCopyPicture (Project)

Copia o modo de exibição ativo como uma imagem ou um objeto OLE, ou exporta o modo de exibição ativo para um arquivo de imagem GIF.

Sintaxe

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

expressão Uma variável que representa um Aplicativo objeto.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Object	Opcional	Boolean	True se o modo de exibição deve ser copiado como um objeto OLE. O valor padrão é False.
ForPrinter	Opcional	Long	Especifica onde copiar o modo de exibição. Pode ser uma das seguintes constantes PjCopyPictureFor: pjScreen, pjPrinter ou pjGIF. Se o objeto for True, ForPrinter será ignorada. O valor padrão é pjScreen.
Selectedrows	Opcional	Boolean	True se Project copia somente as linhas selecionadas. False se o programa copia todas as linhas visíveis.
FromDate	Opcional	Variant	O início da escala de tempo para a imagem copiada. Se o objeto for True, FromDate será ignorada. Se FromDate for especificado e ToDate não, o Project usará a última data inserida para o final da escala de tempo. Se que seria criar um intervalo de tempo negativo, o programa usará a última data de escala de tempo visíveis no modo de exibição ativo. O valor padrão é a primeira data de escala de tempo visíveis no modo de exibição ativo.
ToDate	Opcional	Variant	O término da escala de tempo para a imagem copiada. Se o objeto for True, ToDate será ignorada. Se ToDate for especificado e FromDate não, o Project usará a última data inserida para o início da escala de tempo. Se que seria criar um intervalo de tempo negativo, o programa usará a primeira data de escala de tempo visíveis no modo de exibição ativo. O valor padrão é a última data de escala de tempo visíveis no modo de exibição ativo.
FileName	Opcional	String	O nome de arquivo para o arquivo de imagem GIF. Se ForPrinter for pjGIF, FileName é necessário. Se o objeto for True, ou ForPrinter não é pjGIF, FileName será ignorada.
ScaleOption	Opcional	Long	Especifica como tratar uma imagem da exibição ativa se ela for maior que MaxImageWidth por MaxImageHeight (padrão de 22 polegadas por 22 polegadas). O valor padrão é pjCopyPictureKeepRange. Pode ser uma das constantes PjCopyPictureScaleOption .
MaxImageHeight	Opcional	Double	Especifica a altura máxima da imagem. O intervalo aceito de MaxImageHeight é 1 a 22 polegadas (2,54 para 55.88 centímetros). O valor padrão é 22 (polegadas).
MaxImageWidth	Opcional	Double	Especifica a largura máxima da imagem. O intervalo aceito demaximagewidth é de 1 a 22 polegadas (2,54 para 55.88 centímetros). O valor padrão é 22 (polegadas).
MeasurementUnits	Opcional	Variant	Longo. Especifica as unidades de medida. O valor padrão é pjInches. Pode ser uma das seguintes constantes PjMeasurementUnits.

Valor de retorno

Boolean

Comentários

Usar o método EditCopyPicture sem argumentos exibe a caixa de diálogo Copiar imagem.

Exemplo

O exemplo a seguir copia o modo de exibição de Gráfico de Gantt Chart como o arquivo Teste.gif e o salva na pasta raiz.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.