ScratchArea.Shapes-Eigenschaft (Publisher)
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. Formen
Ausdruck Eine Variable, die ein ScratchArea-Objekt darstellt.
HinwBemerkungeneise
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 die aktive Publikation mindestens eine Form enthält.
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 die aktive Publikation mindestens eine Form enthält.
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 die aktive Publikation mindestens eine Form enthält.
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.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für