Freigeben über

ShapeRange.AutoShapeType-Eigenschaft (Publisher)

  • Artikel

Gibt eine MsoAutoShapeType-Konstante zurück, die den AutoShape-Typ eines ShapeRange-Objekts angibt, oder legt sie fest.

Syntax

Ausdruck. AutoShapeType

Ausdruck Eine Variable, die ein ShapeRange-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 Wert für die AutoShapeType -Eigenschaft.

Beispiel

In diesem Beispiel wird konvertiert ist dies nicht das ausgewählte AutoShape -Objekt in einen Gewitterblitz ist ein Herz und einen Stern mit 5 Zacken. 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.