How to format the texts belonging to the titleblock

[JeniaL]

i'm trying to force a macro to set up desired font for a titleblock but seems like it doesn't work.
here's the code (changing font setting doesn't work in this macro)

Sub CATFormatTBText(textName As String, anchorPosition As String, fontSize)
'-------------------------------------------------------------------------------
'How to format the texts belonging to the titleblock
'----------------------------------------------------------------?--------------
Text.Name = textName
Text.SetFontName 0, 0, "Century Gothic (TrueType)"
Text.SetFontName 0, 0, "Century Gothic (TrueType)"
call Text.SetFontName ( 0, 0, "Century Gothic (TrueType)")
Text.AnchorPosition = anchorPosition
Text.SetFontSize 0, 0, fontSize '* A4TextFmt

End Sub

this works with another macros but with attached macro this code doesn't work.
what's the problem? two different titleblocks created from the same master macro but in one case i can control font settings through the
macro in other case i cant.

 

[ferdo]

Can you just replace SSS4 with your font Century Gothic (TrueType) in the macro ?

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

https://picasaweb.google.com/103462806772634246699/

 

[JeniaL]

already replaced but i want to force output desired font for a titleblock thru the macro. as for now no matter what font defined
in macro when i run titleblock it takes font setting from standard.