More about Visio document fonts

Back in 2007, I wrote an article about Visio Document fonts ( see Displaying Document Fonts ), but I did not notice the importance of the screenshot that shows the fonts with the IDs from 10 through to 20, and a few others. These fonts were not installed, and had been substituted by Calibri. So, I have now written some code, this time in C#, that lists all of the Visio document fonts, and indicates if they are installed in Windows.
I use LINQPad for a lot of these ad-hoc queries now, rather than VBA, so please visit my fellow Visio MVPS blog at Getting Started With C# in LINQPad with Visio to find out more about this.

I imported the following namespaces:

System.Drawing
System.Drawing.Text
Visio=Microsoft.Office.Interop.Visio

First, I created a simple class, DocFont:

public class DocFont
{
 public int ID { get; set;}
 public string Name { get; set;}
 public short CharSet { get; set;}
 public bool Installed { get; set;}
}

Then I created the Main():

void Main()
{
 var vApp = MyExtensions.GetRunningVisio();
 if (vApp.ActiveDocument == null) return;
 Visio.Document doc = vApp.ActiveDocument;
 if (doc == null) return;
 FontFamily[] fontFamilies;
 InstalledFontCollection installedFontCollection = new InstalledFontCollection();
 // Get the array of FontFamily objects.
 fontFamilies = installedFontCollection.Families;
 List<DocFont> fonts = new List<UserQuery.DocFont>();
 foreach (Visio.Font fnt in doc.Fonts)
 {
  fonts.Add(new DocFont() {
   ID=fnt.ID,
   CharSet=fnt.CharSet,
   Name=fnt.Name,
   Installed= fontFamilies.Any(f => f.Name.Equals(fnt.Name) )
   });
 }
 foreach (FontFamily fnt in fontFamilies)
 {
  if (!fonts.Any(f => f.Name.Equals(fnt.Name) == false))
     {
   fonts.Add(new DocFont()
   {
    Name = fnt.Name,
    Installed = true
   });
  }
 }
 fonts.OrderBy(f => f.Name).Dump("Visio document fonts");
}

This produces a table like this:

By the way, I tested exporting a Visio document with all of the document fonts to SVG and PDF using Visio Pro for Office 365. They all rendered fine, apart from those fonts which are not installed in my English Windows 10.
I have asked Microsoft why Visio documents include the names of fonts that are not normally installed by Windows. I have not had an answer yet ….