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.