Shapes.AddPicture (Word)

Adiciona uma figura a uma tela de desenho. Retorna um objeto Shape que representa a imagem e o adiciona à coleção CanvasShapes .

AddPicture (FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height, Anchor)

Sub NewCanvasPicture() 
 Dim shpCanvas As Shape 
 
 'Add a drawing canvas to the active document 
 Set shpCanvas = ActiveDocument.Shapes _ 
 .AddCanvas(Left:=100, Top:=75, _ 
 Width:=200, Height:=300) 
 
 'Add a graphic to the drawing canvas 
 shpCanvas.CanvasItems.AddPicture _ 
 FileName:="C:\Program Files\Microsoft Office\" & _ 
 "Office\Bitmaps\Styles\stone.bmp", _ 
 LinkToFile:=False, SaveWithDocument:=True 
End Sub

Arguments

O seguinte argumento é necessário

FileName (String) - O caminho e o nome do arquivo de figura.

Optional arguments

Os seguintes argumentos são opcionais

LinkToFile (Boolean) - True para vincular a imagem ao arquivo do qual ele foi criado. False para tornar a imagem uma cópia independente do arquivo. O valor padrão é False.

SaveWithDocument (Boolean) - True para salvar a imagem vinculada com o documento. O valor padrão é Falso.

Left (Long) - A posição (em pontos) da borda esquerda da nova figura relativa à âncora.

Top (Long) - A posição, medida em pontos, da borda superior da nova figura relativa à âncora.

Width (Long) - A largura da figura, em pontos.

Height (Long) - A altura da figura, em pontos.

Anchor - Range