vba - 为 VBA 编辑器选择字体

Question

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

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

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

宏记录器无法记录手动选择，Google 仅返回有关格式化范围的 Material

编辑#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，您可能应该将发送 key 更改为英语)。但它选择了Veranda。 :)