Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Картинка в зависимости от значения / 7 сообщений из 7, страница 1 из 1
16.12.2005, 11:59:14
    #33440255
Vovik5
Vovik5
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Картинка в зависимости от значения
День добрый!

Есть Combox, в котором пять разных значений. Можно ли в зависимости от выбора из Combobox показывать определенную картинку. То есть к каждому значению есть определенная картинка. Как это сделать?
Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.12.2005, 12:13:54
    #33440325
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Картинка в зависимости от значения
Картинка и комбобокс на листе или на форме?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.12.2005, 13:01:36
    #33440563
Vovik5
Vovik5
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Картинка в зависимости от значения
Они на разных листах находятся.
То есть Комбобокс, к примеру, на Лист1, а картинка должна быть на Лист7.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.12.2005, 14:45:14
    #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
| Ответить | Цитировать | Написать  
17.12.2005, 01:33:16
    #33442140
Victosha
Victosha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Картинка в зависимости от значения
Для чего-то подобного задуман объект "камера" (camera)

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


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

(У меня 55 картинок меняются)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Картинка в зависимости от значения / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 295ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2185437]:
 0ms
get settings:
 7ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 42ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 190ms
total:  295ms
x
x
Закрыть


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