Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вставка / удаление рисунка с листа от одной кнопки / 3 сообщений из 3, страница 1 из 1
03.12.2014, 14:11
    #38823660
Yury111
Yury111
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вставка / удаление рисунка с листа от одной кнопки
Всем добрый день! Помогите решить проблему. Необходимо скрывать / показывать рисунок с помощью одной кнопки. Т.е. при первом нажатии рисунок появляется, при следующем удаляется с рабочего листа. Я написал две процедуры и назначил им по одной кнопке. Как сделать чтобы это работало от одной кнопки. Заранее спасибо.

Вот процедуры

1-я, показываем
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Sub CropImage()
    Range("D153").Select
    Filename$ = "U:\С\рисунок.jpg"
    
    Dim pic As Picture
    Set pic = ActiveSheet.Pictures.Insert(Filename$) '
      
End Sub



2-я скрываем

Код: vbnet
1.
2.
3.
4.
End Sub
Sub deleteImage()
    ActiveSheet.Pictures.Delete
End Sub



Модератор: Учимся использовать тэги оформления кода - FAQ
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.12.2014, 15:46
    #38823803
капитанская дочка
капитанская дочка
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вставка / удаление рисунка с листа от одной кнопки
Yury111,

попробуй так
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.12.2014, 16:12
    #38823836
Yury111
Yury111
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вставка / удаление рисунка с листа от одной кнопки
капитанская дочка,

Огромное спасибо! Всё работает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вставка / удаление рисунка с листа от одной кнопки / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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