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




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

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

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

 

ЗЫ: я уже намекал выше:
Shocker.Proтекст ошибки нужно угадать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.12.2017, 15:55
    #39572113
Стасон2111
Стасон2111
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как задать рисунок из ячейки в Excel
С этой проблемой позднее чуть разберусь. Пока подскажите, как решить следующую проблему. Вот код:
Код: 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, 16:18
    #39572134
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как задать рисунок из ячейки в Excel
Это, судя по всему, указатель.
Зачем такие странные манипуляции?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.12.2017, 16:47
    #39572163
Стасон2111
Стасон2111
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как задать рисунок из ячейки в Excel
В общем, основная задача у меня, состоит в том, чтобы через форму на первом листе, записывать сотрудников в базу на второй лист. А на третьем листе через комбобокс выбирать по фамилии и, в соответствии с выбранной фамилией, показывать фото. Вот мне нужно освоить как записать фото из Image в ячейку и затем из ячейки вытащить снова в Image
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.12.2017, 16:50
    #39572168
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как задать рисунок из ячейки в Excel
Ну запись указателя в ячейку точно не поможет в этом случае, это число очень быстро перестанет иметь отношение к самой картинке.
А вообще, такие вещи делаются в Аксессе, а не в Экселе - совершенно типовая задача из учебника. Нафига тут Эксель?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.12.2017, 16:54
    #39572172
Стасон2111
Стасон2111
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как задать рисунок из ячейки в Excel
Вот именно, по задаче нужно это сделать именно в экселе. Если бы речь шла про акцесс, вопросов бы не было
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.12.2017, 17:33
    #39572199
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как задать рисунок из ячейки в Excel
Ну тогда надо поэкспериментировать или подождать ответа того, кто с этим работал.

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


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


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