Выбрать и вставить картинку в Excel

[Iraveyron]

Всем доброго времени суток!

У меня такая проблема. Нужно написать программу, которая будет работать при нажатии кнопки "Commandbutton".
При нажатии этой кнопки должно появляться окно (папка), в которой находятся графики и картинки в формате .jpg.
При выборе/нажатии на картинку, она атоматически вставляется в Excel. И картинка должа иметь строго ограниченные размеры (ее надо вставить в предусмотренное для нее поле).

Помогите, пожалуйста!

PS: я сама вот только кнопку сделать смогла и что дальше, даже не знаю...

[EducatedFool]

я сама вот только кнопку сделать смогла и что дальше, даже не знаю...

Кнопку-то и мы можем сделать...
А вот догадаться, где должна располагаться картинка (да и кнопка тоже), уже сложнее (кнопка с картинкой могут быть на форме, или на листе Excel)

картинка должа иметь строго ограниченные размеры

Где брать эти размеры? Или сжимать картинку до размеров ячейки, в которую она будет вставляться?

И, вообще, зачем это всё надо?

=============== добавлено позже ====================

У меня на сайте есть готовая программа для вставки изображений на лист Excel:
http://excelvba.ru/programmes/PastePictures

Надстройка позволяет искать в выбранной папке изображения, основываясь на содержимом ячеек таблицы Excel, и производить вставку найденных изображений в соседние ячейки (или в примечания к этим ячейкам).

Кроме того, надстройка умеет скачивать изображения по ссылкам, сохраняя загруженные изображения в заданной папке, и вставлять картинки в примечания к ячейкам.




Особенности надстройки вставки изображений:

• загрузка изображений по ссылкам (обычная гиперссылка, просто текст ссылки - URL, формула =ГИПЕРССЫЛКА(), и т.п.)
• поиск картинок в подпапках заданной папки (глубина поиска по подпапкам не ограничена)
• установка выбранного пользователем размера для вставляемых изображений
• отображение состояния поиска и вставки изображений (прогресс-бар)
• вывод результатов обработки таблицы (сколько изображений вставлено, сколько не найдено)
• добавление гиперссылок к вставляемым изображениям (по щелчку на картинке открывается исходный файл)
• 2 режима поиска файлов - по точному совпадению имени файла, и по началу имени файла-изображения
• 2 режима вставки картинок - подгонка размеров под ячейку, или соблюдение пропорций исходного изображения
• вывод количества файлов в выбранной папке
• возможность выбора столбца с названиями файлов, и указания номера столбца для вставляемых изображений
• возможность вставки изображений в комментарии к ячейкам

Запуск вставки изображений выполняется из меню программы (на панели инструментов)

Надстройка вставки картинок в Excel теперь поддерживает обновления - поэтому отныне надстройка будет регулярно получать новые полезные функции.

Новый функционал будет добавляться в надстройку по мере поступления ваших пожеланий.

[Iraveyron]

Кнопка должна располагаться на листе Excel, картинка там же.

Для чего все это нужно:
работаю в фирме, занимающейся новыми разработками (сталестроение), тут проводятся испытания, и все отчеты сделаны в таблице Excel (к ним и относятся картинки)
На первом листе в папке форма с данными, на втором листе форма (с заголовком и данными фирмы) для вставки картинки.....
Картинка должна "покрывать" несколько ячеек.

[EducatedFool]

Может, такой вариант подойдёт?

Здесь при нажатии кнопки макрос сам ищет подходящие картинки в текущей папке (и её подпапках), и выводит найденные картинки в ячейку справа:

(добавлено спустя несколько месяцев)
Вот вариант для поиска картинок в текущей папке (без просмотра подпапок)
Ограничение на 6 значащих цифр снято.
(щелкните на картинке ниже для перехода на страницу сайта с надстройкой)

===================================

У меня на сайте есть готовая программа для вставки изображений на лист Excel:
http://excelvba.ru/programmes/PastePictures

