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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour