Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Скрыть или показать картинку в EXCELL по условию / 4 сообщений из 4, страница 1 из 1
28.03.2005, 11:33:00
    #32983433
Дмитрий16
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скрыть или показать картинку в EXCELL по условию
Хочется скрыть или показать картинку в EXCELL по условию.Например если поле A1=0 то рядом с ним видна картинка с красивым описанием.
Сейчас я использую просто надписи но хочется на дланках добавить красоты.
...
Рейтинг: 0 / 0
28.03.2005, 11:45:57
    #32983473
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скрыть или показать картинку в EXCELL по условию
см вложение
запиши 0 или 1 в яч а1.
...
Рейтинг: 0 / 0
28.03.2005, 12:24:11
    #32983581
Дмитрий16
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скрыть или показать картинку в EXCELL по условию
big-dukeсм вложение
запиши 0 или 1 в яч а1.

Именно то что нужно.
Один вопрос: что такое ws1.Shapes(1) и если картинок несколько - как определить где какая?
...
Рейтинг: 0 / 0
28.03.2005, 13:20:14
    #32983730
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скрыть или показать картинку в EXCELL по условию
что такое 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
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Скрыть или показать картинку в EXCELL по условию / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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