Basics: Schleife durch alle Folien und Shapes in PPT

[d'r Bastler]

Moin allerseits,

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

Aufgabe war es, bestimmte Texte in Versal umzuwandeln.

lg