Как расположить кнопки вертикально в Excel CommandBar? - PullRequest
Новая
       40

Как расположить кнопки вертикально в Excel CommandBar?

0 голосов
/ 11 января 2019

Мой код создает 2 кнопки на пользовательской панели команд. Работает нормально, но 2 кнопки расположены рядом, и я хочу, чтобы они располагались вертикально. Как я могу это исправить ? 

Sub Crea_Menu()
    With Application.CommandBars.Add(Name:="GL", Temporary:=True)
        .Visible = True
        .Width = .Height / 2    'tried this but has no effect !
        With .Controls.Add(Type:=msoControlButton, Temporary:=True)
            .OnAction = "GenerateRpt"
            .Caption = "GL report"
            .Style = msoButtonCaption
        End With
        With .Controls.Add(Type:=msoControlButton, Temporary:=True)
            .OnAction = "Version"
            .Caption = "Version " & Format(Sheet2.Range("A2").Value2, "0.00")
            .Style = msoButtonCaption
        End With
    End With
End Sub
...