Здравствуйте. Пож-та, подскажите vba-код для программного копирования контролса на UserForm-е. Пример-заготовка, во вложении в процедуре CmdCopy_Click() в коде UserForm1. Заранее спасибо!
Private Sub CmdCopy_Click()
Dim i As Byte, ix%
Dim oImg As Control
Set oImg = Me.Image1
ix = 45
With Me
' Копирование контролса "Image.1", нужно скопировать на UserForm дополнительно 11 "картинок":
For i = 1 To 11
With .Controls.Add("Forms.Image.1")
.Width = oImg.Width
.Height = oImg.Height
.Left = ix
.Top = 6
.Picture = oImg.Picture
.Visible = True
ix = ix + 34
End With
Next i
End With
MsgBox "Done.", vbInformation, "CopyImage1"
End Sub
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...