Как зафиксировать кнопку на экране?

Posted by Chas under Basic, Пост-обзор

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

doober
auto_open-в событие открытия книги
auto_close в закрытие книги.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

auto_close

End Sub

Private Sub Workbook_Open()

auto_open

End Sub

Появится кнопка на панели,жмите на нее

Sub auto_open()

On Error Resume Next
Set cbar1 = CommandBars.Add(Name:="Custom1", Position:=msoBarTop)

cbar1.Visible = True
Set myControl = Application.CommandBars("Custom1").Controls.Add(Type:=msoControlButton)

With myControl

   .Style = msoButtonCaption

   .Caption = "<кнопка1>"

   .OnAction = "MY_Mcro"

End With
End Sub
Sub MY_Mcro()

MsgBox "вай вай"

End Sub
Sub auto_close()

    On Error Resume Next

    CommandBars("Custom1").Delete

End Sub

тема на форуме

Похожие статьи

• Примечание в ячейки листа со значением из другой ячейки
• Как в Word сделать элементы управления невидимыми для печати?
• Как макросом брать данные с word документов в excel?
• Как сделать, чтобы выводило сообщение «данные пользователем не заполнены», если все ячейки столбца G пустые
• Вывести сообщение, если ячейки excel не заполнены
• Найти совпадения ячеек столбца С и столбца Е и вывести все совпавшие ячейки в столбец G по клику кнопки
• Как сделать выпадающий список с добавлением новых элементов?
• Удалить строки таблицы по встречающимся словам
• Как написать макрос который бы по клику по ячейке скрывал столбец?
• Как сделать чтобы скрывался и открывался столбец?