Hallo,
ich programmiere gerade eine UserForm. Der Benutzer soll in zwei InputBoxen die Nummern der Slides eingeben, bei denen mit dem Formatieren angefangen bzw. aufgefhoert werden soll.
Hier der bisherige Code:
Sub...()
Dim i as integer, Anfang as integer, Ende as integer
Die erste TextBox: Anfang = AlignTextBoxes.Anfangsslide.Value
Die zweite TextBox Ende = AlignTextBoxes.Endslide.Value
For i = ActivePresentation.Slides(Anfang). To ActivePresentation.Slides(Ende)
Ausgespuckt werden abwechselnd Fehlermeldungen "Run Time Error 438" und "Item Nr3 nicht gefunden (wenn in der ersten Textbox 3 eingetragen wurde.
Waere fuer Hilfe sehr dankbar!!
Gr.
Intern 2011
|