Hallo zusammen,
ich hab eine Liste von Strings. nun möchte die Elemente dieser String in einer Folie hinzufügen.
das ist mein Cod :
das probelm hier ist, dass nur das letzte Listenelement angezeigt wird. Alsob die andere Elemente überschrieben werden.
kann mir einer dabei helfen???
Danke
ich hab eine Liste von Strings. nun möchte die Elemente dieser String in einer Folie hinzufügen.
das ist mein Cod :
Quellcode
- ' meine Folie
- Set inhaltsverzeichnis_Slide = Application.ActivePresentation.Slides.Add(2, ppLayoutText)
- inhaltsverzeichnis_Slide.Shapes.title.TextFrame.TextRange.Text = "Introduction"
- 'hier wird die Liste gefüllt
- For Each sld In ActivePresentation.Slides
- If sld.Shapes.HasTitle Then
- titels.Add (sld.Shapes.title.TextFrame.TextRange.Text)
- End If
- Next
- ' hier werdendie lestenelemente in die Folie hinzugefügt.
- For Each title In titels
- inhaltsverzeichnis_Slide.Shapes(2).TextFrame.TextRange = title
- Next
das probelm hier ist, dass nur das letzte Listenelement angezeigt wird. Alsob die andere Elemente überschrieben werden.
kann mir einer dabei helfen???
Danke