Hi,
ich habe eine Liste(collection) mit mehrere Elementen. nun möchte ich pro Folie nur 12 Listenelemente hinzufügen. dann nächste Folie und wieder.
mein Code ist im mom so:
das problem an diesem Code ist, dass die zweite For schleife immer die selbe Elemente hinzufügt. ich möchte aber die elmenete hinzufügen die noch vorhanden sind.
Ich hoffe ich könnte das Problem verdeutlichen.
THX
ich habe eine Liste(collection) mit mehrere Elementen. nun möchte ich pro Folie nur 12 Listenelemente hinzufügen. dann nächste Folie und wieder.
mein Code ist im mom so:
Quellcode
- For Each sld In inhaltsverzeichnis_Slides
- Set inhaltsverzeichnis_Shape_Text = sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 40, 110, 650, 140)
- For i = 1 To 12
- With inhaltsverzeichnis_Shape_Text.TextFrame.TextRange
- .Font.Name = "Arial"
- .Font.Size = 13
- .Lines.ParagraphFormat.SpaceWithin = 1.5
- .Text = .Text & vbNewLine & titelsAfter(i) & " " & sldNumbers(i)
- End With
- Next i
- Next sld
das problem an diesem Code ist, dass die zweite For schleife immer die selbe Elemente hinzufügt. ich möchte aber die elmenete hinzufügen die noch vorhanden sind.
Ich hoffe ich könnte das Problem verdeutlichen.
THX