selezionare pulsante

Hai un problema con Excel?

Nuova discussione

selezionare pulsante
di rita (utente non iscritto) data: 21/02/2013 19:29:39
ciao a tutti
premesso che con un comando sendkeys posso spostarmi all'interno di un file, ad esempio come posso individuare un comando all'interno di word o di excel da selezionare
mi spiego meglio, se all'interno di word ho le scorciatoie posso individuare tramite sendkeys l'eventuale comando ma se devo selezionare per esempio il comando inserisci in word posto in alto come posso fare

di isy (utente non iscritto) data: 21/02/2013 22:04:15
Ciao

cit: come posso individuare un comando all'interno di word o di excel da selezionare

Utilizzando l' elenco dei numeri di ID per i controlli CommandBar incorporati in Excel 2000
Per Excel è disponibile l'elenco dei comandi in:
h t t p://support.microsoft.com/kb/213552
h t t p://support.microsoft.com/kb/162814/it

Mentre in Word trovi
h t t p://support.microsoft.com/kb/243988/it

Sub TestExcel()
    'Insert                &Rows
    Application.CommandBars.FindControl(ID:=296).Execute
    
    'Format                C&ells
    Application.CommandBars.FindControl(ID:=855).Execute
    
    'File                  Save &As
    Application.CommandBars.FindControl(ID:=748).Execute
End Sub

Sub TestWord()
    'Informazioni Word
    Application.CommandBars.FindControl(ID:=927).Execute
    
    'Finestra Zoom
    Application.CommandBars.FindControl(ID:=925).Execute
    
    'File                  Save &As
    Application.CommandBars.FindControl(ID:=748).Execute
End Sub

di RITA (utente non iscritto) data: 22/02/2013 08:10:46
ciao isy, e' proprio quello che mi serviva ma non sai se esiste un riepilogo dei codici id per word
ho provato nei siti che mi hai detto ma non riesco ad interpretarli
ossia se tu sei cosi' gentile a me servirebbe quello relativo a revisione e sproteggi documento
grazie anticipatamente

di isy (utente non iscritto) data: 22/02/2013 13:01:35
Ciao

In Word prova a cercare la voce con la seguente sub...

Sub GetAll_Submenu_Ids()

    Dim ctrl As Object
    For Each ctrl In CommandBars(6).Controls '.Controls(7).Controls '.Controls(8).Controls
       MsgBox ctrl.Caption & Chr(13) & ctrl.ID
    Next ctrl

End Sub

di Vecchio Frac data: 22/02/2013 18:33:50
Ma perchè non usare istruzioni e funzioni VBA invece che tornare indietro di ventisette anni (era il 1986, me lo ricordo bene, il primo amore non si scorda mai ^_^) e pilotare Word inviandogli il codice tasto?
Cioè,
ActiveDocument.SaveAs
non è meglio di
Application.CommandBars.FindControl(ID:=748).Execute
?
(IMHO) :)
di RITA (utente non iscritto) data: 26/02/2013 11:25:08
vi ringrazio , ho trovato una soluzione

Vuoi Approfondire?