Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 05.10.2008, 11:34   #1
dsapa
Пользователь
 
Регистрация: 22.05.2008
Сообщений: 82
По умолчанию Вывод изображения из листбокса (комбобокса)

Здравствуйте!
На форме расположен listbox, в котором уже содержатся названия фотографий (из списка на одном из листов книги. Это я уже сделал кодом VBA).
На этой же форме расположен Image, в котором должны появляться эти фотографии по выделению конкретной строчки в listbox. Названия фотографий точно совпадают с названиями в листбоксе.
Главное: фотографии хранятся в той же директории, что и сам файл Excel, в папке (Pictures).
Заморочался с кодом, хотя предполагаю, что он несложный. Прошу помочь.
И еще: можно ли хранить все фотографии на листе Excel, копируя каждую из них в конкретную ячейку отдельного листа. Файл, конечно, разбухнет, однако не придется иметь специальную папку для изображений. Как это сделать?
Спасибо.
dsapa вне форума
Старый 05.10.2008, 21:12   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Вот один из возможных способов:
Вложения
Тип файла: rar Книга1.rar (11.5 Кб, 36 просмотров)
EducatedFool вне форума
Старый 07.10.2008, 22:48   #3
dsapa
Пользователь
 
Регистрация: 22.05.2008
Сообщений: 82
По умолчанию

Спасибо! С доработками местного значения очень хорошо подошло. Даже лучше чем мой задуманный вариант, здесь не надо создавать отдельный список файлов на листе книгию

Вопрос: а можно ли в листбоксе убрать расширение файлов с точкой? Ну, чтобы читались бы только названия файлов без расширения. Спасибо.
dsapa вне форума
Старый 08.10.2008, 04:28   #4
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Почему бы и нет? Вот так, например:
Вложения
Тип файла: rar Книга1_ver2.rar (12.8 Кб, 26 просмотров)
EducatedFool вне форума
Старый 10.10.2008, 23:23   #5
dsapa
Пользователь
 
Регистрация: 22.05.2008
Сообщений: 82
По умолчанию

Работает, спасибо.
И все-таки не то!
Мне кажется, есть решение изящнее и проще.
И еще смущает наличие кнопок - это ведь дополнительные телодвижения.
Хорошо бы все вписать в Sub auto_open().
Буду искать.
dsapa вне форума
Старый 11.10.2008, 14:18   #6
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Цитата:
Сообщение от dsapa Посмотреть сообщение
Мне кажется, есть решение изящнее и проще.
Не спорю, это был лишь один из возможных вариантов

Цитата:
Сообщение от dsapa Посмотреть сообщение
И еще смущает наличие кнопок - это ведь дополнительные телодвижения.
Кнопки были выведены лишь для демонстрации отдельных действий.
По сути, они не нужны

Цитата:
Сообщение от dsapa Посмотреть сообщение
Хорошо бы все вписать в Sub auto_open().
Да запросто. См. вложение:
Вложения
Тип файла: rar Книга1_ver3.rar (13.3 Кб, 42 просмотров)
EducatedFool вне форума
Старый 11.10.2008, 22:58   #7
dsapa
Пользователь
 
Регистрация: 22.05.2008
Сообщений: 82
По умолчанию

Ай, спасибо, все работает!
Я даже не успел найти иное решение.
Вставляю ваш код целиком, не хочу больше заморачиваться с этим вопросом, лучше пойду программировать дальше.
Выражаю глубокую признательность.
Удачи!
dsapa вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Изображения в WebBrowser. Teen4jump Работа с сетью в Delphi 3 15.08.2008 12:13
Чтение изображения из базы данных, Вместо изображения - "System.Byte[]" ruelCrow Общие вопросы .NET 3 10.07.2008 23:29
Обработка изображения Hollander Мультимедиа в Delphi 6 10.03.2008 14:21
Изображения в БД alikon1 БД в Delphi 3 08.10.2007 13:13
Есть 2 листбокса, в 1 пути к файлам, во 2 имена этих файлов. delphi. Xandr Помощь студентам 2 06.10.2007 00:17