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

Ausdruck Eine Variable, die ein Selection-Objekt 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 mindestens eine Form in der aktiven Publikation 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 mindestens eine Form in der aktiven Publikation 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.