以编程方式创建用户窗体期间更改字体和字体大小

Question

我将以编程方式创建一个用户窗体，也可以根据需要创建其他控件，例如命令按钮，文本框，选项按钮等。

但是我无法在以编程方式创建用户窗体的开头就想出设置字体和字体大小的方法。

由于有近百个控件，因此最好在开始时设置字体，否则，以后可以手动设置字体。

我尝试了以下设置：

    Dim NewForm As Object

    Application.VBE.MainWindow.Visible = True

    Set NewForm = ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm)
    With NewForm
        .Properties("Caption") = ""
        .Properties("Width") = 400
        .Properties("Height") = 400
------> 'Properties("Font.Name") = "Arial"
        'Properties("Font.size") = 9
               'Or
------> '.Font = "Arial"
        '.font.size = 9
        .Name = "frmWebScraping"
    End With

    'code for creating other controls with no problem is neglected

End Sub

Answer 1

正确的属性是：

.Properties("Font").Value.Item("Name") = "Arial"
.Properties("Font").Value.Item("Size") = 9