Как скопировать картинку из UserForm на лист?

[КаМММ]

Имеется UserForm
На вкладке есть рисунок Image1
Мне нужно чтобы макрос создал копию этого рисунка на листе Лист1
и прикрепил к активной ячейке А1
Сам не справился. Хелп!!!! Плииз!!!
Эксель 2003 и возможно 2007 будет.

[nerv]

нет примера, нет ответа )

[КаМММ]

Clipboard01.jpg
Вот эту картинку (трубу в имиджбоксе) надо скопировать на лист в файл прайса который будет создавать программа рассчёта воздуховодов.
Саму программу выложить не могу, по понятным причинам.
Мне достаточно будет примера, я дальше сам справлюсь (надеюсь на это)

[kalbasiatka]

А откуда эта труба взялась на форме? Может копировать не из формы а из "того места" (в хорошем смысле), где все картинки лежат?

[Hugo121]

Откуда труба - по понятным причинам нам знать не положено

[КаМММ]

Фишка в том, что труба в форме уже есть. (и разные другие картинки на других вкладках)
Программа работает уже лет пять, и всё это время дорабатывается под капризы пользователей.
Конечно можно для формирования прайса добавлять картинки из файлов в какой-нибудь директории.
Мне меньше всего хочется, чтобы пользователь меня дёргал по пустякам, типа картинки в прайс не вставляются, из за того что он сам их в другое место перенёс.
А тут уже всё в программе есть. Вот только как их выцепить не понимаю.

[nerv]

спрашиваю второй (и последний) раз: excel-файл с примером где?

мне не понятно, почему я должен его у вас выпрашивать? Не хотите получить ответ, не прикладывайте. Детский сад какой-то

[КаМММ]

Я думал для профессионалов вопрос понятный и всех делов тут одна строчка текста.
Чтонибудь типа (Абракадабра.Copy Ахалай-Махалай.Paste)
Ок вот пример

[nerv]

например, так

Private Sub CommandButton2_Click()
    Dim FileName As String
    Dim Width As Single
    Dim Height As Single
    
    FileName = Environ("TEMP") & "\img_" & Mid(Rnd, 3) & ".bmp"
    
    Height = Me.Image1.Height
    Width = Me.Image1.Width
    
    Call SavePicture(Me.Image1.Picture, FileName)
    
    Sheets(1).Shapes.AddPicture FileName, msoFalse, msoTrue, 0, 0, Width, Height
End Sub

[КаМММ]

Отлично всё работает.
Большое спасибо!!!

Тема закрыта.