Questo browser non è più supportato.
Esegui l'aggiornamento a Microsoft Edge per sfruttare i vantaggi di funzionalità più recenti, aggiornamenti della sicurezza e supporto tecnico.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Salve,
lo script che segue dovrebbe creare 2 menu in Excel su un Foglio vuoto.
Ma all'atto dell'invio, dà errore sul neretto.
Sub CreateMenu()
Dim MyMenu As CommandBarPopup
Set MyMenu = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup, Before:=6)
MyMenu.Caption = "MyMenu"
MyMenu.Controls.Add Type:=msoControlButton, Before:=1, ID:=1234, Caption:="Menu Item 1"
MyMenu.Controls.Add Type:=msoControlButton, Before:=2, ID:=5678, Caption:="Menu Item 2"
End Sub
Ho sbagliato qualcosa?
Carlo - Verona
Una famiglia di software per fogli di calcolo Microsoft con strumenti per l'analisi, la creazione di grafici e la comunicazione dei dati.
Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.
Prego Carlo! Non ti preoccupare, per me e per Eleuterio(Moderatore volontario)sarebbe stato un piacere aiutarti.
Ti auguro un buon proseguimento di serata!
Sandro
Grazie Sandro.
Ho corretto come hai scritto.
Ma continua a dare errore al solito posto.
L'errore dice: "Errore di compilazione. Impossibile trovare argomento predefinito".
Quindi?
Carlo - Verona
Sarebbe opportuno che tu fornisca il file per poterlo verificare, piuttosto che ricreare l'errore su un altro file che non lo presenti.
Grazie.
Come allego il file?. Non vedo l'icona di selezione.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(41.6, 76%, 14%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EET%3C/text%3E%3C/svg%3E)
Grazie Sandro.
Ho corretto come hai scritto.
Ma continua a dare errore al solito posto.
L'errore dice: "Errore di compilazione. Impossibile trovare argomento predefinito".
Quindi?
Carlo - Verona
Sarebbe opportuno che tu fornisca il file per poterlo verificare, piuttosto che ricreare l'errore su un altro file che non lo presenti.
Grazie.
Grazie Sandro.
Ho corretto come hai scritto.
Ma continua a dare errore al solito posto.
L'errore dice: "Errore di compilazione. Impossibile trovare argomento predefinito".
Quindi?
Carlo - Verona
Ciao Carlo,
sembra che ci sia un errore di sintassi nel tuo codice VBA. Il problema potrebbe essere causato dal fatto che il tipo di dati per l'ID del controllo non è stato specificato. Prova a modificare la riga che contiene l'ID come segue:
MyMenu.Controls.Add Type:=msoControlButton, Before:=1, ID:=1234&, Caption:="Menu Item 1"
Aggiungendo l'ampersand (&) dopo il valore dell'ID, stai specificando che si tratta di un numero intero. Questo dovrebbe risolvere l'errore di sintassi.
Sandro