Command Bar

Hai un problema con Excel?

Nuova discussione

Command Bar
di Cecialiann data: 08/01/2014 13:27:44
Cia a tutti,
ho un altro problema, questa volta con la creazione di una command bar personallizzata.

Ho elaborato la macro per creare la command bar (che poi faccio cancellare in Workbook_BeforeClose) ed ho associato alla command bar vari pulsanti a cui a loro volta associo una routine da eseguire.
La macro funziona e la barra viene creata correttamente, ed i pulsanti sono ok. il problema è sul pulsante (back) che deve eseguire una macro per cambiare il worksheet attivo. Questa operazione non viene eseguita.
Sapete dirmi come mai?
Allego il codice....

Grazie mille anticipatamente...

Sub MenuBar_Create()

'Dim MiaBarra As CommandBar
'creo barra menù personalizzata per il programma

'Set MiaBarra =
 Dim myCB As CommandBar
 Dim myCBtn1, myCBtn2, myCBtn3 As CommandBarButton
   
    Set myCB = CommandBars.Add("Barra Menù SGP", msoBarRight)
    
    Set myCBtn1 = myCB.Controls.Add(msoControlButton)
    With myCBtn1
     .Caption = "HELP!"
     .Style = msoButtonIconAndCaption
     .FaceId = 124
    ' .OnAction = "HELP_Click()"
    End With
    
     Set myCBtn2 = myCB.Controls.Add(msoControlButton)
     With myCBtn2
     .Caption = "Crea in SolidEdge!"
     .Style = msoButtonIconAndCaptionBelow
     .FaceId = 3894
    
     .OnAction = "SolidEdge_Interface_Activate()"
    End With
    
   
    Set myCBtn3 = myCB.Controls.Add(msoControlButton)
    With myCBtn3
     .Caption = "BACK!"
     .Style = msoButtonIconAndCaption
     .FaceId = 1017
     .OnAction = "Attiva_Pulsanti_comando"
    ' .Execute
    End With
    
    myCB.Visible = True

 
'Call MenuBar_Show

End Sub


Public Sub Attiva_Pulsanti_comando()
Dim Myfoglio

MsgBox "fatto!!"
Application.ScreenUpdating = True
ThisWorkbook.Worksheets("MAIN").Activate
End Sub

Vuoi Approfondire?