使用Excel中的VBA將元素從一個頁面複製到多頁中的另一個

Question

我在用戶窗體中有一個多頁面。在運行期間，用戶可以隨時選擇添加x頁數。每個頁面的元素將是相同的。我想知道是否有方法來複制這些元素，或者我是否需要爲每個新頁面重新創建這些相同的元素？如果是這樣，我該如何在頁面上指定要放置元素的位置？

Answer 1

訣竅是把所有控制在一個框架中的第一頁，然後剩下變得容易:)

此代碼將創建Page2之後，從Page1複製的控件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 

快照

Answer 2

「運行時錯誤‘-2147417949（80010108）’可以通過具有框架別處窗體上而引起的。請嘗試移除任何其它幀並重新運行