Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Renvoie ou définit une constante MsoAutoShapeType qui spécifie le type de forme automatique d’un objet Shape .
Syntaxe
expression. AutoShapeType
expression Une variable qui représente uneForme d’objet.
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, Web Form control, table et picture frame 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.