如何通过编程指定Excel VBA中SymbolInsert函数打开时的字体？

我已经掌握三种通过编程调用Excel VBA内置SymbolInsert功能的方法，具体代码如下：

Application.CommandBars.ExecuteMso "SymbolInsert"
' 或者
Application.CommandBars.FindControl(ID:=308).Execute
' 或者
Application.Dialogs(771).Show

目前需要解决的问题是：如何通过编程指定SymbolInsert对话框打开时默认使用的字体名称，暂时还没有找到可行的实现方案。

内容的提问来源于stack exchange，提问作者iFuraon