ник: pashulka
Private Sub AddUserForm()
With ThisWorkbook.VBProject.VBComponents.Add(3)
.Properties("Width") = 200
.Properties("Height") = 100
With .Designer.Controls.Add("Forms.Label.1")
.SpecialEffect = 3
.Caption = "Ваша форма"
.TextAlign = 2
.Top = 30
.Left = 60
End With
VBA.UserForms.Add(.Name).Show
End With
End Sub
|
P.S. Начиная с MS Excel XP - Серсис/Макрос/Безопасность/Надежные источники/установить флажок Доверять доступ к Visual Basic Project