Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Скрыть-показать картинки на листе нажатием кнопки
 
#1
25.02.2019 14:51:07
Здравствуйте,
прошу помощи в решении задачи
знаю что есть на форуме подобные решения...,
но есть специфика небольшая и не могу наладить на мой лад...
прикладываю файл с этим рабочим кодом выбора,
скрытия или показа картинок с помощью раскрывающегося списка

Код
 Public Function ShowPictire(ByVal p_Range As Range)
    If p_Range.Value = "показать" Then
        ws1.Shapes(1).Visible = msoTrue
        ws1.Shapes(2).Visible = msoTrue
           Else
        ws1.Shapes(1).Visible = msoFalse
        ws1.Shapes(2).Visible = msoFalse
           End If
End Function


но мне нужно скрыть/показать с помощью кнопки (на кнопке нужно прописывать показать или скрыть)
код будет применяться на разных листах, картинок  от 1 до максимум 5шт
 
 
 
#2
25.02.2019 15:38:33
Ctrl+6
 
 
 
#3
25.02.2019 15:57:19
к сожалению такое решение выключает картинки на других листах книги где это не нужно...
 
 
 
#4
25.02.2019 15:58:27
Вставьте сочетание в макрос события активации листа
 
 
 
#5
25.02.2019 16:26:03
Если правильно понял, то так с учетом замены кнопки на ActiveX:
Код
Private Sub CB1_Click()
If ws1.Shapes(1).Visible = msoTrue And _
        ws1.Shapes(2).Visible = msoTrue Then
        'ws1.Рисунок(3).Visible = msoTrue
        cb1.Caption = "Показать"
        ws1.Shapes(1).Visible = msoFalse
        ws1.Shapes(2).Visible = msoFalse
    Else
        cb1.Caption = "Скрыть"
        ws1.Shapes(1).Visible = msoTrue
        ws1.Shapes(2).Visible = msoTrue
        'ws1.Рисунок(3).Visible = msoFalse
    End If
End Sub
 
 
 
#6
26.02.2019 10:04:35
да все работает так как нужно
спасибо большое
Изменено: Вадим - 26.02.2019 11:15:27
 
 
 
Страницы: 1
Наверх