X4, Schrift vergrößern

[koter]

Hallo dobra,

Bei sehr alten Versionen gab es die 3000-pt-Grenze auch schon, man konnte den Text aber mit den Anfassern darüber hinaus skalieren.

Mit X4 ist mir das nur noch über ein Makro gelungen:

Code:

Sub SchrGrEingeben()
    On Error Resume Next
    ActiveShape.Text.FontProperties.Size = InputBox("Schriftgröße eingeben:", "")
End Sub

Versucht man, den so vergrößerten Text über die Anfasser zu skalieren, springt die Schriftgröße auf 3000 pt zurück.

Ich weiß nicht, was das „austricksen“ der Grenze per Makro für Folgen beim Druck hat.
Ich würde also die Lösungen von Blacky und Norre bevorzugen.

Gruß

Koter