Доброго времени суток, Ув. Форумчане!
Прошу совета, если кто сталкивался с данной задачей.
В файле Excel на ленте сделал динамическое меню. Формируется с помощью несложного макроса.
До последнего времени все работало как нужно, но теперь появился следующий баг:
- если при формирование меню оказывается, что пунктов в нем больше 15-ти, то меню вообще не формируется (пустое)
- если же пунктов до 15-ти, то все норм.
Код макроса ниже:
Прошу совета, если кто сталкивался с данной задачей.
В файле Excel на ленте сделал динамическое меню. Формируется с помощью несложного макроса.
До последнего времени все работало как нужно, но теперь появился следующий баг:
- если при формирование меню оказывается, что пунктов в нем больше 15-ти, то меню вообще не формируется (пустое)
- если же пунктов до 15-ти, то все норм.
Код макроса ниже:
Код |
---|
Sub WeChatMenu(control As IRibbonControl, ByRef content) Dim sXML As String sXML = "<menu itemSize=""large"" xmlns=""http://schemas.microsoft.com/office/2006/01/customui"">" & vbCrLf For i = 1 To 15 sXML = sXML & "<button id=""Кнопка" & i & """ label=""" & arr(i, 1) & """ onAction = ""WeeChat" & i & """/>" & vbCrLf Next i content = sXML & "</menu>" End Sub |