Compartilhar via


Propriedade Shape.AutoShapeType (Word)

Retorna ou define o tipo de forma do objeto Shape especificado, que deve representar uma AutoForma que não seja uma linha ou um desenho de forma livre. MsoAutoShapeType de leitura/gravação.

Sintaxe

expressão. AutoShapeType

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

Comentários

Quando você altera o tipo de uma forma, ela retém o tamanho, a cor e outros atributos.

Exemplo

Este exemplo substitui todas as estrelas de 16 pontas por estrelas de 32 pontas no documento ativo.

Sub ReplaceAutoShape() 
 Dim docNew As Document 
 Dim shpStar As Shape 
 Set docNew = ActiveDocument 
 For Each shpStar In docNew.Shapes 
 If shpStar.AutoShapeType = msoShape16pointStar Then 
 shpStar.AutoShapeType = msoShape32pointStar 
 End If 
 Next 
End Sub

Confira também

Objeto Shape

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.