Visual Studio2005で、Visioのアドインを作り、
以下のコードを組み込んで、インストールすれば、
新規図面を作成するとき、デフォルト・フォント・サイズ
が14ptになります。
Private Sub myApp_DocumentCreated(ByVal doc As Visio.Document) Handles myApp.DocumentCreated
doc.GestureFormatSheet.Cells("Char.Size").FormulaU = "14 pt"
End Sub