UserForm Nesnesine Otomatik Buton Ekleme

Option Explicit

Sub Add100Buttons()
  Dim UFvbc As VBComponent
  Dim CMod As CodeModule
  Dim ctl As Control
  Dim cb As CommandButton
  Dim n As Long, c As Long, r As Long
  Dim code As String

    Dim x
    Set x = ActiveWorkbook.VBProject
    If Err <> 0 Then
  MsgBox "Your security settings do not allow this macro to run.", vbCritical
  On Error GoTo 0
  Exit Sub
    End If
 
  Set UFvbc = ThisWorkbook.VBProject.VBComponents("UserForm1")

  For Each ctl In UFvbc.Designer.Controls
    UFvbc.Designer.Controls.Remove ctl.Name
  Next ctl

  UFvbc.CodeModule.DeleteLines 1, UFvbc.CodeModule.CountOfLines

  n = 1
  For r = 1 To 10
    For c = 1 To 10
Set cb = UFvbc.Designer.Controls.Add("Forms.CommandButton.1")
With cb
  .Width = 22
  .Height = 22
  .Left = (c * 26) - 16
  .Top = (r * 26) - 16
  .Caption = n
End With

With UFvbc.CodeModule
  code = ""
  code = code &amp; "Private Sub CommandButton" &amp; n &amp; "_Click" &amp; vbCr
  code = code &amp; "Msgbox ""This is CommandButton" &amp; n &amp; """" &amp; vbCr
  code = code &amp; "End Sub"
  .InsertLines .CountOfLines + 1, code
End With
n = n + 1
    Next c
  Next r
  VBA.UserForms.Add("UserForm1").Show
End Sub

Sub ShowForm()
  UserForm1.Show
End Sub