ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Скрыть или показать картинку в EXCELL по условию
4 сообщений из 4, страница 1 из 1
Скрыть или показать картинку в EXCELL по условию
    #32983433
Дмитрий16
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий16
Участник
Хочется скрыть или показать картинку в EXCELL по условию.Например если поле A1=0 то рядом с ним видна картинка с красивым описанием.
Сейчас я использую просто надписи но хочется на дланках добавить красоты.
...
Рейтинг: 0 / 0
28.03.2005, 11:33
| Ответить | Цитировать | Написать  
Скрыть или показать картинку в EXCELL по условию
    #32983473
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
см вложение
запиши 0 или 1 в яч а1.
...
Рейтинг: 0 / 0
28.03.2005, 11:45
| Ответить | Цитировать | Написать  
Скрыть или показать картинку в EXCELL по условию
    #32983581
Дмитрий16
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий16
Участник
big-dukeсм вложение
запиши 0 или 1 в яч а1.

Именно то что нужно.
Один вопрос: что такое ws1.Shapes(1) и если картинок несколько - как определить где какая?
...
Рейтинг: 0 / 0
28.03.2005, 12:24
| Ответить | Цитировать | Написать  
Скрыть или показать картинку в EXCELL по условию
    #32983730
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
что такое ws1.Shapes(1) - ссылка на картинку
можешь сделать так
w1.Shapes(1).name="pic1", сделай это лучше в окне immediate
потом из кода можешь вызывать через
ws1.Shapes("pic1")
т.е. в моем примере будет
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Public Function ShowPictire(ByVal p_Range As Range)
    If p_Range.Value =  0  Then
        ws1.Shapes("pic1").Visible = msoTrue
    Else
        ws1.Shapes("pic1").Visible = msoFalse
    End If
End Function
...
Рейтинг: 0 / 0
28.03.2005, 13:20
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Скрыть или показать картинку в EXCELL по условию
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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