Método ShapeRange.SaveAsPicture (Publisher)

Salva uma faixa de uma ou mais formas como um arquivo de imagem.

Sintaxe

expressão. SaveAsPicture (FileName, pbResolution)

Expressão Uma variável que representa um objeto ShapeRange .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
FileName	Obrigatório	String	O caminho e o nome do arquivo do novo arquivo de imagem que você deseja criar. O formato gráfico no qual a imagem é salva é determinado pela extensão de nome do arquivo (como .jpg ou .gif) especificada.
pbResolution	Opcional	PbPictureResolution	A resolução na qual a imagem deve ser salva. Pode ser uma das constantes PbPictureResolution .

Exemplo

Os seguintes Microsoft Visual Basic for Applications (VBA) macro mostra como usar o método SaveAsPicture para salvar todas as formas na primeira página da publicação ativa como um arquivo de imagem. jpg.

Antes de executar esse código, substitua filename.jpg por um nome de arquivo válido e o caminho para uma pasta em seu computador em que você tem permissão para salvar arquivos.

Public Sub SaveAsPicture_Example() 
 
 Dim pubShapeRange As Publisher.ShapeRange 
 Set pubShapeRange = ThisDocument.Pages(1).Shapes.Range 
 
 pubShapeRange.SaveAsPicture "filename.jpg" 
 
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.