Compartilhar via

Shapes.AddShape method (Publisher)

Adiciona um novo objeto Forma que representa uma forma automática à coleção Formas 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 Esquerda, Superior, Largura e Altura , os valores numéricos são avaliados em pontos; As cadeias de carateres podem estar em todas as unidades suportadas pelo Microsoft Publisher (por exemplo, "2,5 pol").

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.

  • Last updated on