ein kleiner Einstieg in PPT-VBA, vom dem ich bisher so viel Ahnung habe, wie von 'ner Mondlandung ...
Code: Alles auswählen
Option Explicit
Public Sub AutoFormat()
Dim sld As Slide, shp As Shape, i As Integer, s As Integer, aStrings()
aStrings = Array("Napfnase", "Topfgesicht")
For s = 1 To ActivePresentation.Slides.Count
For i = 0 To UBound(aStrings)
For Each shp In ActivePresentation.Slides(s).Shapes
If shp.TextFrame.TextRange = aStrings(i) Then
shp.TextFrame.TextRange = UCase(shp.TextFrame.TextRange)
End If
i = i + 1
Next
Next i
Next s
End Sub
lg