Slide.Shapes-Eigenschaft (PowerPoint)
Gibt eine Shapes-Auflistung zurück, die alle Elemente darstellt, die auf der angegebenen Folie bzw. im Folienmaster oder Folienbereich eingefügt oder platziert wurden. Schreibgeschützt.
Syntax
Ausdruck.Shapes
expression Eine Variable, die ein Slide-Objekt darstellt.
Rückgabewert
Shapes
Hinweise
Die zurückgegebene Shapes-Auflistung kann die Zeichnungen, Shapes, OLE-Objekte, Grafiken, Textobjekte, Titel, Kopfzeilen, Fußzeilen, Foliennummern und Datum-und-Uhrzeit-Objekte auf einer Folie oder im Folienbild auf einer Notizenseite enthalten.
Beispiel
In diesem Beispiel wird ein Rechteck mit einer Breite von 100 Punkten und einer Höhe von 50 Punkten hinzugefügt. Seine obere linke Ecke ist 5 Punkte von der linken Seite und 25 Punkte vom oberen Rand von Folie 1 in der aktiven Präsentation entfernt.
Set firstSlide = ActivePresentation.Slides(1)
firstSlide.Shapes.AddShape msoShapeRectangle, 5, 25, 100, 50
In diesem Beispiel wird die Fülltextur für Form 3 auf Folie 1 in der aktiven Präsentation festgelegt.
Set newRect = ActivePresentation.Slides(1).Shapes(3)
newRect.Fill.PresetTextured msoTextureOak
Unter der Annahme, dass Folie 1 in der aktiven Präsentation einen Titel enthält, wird im folgenden Beispiel in der zweiten und dritten Codezeile der Titeltext für Folie 1 in der Präsentation festgelegt.
Set firstSl = ActivePresentation.Slides(1)
firstSl.Shapes.Title.TextFrame.TextRange.Text = "Some title text"
firstSl.Shapes(1).TextFrame.TextRange.Text = "Other title text"
Unter der Annahme, dass Form 2 auf Folie 2 in der aktiven Präsentation einen Textrahmen enthält, fügt das folgende Beispiel der Folie eine Serie von Absätzen hinzu. Beachten Sie, dass Chr(13) zum Einfügen von Absatzmarkierungen innerhalb des Texts verwendet wird.
Set tShape = ActivePresentation.Slides(2).Shapes(2)
tShape.TextFrame.TextRange.Text = "First Item" & Chr(13) & _
"Second Item" & Chr(13) & "Third Item"
Für die meisten Folienlayouts sind die ersten Shapes auf der Folie Textplatzhalter. Das folgende Beispiel erfüllt dieselbe Aufgabe wie das vorangehende Beispiel.
Set testShape = ActivePresentation.Slides(2).Shapes.Placeholders(2)
testShape.TextFrame.TextRange.Text = "First Item" & _
Chr(13) & "Second Item" & Chr(13) & "Third Item"
Siehe auch
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.