ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Картинка в зависимости от значения
7 сообщений из 7, страница 1 из 1
Картинка в зависимости от значения
    #33440255
Vovik5
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vovik5
Гость
День добрый!

Есть Combox, в котором пять разных значений. Можно ли в зависимости от выбора из Combobox показывать определенную картинку. То есть к каждому значению есть определенная картинка. Как это сделать?
Спасибо.
...
Рейтинг: 0 / 0
16.12.2005, 11:59:14
| Ответить | Цитировать | Написать  
Картинка в зависимости от значения
    #33440325
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Картинка и комбобокс на листе или на форме?
...
Рейтинг: 0 / 0
16.12.2005, 12:13:54
| Ответить | Цитировать | Написать  
Картинка в зависимости от значения
    #33440563
Vovik5
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vovik5
Гость
Они на разных листах находятся.
То есть Комбобокс, к примеру, на Лист1, а картинка должна быть на Лист7.
...
Рейтинг: 0 / 0
16.12.2005, 13:01:36
| Ответить | Цитировать | Написать  
Картинка в зависимости от значения
    #33440923
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Как вариант.

На листе 1 расположен ComboBox1, который заполняется програмнно при открытии книги. При изменении значения в ComboBox1, удаляем старую картинку и помещаем на ее место новую. Картинки имеет имена Example01, Example02,...

Модуль книги.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Private Sub Workbook_Open()
    Dim obj As OLEObject
    
    Set obj = Worksheets("Лист1").OLEObjects("ComboBox1")
        
    obj.Object.AddItem "1"
    obj.Object.AddItem "2"
    obj.Object.AddItem "3"
    obj.Object.AddItem "4"
    obj.Object.AddItem "5"
End Sub

Модуль листа 1.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub ComboBox1_Change()
    Static sh As Shape
    Dim obj As OLEObject
    
    On Error Resume Next
    
    sh.Delete
    
    Set obj = Worksheets("Лист1").OLEObjects("ComboBox1")
    Set sh = Worksheets("Лист2").Shapes.AddPicture( _
      "C:\Мои рисунки\Example0" & obj.Object.Value & ".JPG", _
      True, True,  100 ,  100 ,  70 ,  70 )
End Sub
...
Рейтинг: 0 / 0
16.12.2005, 14:45:14
| Ответить | Цитировать | Написать  
Картинка в зависимости от значения
    #33442140
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Victosha
Участник
Для чего-то подобного задуман объект "камера" (camera)

вот пример использования
...
Рейтинг: 0 / 0
17.12.2005, 01:33:16
| Ответить | Цитировать | Написать  
Картинка в зависимости от значения
    #33442169
Мшсещырф
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мшсещырф
Гость
то же самое без вба
...
Рейтинг: 0 / 0
17.12.2005, 04:15:51
| Ответить | Цитировать | Написать  
Картинка в зависимости от значения
    #33442476
vallot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vallot
Гость
Если картинок всего пять, то не проще ли как у меня?
Переведи картинки в .вмр, и назови их значениями Combox
Переменной картинка присвой значения Combox


Код: plaintext
1.
2.
                   
   Sheet4.Myframe.Picture = LoadPicture _
("C:\Picture\" & картинка& ".bmp")

(У меня 55 картинок меняются)
...
Рейтинг: 0 / 0
17.12.2005, 17:25:44
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Картинка в зависимости от значения
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/search_topic.php?author=xe-xe&author_mode=last_posts&do_search=1]:
 0ms
get settings:
 10ms
get forum list:
 14ms
get settings:
 10ms
get forum list:
 21ms
get settings:
 7ms
get forum list:
 11ms
get settings:
 6ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 21ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 1477ms
total:  1629ms
созд. / загр.: 1629ms
x
x
Закрыть


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