Здравствуйте!
У меня проблема ещё проще, наверное.
Я хочу, чтобы при нажатии на кнопку её размер менялся с большого
Large на маленький
Small, при повторном нажатии - наоборот.
При открытии файла - если это
XlsM, или при запуске
Excel"а, если это
XlaM, срабатывает вот такой код:
| Код |
|---|
Sub GetSize(control As IRibbonControl, ByRef Size)
Const Large As Integer = 1
Const Small As Integer = 0
Select Case control.ID
Case "aButton01": Size = Large
Case "aButton02": Size = Small
Case "aButton03": Size = Small
........... |
Надо как-то заставить эту функцию сработать не при открытии, а сразу после нажатия на кнопку.
В порядке уточнение - пусть с кнопками связаны некие функции:
Sub RunMacro(control As IRibbonControl)
| Код |
|---|
Select Case control.ID
Case "aButton01": Application.Run "Ribbon_A_01"
Case "aButton02": Application.Run "Ribbon_A_02"
...............
|
Вот эти функции:
| Код |
|---|
Sub Ribbon_A_01
RMShiftMode = 2
End Sub
Sub Ribbon_A_02()
RMShiftMode = 3
End Sub |
Правильно ли я понимаю, что надо как-то из функции
Ribbon_A_01 вызвать функцию
GetSize?
И если это правильно, то как это сделать?
ЗЫ Видимо, аргумент "
control" это и есть кнопка
aButton01.
Как же его задать, где получить ссылку на этот объект
aButton01?
Должно быть что-то вроде:
| Код |
|---|
Call GetSize(Controls("aButton01"), 1)
|
