Selection.ShapeRange-Eigenschaft (Publisher)

Gibt eine ShapeRange -Auflistung, die alle Shape -Objekte im angegebenen Bereich oder der Markierung darstellt. Der Formenbereich kann Zeichnungen, Formen, Bilder, OLE-Objekte, ActiveX-Steuerelemente, Textobjekte und Legenden enthalten.

Syntax

Ausdruck verwendet werden. ShapeRange

Ausdruck Eine Variable, die ein Auswahlobjekt darstellt.

Rückgabewert

ShapeRange

Beispiel

Das folgende Beispiel legt das Füllmuster für alle Formen in der Auswahl fest. In diesem Beispiel wird davon ausgegangen, dass in der aktiven Publikation mindestens ein Shape ausgewählt ist.

Sub ChangeFillForShapeRange() 
 Selection.ShapeRange.Fill.Patterned Pattern:=msoPattern20Percent 
End Sub

Das folgende Beispiel wendet auf alle Formen in der Auswahl eine Schatten- und Füllungsformatierung an. In diesem Beispiel wird davon ausgegangen, dass in der aktiven Publikation mindestens ein Shape ausgewählt ist.

Sub SetShadowForSelectedShapes() 
 With Selection.ShapeRange 
 .Shadow.Type = msoShadow6 
 .Fill.Patterned Pattern:=msoPatternDottedDiamond 
 End With 
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.