Программное копирование контролса Image1 с UserForm1 на UserForm1

Программное копирование контролса Image1 с UserForm1 на UserForm1_(?)

Пользователь

Сообщений: 131 Регистрация: 01.01.1970

17.04.2020 12:13:21

Здравствуйте.
Пож-та, подскажите vba-код для программного копирования контролса на UserForm-е.
Пример-заготовка, во вложении в процедуре CmdCopy_Click() в коде UserForm1.
Заранее спасибо!

Прикрепленные файлы

CopyImageUserForm.xlsm (24.69 КБ)

Изменено: AndyGrouve - 17.04.2020 12:14:03

Дмитрий(The_Prist) Щербаков

Пользователь

Сообщений: 14894 Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

17.04.2020 12:20:27

Видимо, что-то вроде этого:

Код

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

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...

AndyGrouve Пользователь Сообщений: 131 Регистрация: 01.01.1970	#3 17.04.2020 12:25:26 Дмитрий, То, что нужно, большое вам спасибо! Тему считаем закрытой. С уважением, Андрей