Schriftzug in Grösse abnehmend.?.?

[norre]

Hallo tivaro,
leider funktioniert das mit X5 (noch) nicht Koter hat noch X4 und da gibst manchmal mit neuen Versionen komplikationen.
Allerdings habe ich bei John was ähnliches gefunden.(http://coreldraw.com/forums/p/26560/125225.aspx#125225)
Der Code wäre:

Sub adjustText()
Dim s As Shape, tr As TextRange, i&, dSize#

dSize = 5 '<< change this as needed

Set s = ActiveShape
Set tr = s.text.Story.Characters.All
For i = 1 To tr.Characters.count
tr.Characters(i).Size = tr.Characters(i).Size + dSize
dSize = dSize + 5
Next i

End Sub

Nur für diesen CODE
Du startes in Corel ein Dokument, dann-->Extras-->Macros-->Macromanager
dort-->Neu-->neues Macoprojekt-->im Fenster einen Namen ohne Umlaute und Leerzeichen-->Speichern
dann im Macromanager dein Projekt markieren-->Neu-->Neues Modul
Das neue Modul markieren dann rechts unten neben dem Papierkorb auf bearbeiten gehen
in das nun öffnende Fenster blinkt rechts schon der Curser, dahein fügst du den obrigen Code ein und klickst oben auf speichern.

Wenn du jetzt im Macromanager dein neues Modul markierst und auf start drückst wird deinem markierten Text der Effekt zugewiesen.
Die Größe mußt du leider direkt im Macro ändern "change this as needed" und dann wieder speichern.
Ist leider nicht so elegant wie von Koter

Wenn du Geld ausgeben willst, kannst du auch hier schauen
http://corelvba.com/index.php?pages=timg_1
Beispielvideo findest du unten unter "1. Change the size of characters of text:"
--