Propriété ShapeRange.AutoShapeType (Publisher)

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

Syntaxe

expression. AutoShapeType

Expression Variable qui représente un objet ShapeRange .

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 valeur de la propriété AutoShapeType.

Exemple

Cet exemple convertit l'objet AutoShape sélectionné en un éclair s'il s'agit d'un cœur et en une étoile à 5 branches si elle n'est pas. 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.