使用Excel中的VBA将多页中的元素从一个页面复制到另一个页面

Question

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

Answer 1

诀窍是将所有控件放在第一页的框架中,然后其余部分变得简单:)

此代码将在创建并相应地对齐它们之后将控件复制Page1到.Page2Page2

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

快照