ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вставка / удаление рисунка с листа от одной кнопки
3 сообщений из 3, страница 1 из 1
Вставка / удаление рисунка с листа от одной кнопки
    #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, 14:11
| Ответить | Цитировать | Написать  
Вставка / удаление рисунка с листа от одной кнопки
    #38823803
капитанская дочка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
капитанская дочка
Участник
Yury111,

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

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


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