错误在VBA中的用户窗体中创建新页面

时间:2016-06-29 20:10:02

标签: vba excel-vba excel

我有一个包含多个页面的Userform,其中一个名为FXForward1,如果满足某个条件,我想在userform中创建一个名为FXForward2的新页面,该页面具有与FXForward1相同的控件。有谁知道我怎么能这样做?以下是我目前所拥有的代码的相关部分,它给出了以下错误:

运行时错误'-2147319767(80028029)':

无法粘贴控件。无效的前向引用或对未编译类型的引用

Sub UpdateForm()


Dim vbObject As Object
Dim objControl As Control
Dim OptionNumber As Integer


Set vbObject = ThisWorkbook.VBProject.VBComponents("UserForm1")
Set objControl = vbObject.Designer.Controls("MultiPage1")

' Other code here

If OptionNumber > 1 Then   
 objControl.Pages.Add ("FXForward" & OptionNumber)
 objControl.Pages(FXForward1).Controls.Copy
 objControl.Pages("FXForward" & OptionNumber).Paste  ' This line is where I get the error         

End If

UserForm1.Show

End sub

0 个答案:

没有答案