Schriftzug in Grösse abnehmend.?.?

[norre]

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.

Hallo Koter,
gefunden und geändert und was soll ich sagen - es funktioniert :bounce:
Leerzeichen kann man sich sparen!

Wieder ein Klasse Macro von dir :daumen:

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.

Das scheint wirklich eine optische Täuschung zu sein