|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
12.03.2015, 13:42 | #1 |
Пользователь
Регистрация: 12.03.2015
Сообщений: 15
|
Внедрение OLE объекта с выпадающим окном выбора файла
Проблема в том что с помощью макроса получается записать только вставку OLE объекта только по указанию адреса:
Sub Макрос1() ActiveSheet.OLEObjects.Add(Filename := _ "C:\Users\ChernohlebovRV\Desktop\DS C_0047.jpg", Link:=False, DisplayAsIcon _ :=True, IconFileName:= _ "C:\Program Files (x86)\Internet Explorer\iexplore.exe", IconIndex:=0, _ IconLabel:="C:\Users\ChernohlebovRV \Desktop\DSC_0047.jpg").Select End Sub Подскажите, пожалуйста, как сделать чтобы по кнопке выпадало окно для выбора файла? |
12.03.2015, 13:56 | #2 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
12.03.2015, 14:55 | #3 |
Пользователь
Регистрация: 12.03.2015
Сообщений: 15
|
Егор, спасибо большое за ответ. Только вот при использовании данного кода макрос выдает "вставка объекта неосуществима" не подскажете что может припятствовать?
Макрос выглядит так: Sub Макрос2() ' ' Макрос2 Макрос ' ' ActiveSheet.OLEObjects.Add(Applicat ion.FileDialog(msoFileDialogFilePic ker).Show, Link:=False, _ DisplayAsIcon:=True, IconFileName:="C:\Windows\system32\ packager.dll", _ IconIndex:=0, IconLabel:="").Select End Sub Последний раз редактировалось Romario371; 12.03.2015 в 15:25. |
12.03.2015, 15:31 | #4 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
препятствовать может то, что
Код:
посмотрите в справке как пользоваться Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
12.03.2015, 15:36 | #5 | |
Пользователь
Регистрация: 12.03.2015
Сообщений: 15
|
Цитата:
|
|
12.03.2015, 15:42 | #6 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
в редакторе ВБА, есть поле куда можно вписать вопрос, достаточно этого:
msoFileDialogFilePicker удачи!
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
12.03.2015, 16:12 | #7 | |
Пользователь
Регистрация: 12.03.2015
Сообщений: 15
|
Цитата:
Я не очень силен в программировании(( |
|
12.03.2015, 16:29 | #8 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Код:
имя файла получили - используйте как вам нужно например Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
12.03.2015, 16:40 | #9 | |
Пользователь
Регистрация: 12.03.2015
Сообщений: 15
|
Цитата:
|
|
12.03.2015, 17:14 | #10 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
да, работает)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Заливка цветом с выпадающим окном | staniiislav | Microsoft Office Excel | 4 | 05.10.2011 12:48 |
Тип вывода OLE объекта: значек или содержимое | gg9 | Microsoft Office Access | 1 | 17.09.2011 22:59 |
Scrolling Ole объекта | Рик | Компоненты Delphi | 0 | 14.03.2011 12:19 |
Как узнать тип (класс) OLE Automation объекта? | Stilet | Win Api | 2 | 02.07.2010 09:07 |
Прокрутка Ole объекта | Gagens | Общие вопросы Delphi | 0 | 16.04.2010 10:39 |