ReSQL.ru
     
powered by simpleCommunicator - 2.0.36     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как задать рисунок из ячейки в Excel
13 сообщений из 13, страница 1 из 1
Как задать рисунок из ячейки в Excel
    #39571494
Стасон2111
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Стасон2111
Гость
Прошу помощи при работе с рисунком. В ячейке записан путь к рисунку. Например, "C:\рис1.jpeg ". Также имеется кнопка обьект Image, названный Pic.
Суть в том, что при нажатии на кномку, должна загружаться картинка.
Вот код кнопки
Код: vbnet
1.
2.
strPath = Worksheets(3).Cells(1, 2).Value
Pic1.Picture = strPath




Выдаёт ошибку

Заранее благодарен
...
Рейтинг: 0 / 0
18.12.2017, 15:47
| Ответить | Цитировать | Написать  
Как задать рисунок из ячейки в Excel
    #39571510
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Стасон2111Выдаёт ошибкутекст ошибки нужно угадать? Где находится "кнопка обьект Image" тоже угадать?

а вообще, вы пытаетесь картинке присвоить текстовую строку, судя по всему
...
Рейтинг: 0 / 0
18.12.2017, 16:02
| Ответить | Цитировать | Написать  
Как задать рисунок из ячейки в Excel
    #39571511
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
http://www.excelworld.ru/stuff/vba_function/loading_data/loadpicture/22-1-0-70
...
Рейтинг: 0 / 0
18.12.2017, 16:03
| Ответить | Цитировать | Написать  
Как задать рисунок из ячейки в Excel
    #39571674
Стасон2111
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Стасон2111
Гость
Разобрался. Теперь вопрос, как загрузить картинку через диалог. Если делать напрямую: Image1.Picture = LoadPicture("c:\Рисунки\Рис1.jpg") работает.
А если так: Image1.Picture = LoadPicture(OpenDialog.Filename) не работает
...
Рейтинг: 0 / 0
18.12.2017, 21:34
| Ответить | Цитировать | Написать  
Как задать рисунок из ячейки в Excel
    #39571706
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Попробуйте вместо метода произвольного тыка и случайного нажатия использовать учебники и поисковики
https://yandex.ru/search/?text=OpenDialog vba&clid=2207714&lr=213
...
Рейтинг: 0 / 0
19.12.2017, 00:30
| Ответить | Цитировать | Написать  
Как задать рисунок из ячейки в Excel
    #39572071
Стасон2111
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Стасон2111
Гость
Спасибо, с открытием файла разобрался. Теперь, как мне при нажатии кнопки "Открыть" записать имя файла в поле FOTO.
Вот код процедуры

Код: vbnet
1.
2.
3.
 avFiles = Application.GetOpenFilename("Файлы рисунков(*.jpeg*),*.jpeg*", 1, "Выбрать файл", , False)
 If avFiles = "" Then Exit Sub
 FOTO.Value = avFiles ' Не работает

Модератор: Учимся использовать тэги оформления кода - FAQ
...
Рейтинг: 0 / 0
19.12.2017, 15:19
| Ответить | Цитировать | Написать  
Как задать рисунок из ячейки в Excel
    #39572096
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Стасон2111Не работаетЧто-то не так

 

ЗЫ: я уже намекал выше:
Shocker.Proтекст ошибки нужно угадать?
...
Рейтинг: 0 / 0
19.12.2017, 15:39
| Ответить | Цитировать | Написать  
Как задать рисунок из ячейки в Excel
    #39572113
Стасон2111
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Стасон2111
Гость
С этой проблемой позднее чуть разберусь. Пока подскажите, как решить следующую проблему. Вот код:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Private Sub CommandButton1_Click()
 avFiles = Application.GetOpenFilename("Excel files(*.jpg*),*.jpg", 1, "Выбрать Excel файлы", , False)
 If VarType(avFiles) = vbBoolean Then Exit Sub
 Image1.Picture = LoadPicture(avFiles)
 Cells(1, 1).Value = Image1.Picture // Тут мы записываем я так понимаю код картинки
 Image2.Picture = LoadPicture(Cells(1, 1).Value) // Это по моему неправильно. Тут как вытащить картинку из ячейки и записать в  Image2?
 End Sub
...
Рейтинг: 0 / 0
19.12.2017, 15:55
| Ответить | Цитировать | Написать  
Как задать рисунок из ячейки в Excel
    #39572134
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Это, судя по всему, указатель.
Зачем такие странные манипуляции?
...
Рейтинг: 0 / 0
19.12.2017, 16:18
| Ответить | Цитировать | Написать  
Как задать рисунок из ячейки в Excel
    #39572163
Стасон2111
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Стасон2111
Гость
В общем, основная задача у меня, состоит в том, чтобы через форму на первом листе, записывать сотрудников в базу на второй лист. А на третьем листе через комбобокс выбирать по фамилии и, в соответствии с выбранной фамилией, показывать фото. Вот мне нужно освоить как записать фото из Image в ячейку и затем из ячейки вытащить снова в Image
...
Рейтинг: 0 / 0
19.12.2017, 16:47
| Ответить | Цитировать | Написать  
Как задать рисунок из ячейки в Excel
    #39572168
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ну запись указателя в ячейку точно не поможет в этом случае, это число очень быстро перестанет иметь отношение к самой картинке.
А вообще, такие вещи делаются в Аксессе, а не в Экселе - совершенно типовая задача из учебника. Нафига тут Эксель?
...
Рейтинг: 0 / 0
19.12.2017, 16:50
| Ответить | Цитировать | Написать  
Как задать рисунок из ячейки в Excel
    #39572172
Стасон2111
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Стасон2111
Гость
Вот именно, по задаче нужно это сделать именно в экселе. Если бы речь шла про акцесс, вопросов бы не было
...
Рейтинг: 0 / 0
19.12.2017, 16:54
| Ответить | Цитировать | Написать  
Как задать рисунок из ячейки в Excel
    #39572199
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ну тогда надо поэкспериментировать или подождать ответа того, кто с этим работал.

К примеру, запись макроса показывает, что картинка на лист добавляется так:
Код: vbnet
1.
Sheets("Лист1").Pictures.Insert("C:\s.jpg")


Возможно, можно тупо переносить ее потом из коллекции Pictures в Image1.Picture
...
Рейтинг: 0 / 0
19.12.2017, 17:33
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как задать рисунок из ячейки в Excel
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=12&tid=2155149]:
 0ms
get settings:
 8ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 72ms
get topic data:
 10ms
get forum data:
 1ms
get page messages:
 44ms
get tp. blocked users:
 2ms
others: 286ms
total:  440ms
созд. / загр.: 440ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]