Método Shapes.AddShape (Publisher)

Adiciona um novo objeto Shape que representa um AutoShape à coleção Shapes especificada.

Sintaxe

expressão. AddShape (Tipo, Esquerda, Superior, Largura, Altura)

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Type	Obrigatório	MsoAutoShapeType	O tipo de AutoForma a ser desenhada.
Left	Obrigatório	Variant	A posição da borda esquerda da forma que representa a AutoForma.
Top	Obrigatório	Variant	A posição da borda superior da forma que representa a AutoForma.
Width	Obrigatório	Variant	A largura da forma que representa a AutoForma.
Height	Obrigatório	Variant	A altura da forma que representa a AutoForma.

Valor de retorno

Forma

Comentários

Para os argumentos Esquerdo, Superior, Largura e Altura , os valores numéricos são avaliados em pontos; cadeias de caracteres podem estar em todas as unidades com suporte do Microsoft Publisher (por exemplo, "2.5 in").

Exemplo

O exemplo a seguir adiciona um retângulo à primeira página da publicação ativa.

Dim shpShape As Shape 
 
Set shpShape = ActiveDocument.Pages(1).Shapes.AddShape _ 
 (Type:=msoShapeRectangle, _ 
 Left:=144, Top:=144, _ 
 Width:=72, Height:=144) 

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.