Mengentexte in Grafiktexte umwandeln

[cappy0815]

So ...

inzwischen habe ich mir ein wenig Makro-Wissen zusammen gegoogelt.
Dabei herausgekommen ist dies:

Code:

Sub Macro1()
              
    Set sr = ActivePage.Shapes.FindShapes(Query:="@type = 'text:paragraph'")
    For I = 1 To 100
        ActiveLayer.Shapes(I).Text.ConvertToArtistic
    Next I
    
End Sub

Grundsätzlich funktioniert es auch. Allerdings ist 100 als Endwert natürlich viel zu hoch oder zumindest in 99% der Fälle nicht richt.
Ich würde also gerne erstmal zählen, wie viele Grafiktexte ich habe, und dan das Ergebnis I setzen.
Allerdings kann google mir bei Makro-Zählen auch nicht helfen.

Cappy