將新標籤頁複製並粘貼到MSForms.Page

我在Excel中有一個用戶窗體和MultiPage對象。我需要通過複製和粘貼其中一個現有標籤頁來動態添加更多標籤頁到MultiPage對象中。任何幫助，將不勝感激。將新標籤頁複製並粘貼到MSForms.Page

謝謝

2012-04-18 Fred

爲此，您可以通過使用這段代碼

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

快照

enter image description here

來源

2012-04-18 23:12:06

亞洲時報Siddharth，您好：感謝您的答覆。我只是做了它，它在示例代碼中運行良好，但是當我將它與我的代碼集成時，Excel將在MultiPage1.Pages.Add行重新啓動。我認爲這是因爲我在每個現有標籤頁中都有很多控件。我試圖使用TabStrip而不是MultiPage。通過這種方式，我可以爲所有標籤頁使用一組控件。 – Fred 2012-04-19 17:05:37

將新標籤頁複製並粘貼到MSForms.Page

回答

相關問題