VBA Excel动态表单创建

Question

问题：我有一个用Excel（开发人员模式）创建的表单。 该窗体上有一个MutliPage控件。 我能够使用VBA向多页控件添加动态添加新页面。 我不知道如何在刚创建的页面上添加任何内容-例如添加新的复选框，标签等。

我目前唯一的代码是：

DataQueryForm.DimensionTabs.Pages.Add "MyName", "My Caption"
Dim currentPage As Page
Set currentPage = DataQueryForm.DimensionTabs.Pages(0) 'this line fails

如您所见，我什至不知道如何将第一个Page转换为Page类型的变量-因此很难知道如何开始。

如何在页面上添加新复选框的任何指针，将不胜感激。 我真的很难在这方面找到体面的文档，实际上，现阶段的任何工作都会有所帮助。

谢谢

Answer 1

您需要指定MSForms.Page这样就不会出现类型不匹配的情况（Excel也具有Page对象），并且可以在添加页面时设置变量：

Dim currentPage As MSForms.Page
Set currentPage = DataQueryForm.Dimensiontabs.Pages.Add("MyName", "My Caption")