Buchstabenbreite auslesen [VBA]

[koter]

Hallo JP,

Gegeben ist ein Textobjekt "MyShape". Es enthält den Text "ABC". Ich möchte die Breite des Buchstaben "B" ermitteln.

wie ich oben schon erwähnt habe, mit einer temporären Ebene oder einfach mit einem temporären, in Kurven konvertierten Objekt:

Code:

Sub BBreite()
    Dim TXT As Shape, TempS As Shape
    Dim Breite As Double
    Set TXT = ActiveLayer.Shapes("MyShape")
    Set TempS = TXT.Duplicate
    TempS.Text.Story = TXT.Text.Story.Characters(2)
    TempS.ConvertToCurves
    Breite = TempS.SizeWidth
    Debug.Print Breite
    TempS.Delete
End Sub

Nur aus Neugier: Wie kannst Du aus der Breite des ganzen Zeichens die schmalsten Elemente desselben ermitteln?

Gruß

Koter