Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Pagina 1 di 2 12 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 13

Nuova barra in IDE VBA

  1. #1
    roccolamann non è in linea Scribacchino
    Con questa routine inserisco all'interno dell'ambiente VBA una nuova barra con relativo controllo di tipo pulsante.
    Sub BarreVBECreaNuova()
     On Error Resume Next
         Dim myBar As CommandBar
         Dim myControl As CommandBarControl
            Set myBar = Application.VBE.CommandBars.Add ("Nuova", msoBarTop, False, False)
                myBar.Visible = True
            Set myControl = myBar.Controls.Add(msoControlButton, , , 1)  'Imposto le proprietà del pulsante
                With myControl
                       .Caption = "myVBEButton"
                          'Other properties set
                      .FaceId = 29
                      .OnAction = "DimmiOra"            'Questa è la macro da eseguire
                End With
    End Sub
    
    Poi nello stesso modulo inserisco la macro da eseguire:
    Sub DimmiOra()
       Dim Messaggio as string
            Messaggio=msgbox (now)   'Per semplicità ho messo la più banale macro possibile
    End sub
    
    Il problema è che quando vado ad eseguire la macro assegnata al pulsante non succede nulla.
    Qualche suggerimento?
    P.S. Spero di non avere sbagliato sezione del post.

  2. #2
    Di quale prodotto stai parlando?
    ℹ️ Leggi di più su AntonioG ...

  3. #3
    roccolamann non è in linea Scribacchino
    Office 2007

  4. #4
    Meno male che ti ho chiesto il prodotto ...
    ℹ️ Leggi di più su AntonioG ...

  5. #5
    roccolamann non è in linea Scribacchino
    Scusami, non ho capito la domanda.
    Cosa intendi per "prodotto"?

  6. #6
    Word Excel Access Power Point ...
    ℹ️ Leggi di più su AntonioG ...

  7. #7
    roccolamann non è in linea Scribacchino
    Il prodotto a cui intendo riferirmi è word

  8. #8
    roccolamann non è in linea Scribacchino
    Nessuna risposta?
    Il thread è rimasto appeso.

  9. #9
    Si vede che nessuno può o vuole rispondere...
    ℹ️ Leggi di più su AntonioG ...

  10. #10
    L'avatar di @Alex
    @Alex non è in linea Moderatore Globale
    Nella proprietà OnAction... scrivi cosi
    "=DimmiOra()"
    Poi convertì la sub in function.
    ℹ️ Leggi di più su @Alex ...

+ Rispondi al messaggio
Pagina 1 di 2 12 ultimoultimo

Potrebbero interessarti anche ...

  1. Nuova arrivata
    Da valentina snait nel forum Presentati
    Risposte: 1
    Ultimo Post: 07-06-2020, 16:50
  2. Nuova spina
    Da panda78 nel forum Presentati
    Risposte: 0
    Ultimo Post: 14-05-2011, 15:43
  3. Inserimento nuova barra
    Da roccolamann nel forum Microsoft Word
    Risposte: 4
    Ultimo Post: 11-01-2011, 16:59
  4. sono nuova nuova anche se 'vecchiotta'
    Da Stefia nel forum Presentati
    Risposte: 1
    Ultimo Post: 08-09-2009, 11:06
  5. Nuova casa, nuova linea...nuovo router
    Da marco.santilli nel forum Networking e sicurezza
    Risposte: 0
    Ultimo Post: 31-01-2009, 00:30