Надстройка позволяет искать в выбранной папке изображения, основываясь на содержимом ячеек таблицы Excel, и производить вставку найденных изображений в соседние ячейки (или в примечания к этим ячейкам).

Кроме того, надстройка умеет скачивать изображения по ссылкам, сохраняя загруженные изображения в заданной папке, и вставлять картинки в примечания к ячейкам.

Особенности надстройки вставки изображений:

• загрузка изображений по ссылкам (обычная гиперссылка, просто текст ссылки - URL, формула =ГИПЕРССЫЛКА(), и т.п.)
• поиск картинок в подпапках заданной папки (глубина поиска по подпапкам не ограничена)
• установка выбранного пользователем размера для вставляемых изображений
• отображение состояния поиска и вставки изображений (прогресс-бар)
• вывод результатов обработки таблицы (сколько изображений вставлено, сколько не найдено)
• добавление гиперссылок к вставляемым изображениям (по щелчку на картинке открывается исходный файл)
• 2 режима поиска файлов - по точному совпадению имени файла, и по началу имени файла-изображения
• 2 режима вставки картинок - подгонка размеров под ячейку, или соблюдение пропорций исходного изображения
• вывод количества файлов в выбранной папке
• возможность выбора столбца с названиями файлов, и указания номера столбца для вставляемых изображений
• возможность вставки изображений в комментарии к ячейкам

Запуск вставки изображений выполняется из меню программы (на панели инструментов)

Надстройка вставки картинок в Excel теперь поддерживает обновления - поэтому отныне надстройка будет регулярно получать новые полезные функции.

Новый функционал будет добавляться в надстройку по мере поступления ваших пожеланий.

[Iraveyron]

Это, конечно, тоже вариант, и очень даже красивый!

Но проблема в том, что мне на надо все картинки одновременно (а картинок в папке будет много), и мне надо именно окно для выбора картинок, потому что мне надо вставить только одну картинку и я должна сама выбрать какую...
Пример уже с вписаным названием не подойдет =(
Пример с окном для набора названия картинки, тоже не подойдет (директор так не хочет, наверно боится ошибиться при наборе)

[EducatedFool]

мне надо именно окно для выбора картино

Это сделать недолго. Но нет желания 10 раз переделывать...

Куда вставлять картинку? В предварительно выделенные ячейки?
К примеру, Вы выделили диапазон ячеек d2:g7, нажали кнопочку, выбрали файл JPG, нажали ОК в диалоговом окне выбора файла, и рисунок вставился как раз в вылеленную область - левый верхний угол рисунка оказался в ячейке d2, а правый нижний - в ячейке g7.
Так надо?

С какой папки начинать обзор рисунков? С той, в которой находится книга Excel?
Все рисунки имеют формат JPG?

[Iraveyron]

Так, становится уже лучше!

Как по кнопке вызвать окно обзора рисонков я нашла, и программа вставляет рисонок в выбранную ячейку (А5)

Private Sub CommandButton1_Click()
Dim datei As String

datei = Excel.Application.GetOpenFilename(" Bilddateien (*.jpg), *.jpg")

Range("A5").Select

Selection.Delete

ActiveSheet.Pictures.Insert(datei). Select

End Sub

Теперь вопрос, как выбрать тот самый диапазон и вставить так, чтобы верхний угол так и был в А5, а нижний в E39 (строки у меня стандартной длины, а столбцы широкие)

[Iraveyron]

Все! Сделала!
Вот так хотела, чтобы было!

Private Sub CommandButton1_Click()

Dim datei As String

datei = Excel.Application.GetOpenFilename(" Bilddateien (*.jpg), *.jpg")

Range("A6").Select

Selection.Delete

ActiveSheet.Pictures.Insert(datei). Select

Selection.ShapeRange.LockAspectRati o = msoTrue

Selection.ShapeRange.Width = 691

End Sub

[Probohka]

EducatedFool,

Большущее спасибо, за Ваш пример!!! Вы, мега человечище!!!

[Roman75]

EducatedFool, спасибище! Я как раз тоже аналогичный скрипт искал.