为VBA编辑器选择字体

Question

我可以轻松地为一系列单元格选择字体，例如：

Sub PickAFont()
    ActiveCell.Font.Name = "Verdana"
End Sub

我需要一个类似的代码行来选择 VBA编辑器使用的字体：

宏录制器无法录制手动选择，Google仅返回格式Ranges

的材料

修改＃1：

我非常轻微地修改了 Vityata的代码：

Sub qwerty()
    Application.SendKeys "%TO+{TAB}{RIGHT}{TAB}{TAB}{TAB}{TAB}{TAB}"
    Application.SendKeys "Verdana {(}Western{)}"
    Application.SendKeys "{ENTER}"
End Sub

它适用于我的系统。需要进行更改以处理德语与英语菜单的差异并处理我系统上的字体名称。

注意：宏必须在VBE环境中运行，而不是从工作表功能区运行。

Answer 1

这很简单，但有效：

Option Explicit
'https://msdn.microsoft.com/en-us/library/office/ff821075.aspx

Sub SetFont()

    Application.VBE.ScreenUpdating = False

    Application.SendKeys "%XO+{TAB}{RIGHT}{TAB}{TAB}{TAB}{TAB}{TAB}"
    Application.SendKeys "VERANDA"
    Application.SendKeys "{ENTER}"

    Application.VBE.ScreenUpdating = true

End Sub

（我使用德语VBE，您应该将sendkeys更改为英语）。但它选择了Veranda。 ：）