将新标签页复制并粘贴到 MSForms.Page答案

【问题标题】：Copy and paste a new tab page into MSForms.Page将新标签页复制并粘贴到 MSForms.Page
【发布时间】：2023-03-17 02:25:02
【问题描述】：

我在 Excel 中有一个带有 MultiPage 对象的用户窗体。我需要通过复制和粘贴现有标签页之一来动态地将更多标签页添加到 MultiPage 对象中。任何帮助将不胜感激。

谢谢

【问题讨论】：

标签： excel vba multipage

【解决方案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

快照

【讨论】：

嗨，悉达多，感谢您的回复。我刚刚做到了，它在示例代码中运行良好，但是当我将它与我的代码集成时，Excel 在 MultiPage1.Pages.Add 行重新启动。我认为这是因为我在每个现有的标签页中都有很多控件。我正在尝试使用 TabStrip 而不是 MultiPage。这样我就可以对所有标签页使用一组控件。