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 verwendet werden. AutoShapeType
expression Eine Variable, die ein Shape-Objekt darstellt.
Hinweise
Der Eigenschaftswert AutoShapeType kann eine der MsoAutoShapeType-Konstanten sein, die in der Microsoft Office Typbibliothek deklariert sind.
AutoShapes entsprechen Shape-Objekten , obwohl die AutoShapeType-Eigenschaft für Nicht-Publisher-Shapes ebenfalls einen Wert zurückgibt. WordArt-, OLE-, Webformular-Steuerelement-, Tabellen- und Bilderrahmenobjekte sollten msoShapeMixed als ihren 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 kein Herz ist, und in einen 5-Punkt-Stern, wenn es sich nicht ist. 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.