Freigeben über

Shape.AutoShapeType-Eigenschaft (Publisher)

  • Artikel

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-star. 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.