Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Gibt eine MsoAutoShapeType-Konstante zurück, die den AutoShape-Typ eines Shape-Objekts angibt, oder legt sie fest.
Syntax
Ausdruck. AutoShapeType
expression Eine Variable, die ein Shape-Objekt darstellt.
Hinweise
Der Wert der AutoShapeType-Eigenschaft kann eine der in der Microsoft Office-Typbibliothek deklarierten MsoAutoShapeType-Konstanten sein.
AutoFormen entsprechen Shape-Objekten , obwohl die AutoShapeType-Eigenschaft für Nicht-Publisher-Shapes ebenfalls einen Wert zurückgibt. WordArt-, OLE-, Web Form-Steuerelement-, Tabellen- und Bildrahmenobjekte sollten msoShapeMixed als AutoShapeType-Eigenschaftswert zurückgeben. Textrahmen zurück MsoShapeRectangle als AutoShapeType -Eigenschaft.
Beispiel
In diesem Beispiel wird das ausgewählte AutoShape-Objekt in einen Blitz konvertiert, wenn es sich um ein Herz handelt, und andernfalls in einen 5-Punkt-Stern. Für dieses Beispiel einwandfrei ausgeführt wird benötigen Sie ein AutoShape -Objekt in der aktiven Publikation ausgewählt.
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
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.