VBA - 実行時ではなくデザインモードでUserFormにフレームをプログラムで追加する

Question

既存のフォーム（testFORM）を編集する必要があります... 80枚の写真を追加する必要があります。

私は実行時には作成したくないのですが、私のフォームを永久に変更したいのです。ここで

はModule1の内のコードです：VBAの拡張を使用して

Sub addImage() 
Dim imgNew As Object 
Dim imgNewCounter As Integer 
For imgNewCounter = 1 To 80 
    Set imgNew = testFORM.Controls.Add("Forms.Image.1") 
    With imgNew 
     .Name = "Image" & imgNewCounter 
     .Left = 24 
     .Width = 20 
     .Height = 10 
     .BackColor = RGB(26, 25, 50) 
     .Top = 5 
    End With 
Next 
End Sub 

Answer 1

、次の操作を行うことができます....

Sub CreateTextBox() 


Dim vbp As VBProject 
Dim vbc As VBComponent 

Set vbp = Application.VBE.ActiveVBProject 
Set vbc = vbp.VBComponents("Userform1") 

vbc.Designer.Controls.Add "forms.textbox.1", "newcontrol" 


End Sub