我有一个包含多个页面的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