将一个新的标签页复制并粘贴到MSForms.Page

Excel中有一个UserForm与MultiPage对象。 我需要通过复制和粘贴其中一个现有标签页来dynamic添加更多标签页到MultiPage对象中。 任何帮助，将不胜感激。

谢谢

Answer 1

你可以使用这段代码来做到这一点

Option Explicit Private Sub CommandButton1_Click() '~~> Change 1 to the respective page index which you want to replicate MultiPage1.Pages(1).Controls.Copy '~~> Add a New page MultiPage1.Pages.Add '~~> Paste the copied controls MultiPage1.Pages(MultiPage1.Pages.Count - 1).Paste End Sub 

快照