Compartilhar via

Application.EditCopyPicture method (Project) (Método Application.EditCopyPicture [Projeto])

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.
ParaPrinter 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 vista ativa se for maior do que MaxImageWidth por MaxImageHeight (predefinição 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.

  • Last updated on