Установить переменную на основе раскрывающегося списка ленты

Question

Я создал настроенную ленту с раскрывающимся списком, XML:

<dropDown id="sections" onAction="sectionsmacro" >
<item id="section1" image="section1" label="navy" />
<item id="section2" image="section2" label="sapphire" />
<item id="section3" image="section3" label="purple" />
<item id="section4" image="section4" label="emerald" /> 
<item id="section5" image="section5" label="cyan" />
</dropDown>

Я бы хотел установить макрос, который будет работать в случаях «если тогда», в зависимости от того, что выбрано в раскрывающемся списке.

Итак, у меня есть макрос, который окрашивает все в черный цвет, но если выбран фиолетовый, мой макрос делает все в фиолетовый. Как сделать ссылку на выпадающий список на макроуровне? спасибо за помощь!

---

Спасибо, хотя это не совсем то, что я имел в виду ... Допустим, я выбрал «ВМС» в раскрывающемся списке, и это все. У него индекс 0. Следующий шаг - использовать эту переменную в другом макросе. Так что у меня было бы что-то вроде этого:

Sub tablecolour()

'if value on drop down = 0 ('navy') then 
else end if

end sub

Поэтому, исходя из значения, выбранного в раскрывающемся списке, я бы хотел запустить другой макрос определенным образом. Я не знаю, как использовать значение из раскрывающегося списка для чтения в качестве переменной в отдельном макросе.

Answer 1

Simple. Добавьте это к модулю в вашем файле Excel:

'Callback for sections onAction
Sub sectionsmacro(control As IRibbonControl, id As String, index As Integer)
    MsgBox index
End Sub

Как вы заметите, вы получите индекс выбранного элемента (начиная с нуля)