Кнопка и обновление экрана

[ольгаг]

Здравствуйте уважаемые программисты!
Подскажите пожалуйста, у меня на Листе excel 2003 есть кнопка (вставлена как рисунок) для запуска макроса. При выполнении самого макроса экран не мигает так как отключено обновление экрана, а вот при нажатии на саму кнопку экран "мигает" и кнопка при щелчке по ней меняет как бы цвет. Подскажите пожалуйста, как можно отключить такой эффект у кнопки? Заранее спасибо.

[EducatedFool]

а вот при нажатии на саму кнопку экран "мигает"

по идее, этого не должно происходить

кнопка при щелчке по ней меняет как бы цвет

это да, есть такое, пока вы держите кнопку мыши нажатой на фигуре.
Этого вряд ли получится избежать так устроен Excel.


Покажите свой макрос (вместе с файлом) - посмотрим, что можно сделать.

PS: Я постоянно использую такие кнопки в своих макросах - и описанный вами эффект ничуть не напрягает ни меня, ни пользователей моих программ.

[ольгаг]

Вы все правильно поняли, у меня мигает только сама кнопка.
Я решила попробовать кнопки-рисунок после того, как в последствии использования программы для защиты кода "Protect VBA" (с сайта http://excelvba.ru/) у меня на компьютерах пользователей перестают работать кнопки типа "CommandButton" (не реагируют на нажатия), а кнопки-фигуры, рисунок работают. Сама программа понравилась. Вы не сталкивались с подобным, хотелось бы сохранить кнопки "CommandButton"? Также не работает после защиты библиотека DAO. Возможно необходимые библиотеки надо подгружать макросом?

[ольгаг]

Подскажите пожалуйста, как макросом прописать подключение следующих дополнительных библиотек (которые по умолчанию не подключены):
1) Microsoft Forms 2.0 Object Library
2) Microsoft DAO 3.6 Object Library

[EducatedFool]

Вы не сталкивались с подобным, хотелось бы сохранить кнопки "CommandButton"?

сталкивался, неоднократно.

Причину не выяснял (да и не особо мне это надо было) - просто стал использовать только автофигуры для запуска макросов.

Также не работает после защиты библиотека DAO

защита и библиотека не связаны никак.
Возможно, вы неправильно используете библиотеку (защиту можно временно снимать перед вставкой данных в Excel, и потом ставить снова)

[ольгаг]

Спасибо большое, попробую!

[Hugo121]

А Microsoft Forms 2.0 зачем? Для работы с буфером обмена? Это можно делать и без подключения Microsoft Forms:

Sub GetFromClb()
    Dim tmp
    With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .GetFromClipboard
        tmp = .GetText(1)
    End With

    MsgBox tmp
End Sub

[ольгаг]

Сообщение от Hugo121

А Microsoft Forms 2.0 зачем? Для работы с буфером обмена? Это можно делать и без подключения Microsoft Forms:

Sub GetFromClb()
    Dim tmp
    With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .GetFromClipboard
        tmp = .GetText(1)
    End With

    MsgBox tmp
End Sub

Данная библиотека нужна для CommandButtons. В принципе она сама подключается когда создаешь кнопку. Но у меня на листе есть такие кнопки, но после защиты кода с помощью Protect VBA они не работают.