Shapes.AddCanvas (Word)

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

AddCanvas (Left, Top, Width, Height, Anchor)

Sub AddInlineCanvas() 
 Dim docNew As Document 
 Dim shpCanvas As Shape 
 
 Set docNew = Documents.Add 
 
 'Add a drawing canvas to the new document 
 Set shpCanvas = docNew.Shapes.AddCanvas( _ 
 Left:=150, Top:=150, Width:=70, Height:=70) 
 shpCanvas.WrapFormat.Type = wdWrapInline 
 
 'Add shapes to drawing canvas 
 With shpCanvas.CanvasItems 
 .AddShape msoShapeHeart, Left:=10, _ 
 Top:=10, Width:=50, Height:=60 
 .AddLine BeginX:=0, BeginY:=0, _ 
 EndX:=70, EndY:=70 
 End With 
 With shpCanvas 
 .CanvasItems(1).Fill.ForeColor _ 
 .RGB = RGB(Red:=255, Green:=0, Blue:=0) 
 .CanvasItems(2).Line _ 
 .EndArrowheadStyle = msoArrowheadTriangle 
 End With 
End Sub

Arguments

O seguinte argumento é opcional

Left (Single) - A posição, em pontos, da borda esquerda da tela de desenho, relativa à âncora.

Top (Single) - A posição, em pontos, da borda superior da tela de desenho, relativa à âncora.

Width (Single) - A largura, em pontos, da tela de desenho.

Height (Single) - A altura, em pontos, da tela de desenho.

Optional arguments

The following argument is optional

Anchor (Range) - Um objeto Range que representa o texto ao qual a Canvas está vinculada. Se a âncora for especificada, a âncora está posicionada no início do primeiro parágrafo no intervalo de ancoragem. Se esse argumento for omitido, o intervalo de ancoragem será selecionado automaticamente e a tela será posicionada em relação às bordas superior e esquerda da página.