Compartilhar via

Propriedade ShapeRange.AutoShapeType (Publisher)

  • Artigo

Retorna ou define uma constante MsoAutoShapeType que especifica o tipo AutoShape de um objeto ShapeRange .

Sintaxe

expressão. AutoShapeType

Expressão Uma variável que representa um objeto ShapeRange .

Comentários

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

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

Exemplo

Este exemplo converte o objeto AutoForma selecionado para um raio se ele for um coração e uma estrela de 5 pontas caso não seja. 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.