Freigeben über

Page.Shapes-Eigenschaft (Publisher)

  • Artikel

Gibt eine Shapes -Auflistung, die alle Shape -Objekte in der angegebenen Publikation darstellt. Diese Auflistung kann Zeichnungen, Formen, Bilder, OLE-Objekte, ActiveX-Steuerelemente, Textobjekte und Legenden enthalten.

Syntax

Ausdruck. Gebilde

Ausdruck Eine Variable, die ein Page-Objekt darstellt.

Hinweise

Informationen zum Zurückgeben eines einzelnen Elements einer Auflistung finden Sie unter Zurückgeben eines Objekts aus einer Auflistung.

Beispiel

Das folgende Beispiel fügt ein Rechteck zu der ersten Seite in der aktiven Publikation hinzu.

Sub AddNewRectangle() 
 ActiveDocument.Pages(1).Shapes.AddShape Type:=msoShapeRectangle, _ 
 Left:=5, Top:=25, Width:=100, Height:=50 
End Sub

Dieses Beispiel legt die Füllungsstruktur für alle Formen in der aktiven Publikation fest. In diesem Beispiel wird davon ausgegangen, dass mindestens eine Form in der aktiven Publikation vorhanden ist.

Sub SetNewTextureForAllShapes() 
 Dim shp As Shape 
 For Each shp In ActiveDocument.Pages(1).Shapes 
 shp.Fill.PresetTextured PresetTexture:=msoTextureOak 
 Next shp 
End Sub

Dieses Beispiel fügt einen Schatten zu der ersten Form in der aktiven Publikation hinzu. In diesem Beispiel wird davon ausgegangen, dass mindestens eine Form in der aktiven Publikation vorhanden ist.

Sub SetShadowForFirstShape() 
 ActiveDocument.Pages(1).Shapes(1).Shadow.Type = msoShadow6 
End Sub

Dieses Beispiel zeigt die Anzahl aller Formen auf der ersten Seite der aktiven Publikation an. In diesem Beispiel wird davon ausgegangen, dass mindestens eine Form in der aktiven Publikation vorhanden ist.

Sub CountShapesOnFirstPage() 
 MsgBox "You have " & ActiveDocument.Pages(1) _ 
 .Shapes.Count & " shapes on the first page." 
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.