Método Shapes.AddCanvas (Word)

  • Artigo

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

Sintaxe

expressão. AddCanvas( _Left_ , _Top_ , _Width_ , _Height_ , _Anchor_ )

expressão Obrigatório. Uma variável que representa um objeto Shapes .

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Esquerda Obrigatório Single A posição, em pontos, da borda esquerda da tela de desenho, em relação à âncora.
Top Obrigatório Single A posição, em pontos, da borda superior da tela de desenho, em relação à âncora.
Width Obrigatório Single A largura, em pontos, da tela de desenho.
Height Obrigatório Single A altura, em pontos, da tela de desenho.
Âncora Opcional Variantes Um objeto Range que representa o texto ao qual a tela 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.

Valor de retorno

Forma

Exemplo

O exemplo a seguir adiciona uma tela de desenho a um novo documento e formata a tela de desenho de forma que ela fique alinhada com o texto e, em seguida, adiciona duas formas à tela e formata as propriedades de linha e de preenchimento.

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

Confira também

Objeto da coleção Shapes

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.