excel - 在 Excel 中使用 VBA 在多页中将元素从一页复制到另一页

Question

我在用户表单中有一个多页。在运行时，用户可以随时选择添加 x 个页面。每个页面的元素都是相同的。我想知道是否有办法复制这些元素，或者我是否需要为每个新页面重新创建这些相同的元素？如果是这样，我如何在页面上指定应该放置元素的位置？

Answer 1

诀窍是将所有控件放在第一页的一个框架中，然后其余的就变得容易了:)

此代码将从 Page1 复制控件至Page2创建后Page2并相应地对齐它们。

Option Explicit

Private Sub CommandButton2_Click()
    Dim l As Double, r As Double
    Dim ctl As Control

    MultiPage1.Pages.Add

    MultiPage1.Pages(0).Controls.Copy
    MultiPage1.Pages(1).Paste

     For Each ctl In MultiPage1.Pages(0).Controls
        If TypeOf ctl Is MSForms.Frame Then
            l = ctl.Left
            r = ctl.Top
            Exit For
        End If
    Next

    For Each ctl In MultiPage1.Pages(1).Controls
        If TypeOf ctl Is MSForms.Frame Then
            ctl.Left = l
            ctl.Top = r
            Exit For
        End If
    Next
End Sub

快照