Schriftzug in Grösse abnehmend.?.?

[koter]

Hallo Norre,

Nochmal Danke für deine Mühe.
Vielleicht kann man ein Leerzeichen als letztes Zeichen verwenden um das Problem zu umgehen.

Vielleicht würde es, in den Versionen über X4, auch funktionieren, wenn man in der SUB sga(), in der Zeile ZeichenAnz = ActiveShape.Text.Story.Characters.Count - 1, die - 1 am Ende entfernt. Da kann ich leider nur raten.

Und Du hast Recht, obwohl die Schriftgröße linear abnimmt, sieht es aus, als ob sie nach der kleinen Seite schneller abfällt.
Bei unterschiedlichen Schriftarten wirkt sich der Effekt unterschiedlich aus.
(Ein altgedienter Typograf würde diese Art der Textgestaltung wohl nicht anwenden.)

Gruß

Koter