Propriété Shape.AutoShapeType (Publisher)

Renvoie ou définit une constante MsoAutoShapeType qui spécifie le type de forme automatique d’un objet Shape .

Syntaxe

expression. AutoShapeType

Expression Variable qui représente un objet Shape .

Remarques

La valeur de la propriété AutoShapeType peut être l’une des constantes MsoAutoShapeType déclarées dans la bibliothèque de type Microsoft Office.

Les formes automatiques correspondent aux objets Shape , bien que la propriété AutoShapeType pour les formes non-Publisher retourne également une valeur. Les objets WordArt, OLE, contrôle Web Form, table et image doivent retourner msoShapeMixed comme valeur de propriété AutoShapeType . Cadres de texte doivent renvoyer msoShapeRectangle comme leur propriété AutoShapeType.

Exemple

Cet exemple montre comment convertir l’objet AutoShape sélectionné en éclair s’il s’agit d’un cœur, et en étoile à 5 points si ce n’est pas le cas. Cet exemple s'exécute correctement, vous devez disposer d'un objet AutoShape sélectionné dans la composition active.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.