Hallo timiger
Gehe über "Tools->Makro->Makros..." in dein gewünschtes Makro hinein.
Dann musst du die gewünschte Zeile Finden, in der die Anweisung zum Texterzeugen steht.
Bei mir sieht das so aus:
-------------------
Text_04 = "XXX"
...
Set Text = DrwTexts.Add(Text_04, Position X-Wert , Position Y-Wert )
CATFormatTBText "TitleBlock_Text_Check_1" , catMiddleLeft, 3.5
-------------------
Die "3.5" ganz am schluss sind die Schriftgröße. Wenn du diesen Wert verkleinerst, müsste beim nächsten mal Aufrufen des Makros die Schrift kleiner sein.
Hoffe geholfen zu haben.
------------------
MfG
Daniel 
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP