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, wo finde ich denn diesen Code
Im Modul habe ich nur "sgDecrement" und da nur

Sub sgaStart()
dekrForm.Show
End Sub



Nachtrag: Leerzeichen funktioniert :-) und damit schaut der Ablauf der Verkleinerung auch besser aus :-))

Also Johns Code vergessen!!!