Propriedade Shape.AutoShapeType (Publisher)

Retorna ou define uma constante MsoAutoShapeType que especifica o tipo de AutoForma de um objeto Shape .

Sintaxe

mais simples. AutoShapeType

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

Comentários

O valor da propriedade AutoShapeType pode ser uma das constantes MsoAutoShapeType declaradas na biblioteca de tipos do Microsoft Office.

As AutoFormas correspondem aos objetos Shape , embora a propriedade AutoShapeType para formas não Publisher também retorne um valor. WordArt, OLE, controle Web Form, tabela e objetos de moldura de imagem devem retornar msoShapeMixed como valor da propriedade AutoShapeType . Quadros de texto devem retornar msoShapeRectangle como sua propriedade AutoShapeType.

Exemplo

Este exemplo converterá o objeto de AutoForma selecionado em um raio, se for um coração, e em uma estrela de 5 pontas, se não for. Para que esse exemplo seja executado adequadamente, você deve ter um objeto AutoShape selecionado na publicação ativa.

Sub ShapeShift() 
 
 Dim srShift As ShapeRange 
 
 Set srShift = Application.ActiveDocument.Selection.ShapeRange 
 If srShift.AutoShapeType = msoShapeHeart Then 
 srShift.AutoShapeType = msoShapeLightningBolt 
 Else 
 srShift.AutoShapeType = msoShape5pointStar 
 End If 
 
End Sub

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.