Работа с рисунками средствами вба

[staniiislav]

Доброго времени суток, Ув. форумчане.
Помогите пожалуйста с решением небольшой проблемы:
1. Подскажите пожалуйста код, который бы при нажатии на любую картинку в Книге1, в листе test открывал папку pic (папку с рисунками) для изменения картинки на которую нажали.
2. есть ли возможность при изменении картинки сохранить ее оригинальный размер и местоположение? Если есть подскажите пожалуйста каким образом?
Заранее огромнейшее СПАСИБО!!!

[staniiislav]

никаких предложений нет?

[staniiislav]

Нашел вот такой код:

Function GetFileName(Optional ByVal Title As String = "Выберите файл для обработки", _
                     Optional ByVal InitialPath, _
                     Optional ByVal MyFilter As String = "Фото (*.jpg*),") As String
    ' функция выводит диалоговое окно выбора папки с заголовком Title,
   ' начиная обзор диска с папки InitialPath
   ' возвращает полный путь к выбранной папке, или пустую строку в случае отказа от выбора
   If Not IsMissing(InitialPath) Then
        On Error Resume Next: ChDrive Left(InitialPath, 1)
        ChDir InitialPath    ' выбираем стартовую папку
   End If
    res = Application.GetOpenFilename(MyFilter, , Title, "Открыть")  ' вывод диалогового окна
   GetFileName = IIf(VarType(res) = vbBoolean, "", res)    ' пустая строка при отказе от выбора
End Function

Sub ПримерИспользования_GetFileName()

    ИмяФайла = GetFileName("Заголовок окна", ThisWorkbook.Path)   ' запрашиваем имя файла
   ' ===================== другие варианты вызова функции =====================
   ' текстовые файлы, стартовая папка не указана
   '       ИмяФайла = GetFileName("Выберите текстовый файл", , "Текстовые файлы (*.txt),")
   ' файлы любого типа из папки "C:\Windows"
   '       ИмяФайла = GetFileName(, "C:\Windows", "")
   ' ==========================================================================

    If ИмяФайла = "" Then Exit Sub    ' выход, если пользователь отказался от выбора файла
    MsgBox "Выбран файл: " & ИмяФайла, vbInformation
End Sub

С данного сайта: http://excelvba.ru/code/GetFileOrFolderPath
Как его применить к активному рисунку (чтобы при выборе новой картинки с диалогового окна, изменялась активная картинка?)
Спасибо

[staniiislav]

1. подскажите пожалуйста кусок кода, для вот такой вот вставки:
прикрепил 333.jpg
Как это кодом сделать?
2. если я изменяю картинку как на скрине, а картинка другого размера, можно чтобы картинку которую мы выбираем, "вписать" по размерам и масштабам в уже существующую картинку (ту картинку которую мы изменяем).

[staniiislav]

Ну может кто знает как программно изменить =ВНЕДРИТЬ("Forms.Image.1";"") (то есть, изменить картинку (Picture) ? Ну очень нужно!
Спасибо!

[staniiislav]

Или подскажите как переделать вставку картинки:
ActiveSheet.Pictures.Insert ("картинка.jpg")
На изменение???????

[staniiislav]

Уже почти нашел все что нужно!
Dim objexcel As Excel.Application
Set objexcel = Excel.Application
Set objexcel.Sheets(1).Image1.Picture = LoadPicture(GetFileName)
единственный вопрос остался, как определить имя выбранной картинки Image1?
То есть, как программно определить при нажатии на картинку ее имя?

[staniiislav]

Нашел решение, тему можно закрывать.
Спасибо за внимание