Mengentexte in Grafiktexte umwandeln

[koter]

Hallo Cappy,

willkommen im Forum!

In Deinem Makro wird die Variable sr mit einem Suchergebnis belegt.
Das Suchergebnis wird aber in der darauf folgenden For-Schleife nicht weiter verarbeitet.

In der Schleife wird stattdessen versucht die ersten hundert Objekte der aktiven Ebene umzuwandeln. Das würde beim ersten Objekt, welches kein Text ist einen Typ-Fehler verursachen.

Die Grundidee stimmt aber! Wenn du die Variable sr mit einer For-Each-Schleife verwendest, werden alle Suchergebnisse verarbeitet und Du musst nicht zählen:

Code:

Sub Macro1()
    Dim sr As ShapeRange, s As Shape
    Set sr = ActivePage.Shapes.FindShapes(Query:="@type = 'text:paragraph'")
    For Each s In sr
        s.Text.ConvertToArtistic
    Next
End Sub

Gruß

Koter