Slide.Shapes-Eigenschaft (PowerPoint)
Gibt eine Shapes -Auflistung, die alle Elemente darstellt, die auf der angegebenen Folie, Folienmaster oder Folienbereich eingefügt oder platziert wurden. Schreibgeschützt.
Syntax
Ausdruck. Gebilde
Ausdruck Eine Variable, die ein Slide-Objekt darstellt.
Rückgabewert
Formen
Hinweise
Die zurückgegebene Shapes -Auflistung kann die Zeichnungen, Formen, OLE-Objekte, Grafiken, Textobjekte, Titel, Kopfzeilen, Fußzeilen, Foliennummern und Datum und Uhrzeit-Objekte auf einer Folie oder auf das 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) verwendet wird, um Absatzmarken in den Text einzufügen.
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 Formen 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.