0

我的代码在自定义命令栏上创建了 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
4

0 回答 0