您好：如下
很久前的程式，當初應該是xls
現在執行時卻沒有commandBar跑出來

Set cmdbar = Application.CommandBars.Add(Name:="購買情報", Position:=msoBarTop, Temporary:=True)
參數不對

找了網路上的相關資料
也沒有辦法解決

想請問是否有前輩可以解惑一下
謝謝

Sub zz()

    Dim cmdbar As CommandBar
    
    Dim cmdctl As CommandBarControl
    
    
    'Set cmdbar = Application.CommandBars.Add(Name:="購買情報", Position:=msoBarTop, Temporary:=True)
    Set cmdbar = Application.CommandBars.Add("Testing", Office.MsoBarPosition.msoBarPopup, False, True)
    
     
    
     Set cmdctl = cmdbar.Controls.Add(Type:=msoControlButton)
    cmdctl.Caption = "登錄"
    cmdctl.FaceId = 41
    'cmdctl.OnAction = ThisWorkbook.Name & "!LOGIN"
    
  
    Set cmdctl = cmdbar.Controls.Add(Type:=msoControlButton)
    cmdctl.Caption = "1036"
    cmdctl.FaceId = 1036
    
    Set cmdctl = cmdbar.Controls.Add(Type:=msoControlButton)
    cmdctl.Caption = "1035"
    cmdctl.FaceId = 1035
  
  


End Sub

若目前用手動的，他會在EXCEL BAR 的區塊
但會變成所有EXCEL 都會有這一個BAR 出現