Propriedade Shape.AutoShapeType (Publisher)

Devolve ou define uma constante MsoAutoShapeType que especifica o tipo de forma automática de um objeto de Forma .

Sintaxe

expressão. 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 formas automáticas correspondem a objetos de Forma , embora a propriedade AutoShapeType para formas que não sejam do Publisher também devolva um valor. Os objetos wordArt, OLE, controlo Formulário Web, tabela e moldura de imagem devem devolver msoShapeMixed como o valor da propriedade AutoShapeType . Quadros de texto devem retornar msoShapeRectangle como sua propriedade AutoShapeType.

Exemplo

Este exemplo converte o objeto forma automática selecionado num relâmpago se for um coração e para uma estrela de 5 pontos, 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.