Добрый день! как удалить вызванный с методом add объект с формы? не скрыть а именно удалить, имитация delete
| Код |
|---|
Sub создать_форму()
Dim форма As Object, Line As Integer
Dim кнопка As CommandButton, рисунок As Image
Set форма = ThisWorkbook.VBProject.VBComponents.Add(3)
With форма
.Properties("Width") = 200
.Properties("Height") = 160
.Properties("Caption") = ""
End With
Set рисунок = форма.Designer.Controls.Add("forms.image.1", "Pic1", True)
Set кнопка = форма.Designer.Controls.Add("forms.CommandButton.1", "кнопка1")
With рисунок
.Height = 50
.Width = 176
.Left = 10
.Top = 10
.BackColor = &H80FF80
End With
With кнопка
.Height = 60
.Width = 100
.Left = 48
.Top = 70
.Caption = "нажать, чтобы объект сверху удалился"
.WordWrap = True
.Font.Size = 10
End With
With форма.CodeModule
Line = .CountOfLines
.InsertLines Line + 1, "Private Sub кнопка1_Click()"
.InsertLines Line + 2, "msgbox ""сюда макрос"""
.InsertLines Line + 3, "End Sub"
End With
VBA.UserForms.Add(форма.Name).Show
ThisWorkbook.VBProject.VBComponents.Remove форма
End Sub
|
