Font Face ?

[CyberBhai]

How can I get the font face from the font number in Visio 2003 ?

I am using Visio 2003 ActiveX Control and VS .Net 2003.

 

[JuneTheSecond]

Thisdocument.Font has Index property and Name property.

 

[JuneTheSecond]

For example
Dim ft As Visio.Font
For Each ft In ActiveDocument.Fonts
Debug.Print ft.Index, ft.Name
Next