Buchstabenbreite auslesen [VBA]

[koter]

Hallo JP,

willkommen im Forum!

Du kannst mit CQL einen ShapeRange erstellen, der alle Objekte mit einer Linienbreite unter 0.16 mm enthält (inkl. Text):

Code:

Sub unter16()
    Dim s As Shape
    Dim zuDünn As ShapeRange
    Set zuDünn = ActivePage.Shapes.FindShapes(Query:="@outline.width < {.16 mm}")
    
    For Each s In zuDünn
        s.Outline.Color.RGBAssign 255, 0, 0
    Next
End Sub

Die For Each-Schleife in diesem widerlichen VBA-Code färbt alle zu dünnen Linien rot. Objekte ohne Umriss kann man so natürlich nicht sehen.
Wie Dir die Breite eines Buchstaben bei dem Problem helfen könnte, habe ich nicht verstanden.

Viele Grüße nach Hamburg

Koter