使用瀏覽打開主題
Sets or returns the object's text font name.
Applies to barcode and text objects
Objects(<object name or index>).FontName = Font
Where Font is the font name of the object's text.