Hallo zusammen,
es geht um Powerpoint. ich weiß: falsches Forum!
aber doch VBA!
Problem: 128 Folien, die Textfarbe soll von weiß auf schwarz gesetzt werden.
Meine unelegante Lösung war:
sub
ActiveWindow.View.GotoSlide Index:=1
ActiveWindow.Selection.SlideRange.Shapes.SelectAll
ActiveWindow.Selection.TextRange.Font.Color.SchemeColor = ppforeground
end sub
das ganze habe ich in excel bis index:=128 "gezoben" und ins Macro kopiert.
Leider erhalte ich für Folien ohne Textfeld (mit Bild oder Media) eine Fehlermeldung, da nichts ausgewählt werden kann.
Jetzt meine Fragen: wie kann ich diese Fehlermeldung umgehen(bislang habe ich die Zeile immer gelöscht!
und wie erspare ich mir das Kopieren in excel und sage dem compie von 1 bis ende?
Bitte helft mir!
danke
Thomas