Partilhar via


Método Shapes.AddPicture (Excel)

Cria uma imagem de um arquivo existente. Retorna um objeto Shape que representa a nova imagem.

Sintaxe

expressão. AddPicture (FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)

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

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
FileName Obrigatório String O ficheiro a partir do qual a imagem vai ser criada.
LinkToFile Obrigatório MsoTriState O arquivo ao qual vincular. Utilize msoFalse para tornar a imagem numa cópia independente do ficheiro. Utilize msoTrue para ligar a imagem ao ficheiro a partir do qual foi criada.
SaveWithDocument Obrigatório MsoTriState Para salvar a figura com o documento. Utilize msoFalse para armazenar apenas as informações de ligação no documento. Utilize msoTrue para guardar a imagem ligada com o documento no qual é inserida. Esse argumento deverá ser msoTrue se LinkToFile for msoFalse.
Left Obrigatório Single A posição (em pontos) do canto superior esquerdo da imagem em relação ao canto superior esquerdo do documento.
Top Obrigatório Single A posição (em pontos) do canto superior esquerdo da figura em relação à parte superior do documento.
Width Obrigatório Single A largura da imagem, em pontos (insira -1 para manter a largura do arquivo existente).
Altura Obrigatório Single A altura da imagem, em pontos (insira -1 para manter a altura do arquivo existente).

Valor de retorno

Formato

Exemplo

Este exemplo adiciona uma imagem criada a partir do ficheiro Music.bmp a myDocument. A imagem inserida está ligada ao ficheiro a partir do qual foi criada e é guardada com myDocument.

Set myDocument = Worksheets(1) 
myDocument.Shapes.AddPicture _ 
    "c:\microsoft office\clipart\music.bmp", _ 
    True, True, 100, 100, 70, 70

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.