Proprietà MoveWhenInTheWay

True se la finestra dell’ Assistente di Office si sposta automaticamente quando si sovrappone all’ area di lavoro dell’ utente. Ad esempio, l’ Assistente si sposterà se impedisce il trascinamento o il rilascio o combinazioni di tasti. Valore Boolean di lettura/scrittura.

Osservazioni

La proprietà MoveWhenInTheWay corrisponde all’ opzione Spostamento automatico nella casella di gruppo Abilità dell'assistente della scheda Opzioni nella finestra di dialogo Assistente di Office.


Esempio della proprietà MoveWhenInTheWay

In questo esempio viene visualizzato l’ Assistente di Office in una posizione specifica e precedentemente alla visualizzazione vengono impostate numerose opzioni.

With Assistant

    .Reduced = True

    .Left = 400

    .MoveWhenInTheWay = True

    .TipOfDay = True

    .Visible = True

    .Animation = msoAnimGreeting

End With


Proprietà NewBalloon

Crea un nuovo fumetto per l’ Assistente di Office. Restituisce un oggetto Balloon.


Esempio della proprietà NewBalloon

In questo esempio viene creato e quindi visualizzato un fumetto con un titolo, del testo e tre scelte di regione.

With Assistant.NewBalloon

    .Button = msoButtonSetOK

    .Heading = "Regional Sales Data"

    .Text = "Select a region"

    For i = 1 To 3

        .CheckBoxes(i).Text = "Region " & i

    Next

    .Show

End With


Proprietà Reduced

True se la finestra dell’ Assistente di Office viene visualizzata nella dimensione ridotta. Valore Boolean di lettura/scrittura.


Esempio della proprietà Reduced

In questo esempio viene visualizzato l’ Assistente di Office in una posizione specifica e precedentemente alla visualizzazione vengono impostate numerose opzioni.

With Assistant

    .Reduced = True

    .Left = 400

    .MoveWhenInTheWay = True

    .TipOfDay = True

    .Visible = True

    .Animation = msoAnimationGreeting

End With


Proprietà SearchWhenProgramming

True se l’ Assistente di Office visualizza la guida di programmazione e dell’ applicazione mentre l’ utente opera in Visual Basic. Valore Boolean di lettura/scrittura.

Osservazioni

La proprietà SearchWhenProgramming corrisponde all’ opzione guida di programmazione e dell'applicazione durante la programmazione nella casella di gruppo Abilità dell'Assistente della scheda Opzioni nella finestra di dialogo Assistente di Office.


Esempio della proprietà SearchWhenProgramming

In questo esempio si illustra come utilizzare sia la guida dell’ applicazione che della programmazione mentre si opera in Visual Basic.

Assistant.SearchWhenProgramming = True


Metodo Show

Oggetto Balloon: visualizza l’ oggetto Balloon specificato. Restituisce una costante msoBalloonType che indica su quale fumetto l'utente fa clic.

Oggetto FileFind: visualizza la finestra per la ricerca di file e i criteri di ricerca correnti. Solo Macintosh.

Sintassi

espressione.Show

espressione    Obbligatoria. Espressione che restituisce un oggetto Balloon o FileFind.

Osservazioni

Per l'oggetto Balloon, è possibile utilizzare il valore di ritorno del metodo Show per visualizzare la selezione del pulsante da parte dell’ utente. Il metodo Show restituisce una delle seguenti costanti msoBalloonType:

msoBalloonButtonAbort msoBalloonButtonCancel msoBalloonButtonIgnore msoBalloonButtonNo msoBalloonButtonOK msoBalloonButtonRetry msoBalloonButtonSnooze msoBalloonButtonYes	msoBalloonButtonBack msoBalloonButtonClose msoBalloonButtonNext msoBalloonButtonNull msoBalloonButtonOptions msoBalloonButtonSearch msoBalloonButtonTips msoBalloonButtonYesToAll


Esempio del metodo Show

In questo esempio viene creato un fumetto contenente tre scelte. La variabile x è impostata sul valore di ritorno del metodo Show, che sarà 1, 2 o 3, corrispondente all’ etichetta su cui l’ utente fa clic. In questo esempio il valore della variabile x viene visualizzato da una semplice finestra di messaggio, ma è possibile passare il valore a un’ altra procedura o utilizzarlo in un’ istruzione Select Case.

Set b = Assistant.NewBalloon

With b

    .Heading = "This is my heading"

    .Text = "Select one of these things:"

    .Labels(1).Text = "Choice One"

    .Labels(2).Text = "Choice Two"

    .Labels(3).Text = "Choice Three"

    x = .Show

End With

MsgBox x


Proprietà Sounds

True se l’ Assistente di Office riproduce i suoni che corrispondono alle animazioni. Valore Boolean di lettura/scrittura.

Osservazioni

Questa proprietà non ha effetto se non è stata installata una scheda audio.


Esempio della proprietà Sounds

In questo esempio l’ Assistente di Office viene visualizzato, animato e messo in grado di riprodurre suoni.

With Assistant

    .Visible = True

    .Sounds = True

    .Animation = msoAnimationBeginSpeaking

End With


Proprietà TipOfDay

True se l’ Assistente di Office visualizza un suggerimento speciale ogni volta che viene aperta un’ applicazione Office. Valore Boolean di lettura/scrittura.

Osservazioni

La proprietà TipOfDay corrisponde all’ opzione Mostra i suggerimenti utili all'avvio nella casella di gruppo Altri suggerimenti della scheda Opzioni della finestra di dialogo Assistente di Office.


Esempio della proprietà TipOfDay

In questo esempio viene visualizzato l’ Assistente di Office in una posizione specifica e precedentemente alla visualizzazione vengono impostate numerose opzioni.

With Assistant

    .Reduced = True

    .Left = 400

    .MoveWhenInTheWay = True

    .TipOfDay = True

    .Visible = True

    .Animation = msoAnimGreeting

End With


Proprietà Animation

Restituisce o imposta l'azione animata dell'Assistente di Office. Quando questa proprietà viene applicata all'oggetto Assistant, l'Assistente viene immediatamente animato (se l'Assistente è visualizzato). Quando questa proprietà è applicata all'oggetto Balloon, l'Assistente viene animato solo quando il fumetto è visualizzato. Valore Long di lettura/scrittura

Può essere una delle seguenti costanti MsoAnimationType:

msoAnimationAppear msoAnimationBeginSpeaking msoAnimationCharacterSuccessMajor msoAnimationCheckingSomething msoAnimationDisappear msoAnimationEmptyTrash msoAnimationGestureDown msoAnimationGestureLeft msoAnimationGestureRight msoAnimationGestureUp msoAnimationGetArtsy msoAnimationGetAttentionMajor msoAnimationGetAttentionMinor msoAnimationGetTechy msoAnimationGetWizardy msoAnimationGoodbye msoAnimationGreeting	msoAnimationIdle msoAnimationListensToComputer msoAnimationLookDown msoAnimationLookDownLeft msoAnimationLookDownRight msoAnimationLookLeft msoAnimationLookRight msoAnimationLookUp msoAnimationLookUpLeft msoAnimationLookUpRight msoAnimationPrinting msoAnimationSaving msoAnimationSearching msoAnimationSendingMail msoAnimationThinking msoAnimationWorkingAtSomething msoAnimationWritingNotingSomething
Osservazioni

Clippy è l'Assistente predefinito e msoAnimationIdle è il tipo di animazione predefinita dell'Assistente.

In base all'Assistente selezionato l'impostazione della proprietà Animation può avere o meno come risultato un'animazione evidente. Tuttavia, tutte le costanti MsoAnimationType sono valide per tutti gli Assistenti.

Le seguenti costanti MsoAnimationType rappresentano animazioni che ripetono l'azione specificata fino alla chiusura dell'Assistente o fino a quando la proprietà Animation non viene reimpostata con un'altra animazione.

msoAnimationCheckingSomething msoAnimationGetArtsy msoAnimationGetTechy msoAnimationSaving	msoAnimationSearching msoAnimationThinking msoAnimationWorkingAtSomething msoAnimationWritingNotingSomething


Esempio della proprietà Animation

In questo esempio viene visualizzato l'Assistente in Office in una posizione specifica e precedentemente alla visualizzazione vengono impostate numerose opzioni.

With Assistant

    .Reduced = True

    .Move xLeft:= 400, yTop:= 300

    .MoveWhenInTheWay = True

    .TipOfDay = True

    .Visible = True

    .Animation = msoAnimationGreeting

End With


Proprietà FileName

Oggetto Assistant: restituisce o imposta il nome del file per l'Assistente di Office attivo. Valore String di lettura/scrittura.

Oggetto FileSearch: restituisce o imposta il nome del file da ricercare. Il nome del file può includere i caratteri jolly * (asterisco) o ? (punto interrogativo). Utilizzare il carattere jolly punto interrogativo per trovare corrispondenze di qualsiasi carattere singolo. Digitare, ad esempio, n?oto per trovare le parole "nato" e "noto". Utilizzare il carattere jolly asterisco per trovare corrispondenze di qualsiasi numero di caratteri. Digitare, ad esempio, *.txt per trovare tutti i file con l'estensione .txt. Valore String di lettura/scrittura.

Osservazioni

In Windows, ai file per l'Assistente di Office viene assegnata un'estensione .act e tali file vengono installati nella cartella \Programmi\Microsoft Office\Office\Assisten in Windows 95, nella cartella \Windows\MsApps\Actors in Windows NT.

Ai vari Assistenti di Office disponibili in Office 97 corrispondono i seguenti nomi di file.

Assistente	Nome file
Logo Office	Logo.act
Superfido	Powerpup.act
Genius	Genius.act
Uovorobot	Hoverbot.act
Cartogatta	Scribble.act
Caucciù	Dot.act
Clippy	Clippit.act
Madre natura	MNature.act
Il bardo	Will.act


Esempio della proprietà FileName

In questo esempio la proprietà FileName viene utilizzata per personalizzare il testo dei fumetti di specifici Assistenti di Office. La variabile btext può essere utilizzata per il valore della proprietà Text in un fumetto della Creazione guidata Stampa.

Select Case Assistant.FileName

Case "will.act"

    btext = "To Print, or Not to Print. That is the question."

Case "genius.act"

    btext = "The sum of the checkboxes equals the document to print."

Case Else

    btext = "Choose the document you want to print."

End Select

In questo esempio vengono ricercati tutti i file che si trovano nella cartella My Documents e che iniziano con "cmd". Verranno visualizzati il nome e la posizione di ciascun file trovato.

Set fs = Application.FileSearch

With fs

    .LookIn = "C:\My Documents"

    .FileName = "cmd*"

    If .Execute > 0 Then

        MsgBox "There were " & .FoundFiles.Count & _

            " file(s) found."

        For i = 1 To .FoundFiles.Count

            MsgBox .FoundFiles(i)

        Next i

    Else

        MsgBox "There were no files found."

    End If

End With


Proprietà BalloonType

Restituisce o imposta il tipo di fumetto utilizzato dall'Assistente di Office. Può essere una delel seguenti costanti MsoBalloonType: msoBalloonTypeButtons, msoBalloonTypeBullets o msoBalloonTypeNumbers. Quando si crea un nuovo fumetto con il metodo NewBalloon, quest proprietà è inizialmente impostata su msoBalloonTypeButtons. Variabile Long di lettura/scrittura


Esempio della proprietà BalloonType

In questo esempio viene creato un fumetto di istruzioni che spiega come selezionare una stampante. Si tratta di un fumetto non a scelta obbligatoria, pertanto l'utente può seguire le istruzioni del fumetto e mantenerlo visualizzato nel corso delle operazioni eseguite.

Set bln = Assistant.NewBalloon

With bln

    .Heading = "Instructions for Choosing a Printer."

    .Text = "Click OK when you've chosen a printer."

    .Labels(1).Text = "From the File menu, choose Print."

    .Labels(2).Text = "Click Setup."

    .Labels(3).Text = "Select the name of the printer."

    .BalloonType = msoBalloonTypeNumbers

    .Mode = msoModeModeless

    .Callback = "ProcessPrinter"

    .Button = msoButtonSetOK

    .Show

End With


Proprietà Button

Restituisce o imposta il tipo di pulsante visualizzato nella parte inferiore del fumetto dell'Assistente di Office. Quando viene creato un nuovo fumetto con il metodo NewBalloon, questa proprietà viene inizialmente impostata su msoButtonSetOK. Valore Long di lettura/scrittura.

Può essere una delle seguenti costanti MsoButtonSetType:

msoButtonSetAbortRetryIgnore msoButtonSetBackClose msoButtonSetBackNextClose msoButtonSetBackNextSnooze msoButtonSetCancel msoButtonSetNextClose msoButtonSetNone msoButtonSetOK	msoButtonSetOkCancel msoButtonSetRetryCancel msoButtonSetSearchClose msoButtonSetTipsOptionsClose msoButtonSetYesAllNoCancel msoButtonSetYesNoCancel msoButtonSetYesNo


Esempio della proprietà Button

In questo esempio viene creato e quindi visualizzato un fumetto con un titolo, del testo e tre scelte di regione.

With Assistant.NewBalloon

    .Heading = "Regional Sales Data"

    .Text = "Select a region"

    For i = 1 To 3

        .CheckBoxes(i).Text = "Region " & i

    Next

    .Button = msoButtonSetOkCancel

    .Show

End With


Proprietà Checkboxes

Restituisce l'insieme BalloonCheckboxes che rappresenta tutte le caselle di controllo contenute nel fumetto specificato. Di sola lettura.

Per informazioni sulla restituzione di un singolo membro di un insieme, vedere restituzione di un oggetto da un insieme.


Esempio della proprietà Checkboxes

In questo esempio viene creato e quindi visualizzato un fumetto con un titolo, del testo e tre scelte di regione. Quando l'utente seleziona una casella di controllo nel fumetto e quindi sceglie OK viene eseguita la procedura corrispondente.

With Assistant.NewBalloon

    .Heading = "Regional Sales Data"

    .Text = "Select your region"

    For i = 1 To 3

        .CheckBoxes(i).Text = "Region " & i

    Next

    .Button = msoButtonSetOkCancel

    .Show

Select Case True

    Case .CheckBoxes(1).Checked

        runregion1

    Case .CheckBoxes(2).Checked

        runregion2

    Case .CheckBoxes(3).Checked

        runregion3

End Select

End With


Proprietà Checked

True se nel fumetto dell'Assistente di Office è selezionata la casella di controllo specificata. Valore Boolean di lettura/scrittura.


Esempio della proprietà Checked

In questo esempio viene creato e quindi visualizzato un fumetto con un titolo, del testo e tre scelte di regione. Quando l'utente seleziona una casella di controllo nel fumetto e quindi sceglie OK viene eseguita la procedura corrispondente.

With Assistant.NewBalloon

    .Heading = "Regional Sales Data"

    .Text = "Select your region"

    For i = 1 To 3

        .CheckBoxes(i).Text = "Region " & i

    Next

    .Button = msoButtonSetOkCancel

    .Show

Select Case True

    Case .CheckBoxes(1).Checked

        runregion1

    Case .CheckBoxes(2).Checked

        runregion2

    Case .CheckBoxes(3).Checked

        runregion3

End Select

End With


Proprietà FeatureTips

True se l'Assistente di Office fornisce informazioni per utilizzare in modo più efficiente le funzioni dell'applicazione. Valore Boolean di lettura/scrittura

Osservazioni

La proprietà FeatureTips corrisponde alla casella di controllo Utilizzo più efficiente delle funzioni nella scheda Opzioni della finestra di dialogo Assistente di Office.


Esempio della proprietà FeatureTips

In questo esempio l'Assistente di Office viene  impostato in modo da fornire informazioni sul modo per utilizzare le funzioni dell'applicazione in modo più efficiente.

Assistant.FeatureTips = True


Proprietà GuessHelp

True se l'Assistente di Office visualizza un elenco di argomenti della Guida relativi al contesto prima che l'utente faccia clic sulla finestra dell'Assistente o prema F1. Valore Boolean di lettura/scrittura.

Osservazioni

La proprietà GuessHelp corrisponde all'opzione Ricerca argomenti della Guida in Abilità dell'assistente nella scheda Opzioni della finestra di dialogo Assistente di Office.


Esempio della proprietà GuessHelp

In questo esempio l'Assistente di Office viene impostato per visualizzare gli argomenti della Guida relativi al contesto.

Assistant.GuessHelp = True


Proprietà Heading

Restituisce o imposta il titolo che viene visualizzato nel fumetto dell'Assistente di Office. Valore String di lettura/scrittura.

Osservazioni

È possibile specificare un elemento grafico che si desidera visualizzare utilizzando la seguente sintassi: {tipo posizione fattore_ridimens}, dove tipo è bmp (immagine bitmap), wmf (metafile Windows) o pict (file PICT Macintosh); posizione è l'ID di risorsa o il percorso e nome file e fattore_ridimens specifica la larghezza di wmf o pict (viene omesso per bmp).


Esempio della proprietà Heading

In questo esempio viene creato e quindi visualizzato un fumetto con un titolo, del testo e tre scelte di regione.

With Assistant.NewBalloon

    .Button = msoButtonSetOkCancel

    .Heading = "Regional Sales Data"

    .Text = "Select a region"

    For i = 1 To 3

        .CheckBoxes(i).Text = "Region " & i

    Next

    .Show

End With


Metodo Help

Visualizza l'Assistente di Office e il fumetto incorporato.

Sintassi

espressione.Help

espressione   Obbligatoria. Un'espressione che restituisce un oggetto Assistant.


Esempio del metodo Help

In questo esempio viene visualizzato il fumetto incorporato dell'Assistente quando l'utente seleziona la casella di controllo "Ulteriori informazioni".

Set b = Assistant.NewBalloon

With b

    .Heading = "User Information"

    .Text = "Select your skill level"

    .CheckBoxes(1).Text = "Beginner."

    .CheckBoxes(2).Text = "Advanced."

    .CheckBoxes(3).Text = "I need more information."

    .Show

End With

If b.CheckBoxes(3).Checked = True Then

    Assistant.Help

End If


Proprietà AssistWithWizards

True se l'Assistente di Office fornisce informazioni della Guida sulle creazioni guidate. Valore Boolean di lettura/scrittura.

Osservazioni

La proprietà AssistWithWizards corrisponde all'opzione Guida creazioni guidate in Abilità dell'assistente  nella scheda Opzioni della finestra di dialogo Assistente di Office.


Esempio della proprietà AssistWithWizards

In questo esempio l'Assistente di Office viene impostato per fornire informazioni della Guida sulle creazioni guidate.

Assistant.AssistWithWizards = True


Proprietà HighPriorityTips

True se l'Assistente di Office visualizza i suggerimenti ad alta priorità. Valore Boolean di lettura/scrittura.

Osservazioni

La proprietà HighPriorityTips corrisponde all'opzione Mostra solo suggerimenti ad alta priorità nella casella di gruppo Altri suggerimenti della scheda Opzioni nella finestra di dialogo Assistente di Office.


Esempio della proprietà HighPriorityTips

In questo esempio l'Assistente di Office viene impostato per visualizzare i suggerimenti ad alta priorità.

Assistant.HighPriorityTips = True


Proprietà Icon

Restituisce o imposta il tipo di icona che viene visualizzata nella parte in alto a sinistra del fumetto dell'Assistente di Office. Può essere una delle seguenti costanti MsoIconType: msoIconAlert, msoIconNone o msoIconTip. Valore String di lettura/scrittura.


Esempio della proprietà Icon

In questo esempio viene creato un fumetto con un'icona di avviso che chiede all'utente di selezionare una stampante.

With Assistant.NewBalloon

    .Heading = "Select A Printer"

    .Text = "You must select a printer before printing."

    .Icon = msoIconAlert

    .CheckBoxes(1).Text = "Local printer"

    .CheckBoxes(2).Text = "Network printer"

    .Show

End With


Proprietà KeyboardShortcutTips

True se l'Assistente di Office fornisce informazioni della Guida sulle scelte rapide da tastiera. Valore Boolean di lettura/scrittura.

Osservazioni

La proprietà KeyboardShortcutTips corrisponde all'opzione Scelta rapida da tastiera in Mostra suggerimenti per nella scheda Opzioni della finestra di dialogo Assistente di Office.


Esempio della proprietà KeyboardShortcutTips

In questo esempio l'Assistente di Office viene impostato per fornire informazioni della Guida sulle scelte rapide da tastiera.

Assistant.KeyboardShortcutTips = True


Proprietà Labels

Restituisce un insieme BalloonLabels che rappresenta le etichette di pulsante, di numero e di punto elenco contenute nel fumetto dell'Assistente di Office specificato. Di sola lettura.

Per informazioni sulla restituzione di un singolo membro di un insieme, vedere restituzione di un oggetto da un insieme.


Esempio della proprietà Labels

In questo esempio viene creato un fumetto contenente tre scelte. la variabile x è impostata sul valore di ritorno del metodo Show, che sarà 1, 2 o 3, in corrispondenza dell'etichetta selezionata dall'utente. Nell'esempio il valore della variabile x viene visualizzato in una semplice finestra di messaggio, ma è possibile passare il valore ad un'altra procedura o utilizzare il valore in un'istruzione Select Case.

Set b = Assistant.NewBalloon

With b

    .Heading = "This is my heading"

    .Text = "Select one of these things:"

    .Labels(1).Text = "Choice One"

    .Labels(2).Text = "Choice Two"

    .Labels(3).Text = "Choice Three"

    x = .Show

End With

MsgBox x


Proprietà BalloonError

Restituisce un valore che indica l'ultimo errore registrato relativo al fumetto. Valore String di sola lettura.

Può essere una delle seguenti costanti MsoBalloonErrorType:

Costante	Descrizione
msoBalloonErrorBadBitmap	Il fumetto contiene una bitmap che non è stato possibile visualizzare perché il file non esiste o perché la bitmap non è un file.bmp o .wmf valido (o un file PICT in Macintosh).
msoBalloonErrorBadReference	Il fumetto contiene un riferimento non riconoscibile o non supportato.
msoBalloonErrorButtonlessModal	Il fumetto che si desidera visualizzare è a scelta obbligatoria, ma non contiene pulsanti. Il fumetto non verrà visualizzato perché non può essere chiuso.
msoBalloonErrorButtonModeless	Il fumetto che si desidera visualizzare non è a scelta obbligatoria, non contiene pulsanti e non dispone di una procedura assegnata alla proprietà Callback. Il fumetto non verrà visualizzato poiché è necessaria una procedura per valutare il pulsante che è stato scelto nel fumetto.
msoBalloonErrorNone	La proprietà ha visualizzato il fumetto. Nessun errore verificato.
msoBalloonErrorBadCharacter	Il fumetto contiene un carattere di controllo diverso da CR o LF e maggiore di 32.
msoBalloonErrorOutOfMemory	Il fumetto non verrà visualizzato poiché la memoria è insufficiente.
msoBalloonErrorTooBig	Il fumetto è troppo grande per poter essere visualizzato sullo schermo.
msoBalloonErrorOther	Il fumetto non verrà visualizzato poiché si è verificato un errore, ad esempio è già attivo un altro fumetto a scelta obbligatoria.


Esempio della proprietà BalloonError

In questo esempio viene creato un fumetto che genera un errore. L'errore dipende dal fatto che il fumetto viene creato senza che venga creato un modo per chiuderlo: Il tipo di pulsante è stato impostato su msoButtonSetNone e la modalità del fumetto predefinita è msoModeModal, che dà come risultato un fumetto senza pulsanti. Non esiste un modo per chiudere un fumetto a scelta obbligatoria senza pulsanti.

With Application.Assistant

With .NewBalloon

    .Heading = "This will never show."

    .Text = "Imagine a balloon here."

    .Button = msoButtonSetNone

    .Show

End With

.Visible = True

If .BalloonError = msoBalloonErrorButtonlessModal Then

    MsgBox "You need a button to dismiss the balloon."

End If

End With


Proprietà Mode

Restituisce o imposta il tipo di fumetto visualizzato. Può essere una delle seguenti costanti MsoModeType: msoModeAutoDown, msoModeModal o msoModeModeless. Quando si crea un nuovo fumetto con il metodo NewBalloon, questa proprietà è inizialmente impostata su msoModeModal. Valore Long di lettura/scrittura.

Osservazioni

Se la proprietà Mode per un fumetto è impostata su msoModeModeless, l'utente può lavorare nell'applicazione mentre il fumetto è visualizzato. Se la proprietà è impostata su msoModeModal, l'utente deve chiudere il fumetti prima di poter tornare ad operare nell'applicazione. Se la proprietà è impostata su msoModeAutoDown, il fumetto viene istantaneamente chiuso quando l'utente fa clic su qualsiasi punto dello schermo.

Se la proprietà Mode per un fumetto viene impostata su msoModeModeless, è richiesto un valore per la proprietà Callback. Il metodo Close può essere utilizzato solo se la proprietà è impostata su msoModeModeless.


Esempio della proprietà Mode

In questo esempio viene creato un fumetto con un'icona di avviso che chiede all'utente di selezionare una stampante. Poiché il fumetto è a scelta obbligatoria, l'utente ha accesso ai comandi relativi alla stampante mentre il fumetto è visualizzato.

With Assistant.NewBalloon

    .Heading = "Select A Printer"

    .Text = "You must select a printer before printing."

    .Icon = msoIconAlert

    .CheckBoxes(1).Text = "Local printer"

    .CheckBoxes(2).Text = "Network printer"

    .Mode = msoModeModeless

    .Callback = "ProcessPrinter"

    .Show

End With


Proprietà MouseTips

True se l'Assistente di Office fornisce informazioni per un utilizzo più efficiente del mouse. Valore Boolean di lettura/scrittura.

Osservazioni

La proprietà MouseTips corrisponde all'opzione Utilizzo più efficiente del mouse in Mostra suggerimenti per nella scheda Opzioni della finestra di dialogo Assistente di Office.


Esempio della proprietà MouseTips

In questo esempio l'Assistente di Office viene impostato per fornire suggerimenti per un utilizzo più efficiente del mouse.

Assistant.MouseTips = True


Oggetto Assistant

Rappresenta l’ Assistente di Microsoft Office.

Utilizzo dell’ oggetto Assistant

Utilizzare la proprietà Assistant per restituire l’ oggetto Assistant. Non esiste un insieme per l’ oggetto Assistant; può essere attivo un solo oggetto Assistant alla volta. Utilizzare la proprietà Visible per visualizzare l’ Assistente.

Osservazioni

L’ Assistente predefinito è Clippy. Per selezionare un Assistente diverso a livello di programmazione, utilizzare la proprietà FileName.

Nell’ esempio seguente viene visualizzato e quindi animato con un suono associato un Assistente precedentemente selezionato. Se il computer non dispone di una scheda audio, questo esempio non generererà un errore, ma non sarà possibile sentire il suono.

With Assistant

    .Visible = True

    .Sounds = True

    .Animation = msoAnimationBeginSpeaking

End With


Oggetto Balloon

Rappresenta il fumetto nel quale l’ Assistente di Office visualizza i titoli e il testo delle informazioni. Un fumetto non può contenere controlli quali caselle di controllo ed etichette.

Utilizzo dell’ oggetto Balloon

Utilizzare la proprietà NewBalloon per restituire un oggetto Balloon. Non esiste un insieme per l’ oggetto Balloon; può essere attivo un solo fumetto alla volta. È tuttavia possibile definire numerosi fumetti e richiamarne uno qualsiasi nel momento desiderato. Per ulteriori informazioni, vedere "Definizione e riutilizzo dei fumetti " più avanti in questo argomento.

Utilizzare la proprietà Show per rendere visibile il fumetto specificato. Utilizzare la proprietà Callback per avviare procedure basate su selezioni di fumetti non a scelta obbligatoria (fumetti che restano visualizzati mentre l’ utente opera nell’ applicazione). Utilizzare il metodo Close per chiudere i fumetti non a scelta obbligatoria.

Nell’ esempio seguente viene creato un fumetto che contiene suggerimenti sul salvataggio dei dati immessi.

With Assistant.NewBalloon

    .BalloonType = msoBalloonTypeBullets

    .Icon = msoIconTip

    .Button = msoButtonSetOkCancel

    .Heading = "Tips for Saving Information."

    .Labels(1).Text = "Save your work often."

    .Labels(2).Text = "Install a surge protector."

    .Labels(3).Text = "Exit your application properly."

    .Show

End With

Definizione e riutilizzo dei fumetti

È possibile riutilizzare i fumetti assegnando a questi delle variabili di oggetti e richiamandole quando necessario nel corso della procedura. In questo esempio vengono definiti ballon1, ballon2 e ballon3 come fumetti separati e tali fumetti vengono visualizzati a vari stadi della procedura.

Set balloon1 = Assistant.NewBalloon

balloon1.Heading = "First balloon"

Set balloon2 = Assistant.NewBalloon

balloon2.Heading = "Second balloon"

Set balloon3 = Assistant.NewBalloon

balloon3.Heading = "Third balloon"

balloon1.Show

balloon3.Show

balloon2.Show

È inoltre possibile inserire variabili di tipo oggetto Balloon in una matrice e recuperarle tramite l’ indice della matrice.


Insieme BalloonCheckboxes

Un insieme di oggetti BalloonCheckbox che rappresenta tutte le caselle di controllo del fumetto dell’ Assistente di Office.

Utilizzo dell’ insieme BalloonCheckboxes

Utilizzare la proprietà Checkboxes per restituire l’ insieme BalloonCheckboxes.

Utilizzare Checkboxes(indice), dove indice è un numero da 1 a 5, per restituire un singolo oggetto BalloonCheckbox. In un fumetto possono esistere fino a cinque caselle di controllo, ciascuna delle quali viene visualizzata quando viene assegnato un valore alla relativa proprietà Text.

Nel seguente esempio viene scritto il testo di tutte le caselle di controllo visibili, in un fumetto esistente, nella finestra di debug.

For Each box In .CheckBoxes

    If box.Text <> "" Then

        Debug.Print box.Text

    End If

Next

Non è possibile aggiungere e rimuovere caselle di controllo dall’ insieme BalloonCheckBoxes.

Osservazioni

Le caselle di controllo dei fumetti visualizzano le scelte dell’ utente fino al momento della chiusura del fumetto. Le etichette dei fumetti registrano la scelta dell’ utente non appena questi fa clic sul pulsante accanto all’ etichetta.


Oggetto BalloonCheckbox

Rappresenta una casella di controllo nel fumetto dell’ Assistente di Office. L’ oggetto BalloonCheckbox è un membro dell’ insieme BalloonCheckboxes.

Utilizzo dell’ oggetto BalloonCheckbox

Utilizzare Checkboxes(indice), dove indice è un numero da 1 a 5, per restituire un singolo oggetto BalloonCheckbox. In un fumetto possono essere contenute fino a cinque caselle di controllo, ciascuna delle quali viene visualizzata quando viene assegnato un valore alla relativa proprietà Text.

Nel seguente esempio viene creato un fumetto con un titolo, del testo e tre scelte di regione. Quando l’ utente seleziona una casella di controllo e quindi sceglie OK, verrà eseguita la corrispondente procedura.

With Assistant.NewBalloon

    .Heading = "Regional Sales Data"

     .Text = "Select your region"

    For i = 1 To 3

        .CheckBoxes(i).Text = "Region " & i

    Next

    .Button = msoButtonSetOkCancel

    .Show

    Select Case True

        Case .CheckBoxes(1).Checked

            runregion1

        Case .CheckBoxes(2).Checked

            runregion2

        Case .CheckBoxes(3).Checked

            runregion3

    End Select

End With

Osservazioni

Le caselle di controllo dei fumetti visualizzano le scelte dell’ utente fino al momento della chiusura del fumetto. Le etichette dei fumetti registrano la scelta dell’ utente non appena questi fa clic sul pulsante accanto all’ etichetta.


Insieme BalloonLabels

Un insieme di oggetti BalloonLabel che rappresenta tutte le etichette del fumetto dell’ Assistente di Office.

Utilizzo dell’ insieme BalloonLabels

Utilizzare la proprietà Labels per restituire l’ insieme BalloonLabels.

Utilizzare Labels(indice), dove indice è un numero da 1 a 5, per restituire un oggetto BalloonLabel. In un fumetto possono esistere fino a cinque etichette, ciascuna delle quali viene visualizzata quando viene assegnato un valore alla relativa proprietà Text.

Nel seguente esempio viene creato un fumetto contenente tre scelte. La variabile x viene impostata sul valore restituito dal metodo Show, che sarà 1, 2 o 3, in base all'etichetta su cui l'utente fa clic. Nell'esempio, il valore della variabile x viene visualizzato in una semplice casella di messaggio, ma è possibile passare il valore a un'altra routine oppure utilizzare il valore in un'istruzione Select Case.

Set b = Assistant.NewBalloon

With b

    .Heading = "This is my heading"

    .Text = "Select one of these things:"

    .Labels(1).Text = "Choice One"

    .Labels(2).Text = "Choice Two"

    .Labels(3).Text = "Choice Three"

    x = .Show

End With

MsgBox x

Osservazioni

Le caselle di controllo dei fumetti visualizzano le scelte dell’ utente fino al momento della chiusura del fumetto. Le etichette dei fumetti registrano la scelta dell’ utente non appena questi fa clic sul pulsante accanto all’ etichetta.


Oggetto BalloonLabel

Rappresenta un’ etichetta nel fumetto dell’ Assistente di Office. L’ oggetto BalloonLabel è un membro dell’ insieme BalloonLabels.

Utilizzo dell’ oggetto BalloonLabel

Utilizzare Labels(indice), dove indice è un numero compreso tra 1 e 5, per rstituire un oggetto BalloonLabel. In un fumetto possono essere contenute fino a cinque etichette, ciascuna delle quali viene visualizzata quando viene assegnato un valore alla relativa proprietà Text.

Nel seguente esempio viene creato un fumetto che chiede all’ utente di fare clic sull’ etichetta che corrisponde alla sua età.

With Assistant.NewBalloon

    .Heading = "Check Your Age Group."

    .Labels(1).Text = "Under 30."

    .Labels(2).Text = "Over 30."

    .Labels(3).Text = "None of your business."

    .Text = "Which of the following " _

        & .Labels.Count & " choices apply to you?"

    .Show

End With

Osservazioni

Le caselle di controllo dei fumetti visualizzano le scelte dell’ utente fino al momento della chiusura del fumetto. Le etichette dei fumetti registrano la scelta dell’ utente non appena questi fa clic sul pulsante accanto all’ etichetta.


Metodo Add

Aggiunge un oggetto a un insieme. Per una descrizione dettagliata del metodo Add relativo a un insieme specifico, selezionare uno dei seguenti insiemi.

CommandBarControls

CommandBars

DocumentProperties

PropertyTests


Metodo Add (insieme CommandBarControls)

Crea un nuovo controllo barra dei comandi e lo aggiunge all'insieme dei controlli disponibili nella barra dei comandi specificata. Restituisce un oggetto CommandBarButton, CommandBarComboBox o CommandBarPopup.

Sintassi

espressione.Add(Type, Id, Parameter, Before, Temporary)

espressione   Obbligatoria. Espressione che restituisce un oggetto CommandBarControls.

Type   Valore Variant facoltativo. Tipo di controllo che verrà aggiunto alla barra dei comandi specificata. Può essere rappresentata da una delle seguenti costanti MsoControlType: msoControlButton, msoControlEdit, msoControlDropdown, msoControlComboBox o msoControlPopup.

Id   Valore Variant facoltativo. Intero che specifica un controllo predefinito. Se il valore dell'argomento è 1 o se questo argomento viene omesso, alla barra dei comandi verrà aggiunto un controllo aggiuntivo vuoto del tipo specificato.

Parameter   Valore Variant facoltativo. Per i controlli predefiniti, questo argomento viene utilizzato dall'applicazione contenitore per eseguire il comando. Per i controlli aggiuntivi, questo argomento consente di inviare dati alle routine di Visual Basic oppure di memorizzare dati relativi al controllo, e in questo è simile a un secondo valore della proprietà Tag.

Before   Valore Variant facoltativo. Numero indicante la posizione del nuovo controllo sulla barra dei comandi. Se questo argomento viene omesso, il nuovo controllo verrà inserito in fondo alla barra dei comandi specificata.

Temporary   Valore Variant facoltativo. True per rendere temporaneo il nuovo controllo. I controlli temporanei vengono eliminati automaticamente quando l'applicazione contenitore viene chiusa. Il valore predefinito è False.


Esempio del metodo Add (insieme CommandBarControls)

In questo esempio viene aggiunto un pulsante con l'icona di un grafico alla barra dei comandi Personalizzata denominata "Custom" e quindi al controllo viene assegnata la routine "Analyze".

Set custBar = CommandBars("Custom")

custBar.Visible = True

Set graphBtn = custBar.Controls.Add(Type:=msoControlButton)

graphBtn.FaceId = 17

graphBtn.OnAction = "Analyze"


Metodo Add (insieme CommandBars)

Crea una nuova barra dei comandi e la aggiunge all'insieme delle barre dei comandi. Restituisce un oggetto CommandBar.

Sintassi

espressione.Add(Name, Position, MenuBar, Temporary)

espressione   Obbligatoria. Espressione che restituisce un oggetto CommandBars.

Name   Valore Variant facoltativo. Nome della nuova barra dei comandi. Se questo argomento viene omesso, alla barra dei comandi verrà assegnato un nome predefinito, ad esempio "Custom 1".

Position   Valore Variant facoltativo. Posizione della nuova barra dei comandi. Può essere rappresentata da una delle seguenti costanti MsoBarPosition.

Costante	Descrizione
msoBarLeft, msoBarTop, msoBarRight, msoBarBottom	Specifica le coordinate sinistra, superiore, destra e inferiore della nuova barra dei comandi
msoBarFloating	Specifica che la nuova barra dei comandi non sarà ancorata
msoBarPopup	Specifica che la nuova barra dei comandi sarà un menu di scelta rapida
msoBarMenuBar	Specifica che la nuova barra dei comandi sostituirà la barra dei menu di sistema in ambiente Macintosh
MenuBar   Valore Variant facoltativo. True per sostituire la barra dei menu attiva con la nuova barra dei comandi. Il valore predefinito è False.

Temporary   Valore Variant facoltativo. True per rendere temporanea la nuova barra dei comandi. Le barre dei comandi temporanee vengono eliminate quando l'applicazione contenitore viene chiusa. Il valore predefinito è False.


Esempio del metodo Add (insieme CommandBars)

In questo esempio viene aggiunta una barra dei comandi di livello superiore Personalizzata denominata "Custom" che non verrà salvata al termine della sessione. Viene inoltre aggiunto alla barra dei comandi un pulsante predefinito per il controllo ortografico.

Set mybar = CommandBars _

    .Add(Name:="Custom", Position:=msoBarTop, _

    Temporary:=True)

With mybar

    .Controls.Add Type:=msoControlButton, Id:=2

    .Visible = True

End With


Metodo Add (insieme DocumentProperties)

Crea una nuova proprietà personalizzata del documento. Questo metodo può essere utilizzato con l'insieme delle proprietà personalizzate del documento.

Sintassi

espressione.Add(Name, LinkToContent, Type, Value, LinkSource)

espressione   Obbligatoria. Rappresenta l'oggetto DocumentProperties personalizzato.

Name   Valore String obbligatorio. Nome della proprietà.

LinkToContent   Valore Boolean obbligatorio. Specifica se la proprietà è collegata al contenuto del documento contenitore. Se questo argomento è True, l'argomento LinkSource è obbligatorio. Se invece è False, è obbligatorio l'argomento relativo al valore.

Type   Valore Long obbligatorio. Tipo di dati della proprietà. Può essere rappresentata da una delle seguenti costanti MsoDocProperties: msoPropertyTypeBoolean, msoPropertyTypeDate, msoPropertyTypeFloat, msoPropertyTypeNumber o msoPropertyTypeString.

Value   Valore Variant facoltativo. Valore della proprietà se essa non è collegata al contenuto del documento contenitore. Il valore viene convertito in modo da corrispondere al tipo di dati specificato nell'argomento relativo al tipo, se è possibile. In caso contrario, verrà generato un errore. Se LinkToContent è True, l'argomento Value viene ignorato e alla nuova proprietà del documento viene assegnato un valore predefinito fino a quando i valori della proprietà collegata non vengono aggiornati dall'applicazione contenitore (in genere al salvataggio del documento).

LinkSource   Valore Boolean facoltativo. Viene ignorato se LinkToContent è False. Origine della proprietà collegata. Il tipo di collegamento all'origine che è possibile utilizzare viene determinato dall'applicazione contenitore.


Esempio del metodo Add (insieme DocumentProperties)

In questo esempio viene aggiunta una nuova proprietà personalizzata del documento, che viene denominata "Complete". È necessario passare l'insieme DocumentProperties personalizzato alla routine.

Sub AddCustomProperty(dp As DocumentProperties)

    dp.Add name:="Complete", linkToContent:=False, _

    type:=msoPropertyTypeBoolean, value:=False

End Sub


Metodo Add (insieme PropertyTests)

Aggiunge un oggetto PropertyTest all'insieme PropertyTests.

Sintassi

espressione.Add(Name, Condition, Value, SecondValue, Connector)

espressione   Espressione che restituisce un oggetto PropertyTests.

Name   Valore String obbligatorio. Nome del criterio per la proprietà. Il nome corrisponde a un valore della casella Proprietà della finestra di dialogo Ricerca avanzata.

Condition   Valore Variant obbligatorio. Condizione del criterio di ricerca. Può essere rappresentato da una delle seguenti costanti MsoCondition:

msoConditionAnyNumberBetween msoConditionAnytime msoConditionAnytimeBetween msoConditionAtLeast msoConditionAtMost msoConditionBeginsWith msoConditionDoesNotEqual msoConditionEndsWith msoConditionEquals msoConditionFileTypeAllFiles msoConditionFileTypeBinders msoConditionFileTypeDatabases msoConditionFileTypeExcelWorkbooks msoConditionFileTypeOfficeFiles msoConditionFileTypePowerPointPresentations msoConditionFileTypeTemplates msoConditionFileTypeWordDocuments msoConditionIncludesNearEachOther msoConditionIncludesPhrase msoConditionInTheLast	msoConditionInTheNext msoConditionIsExactly msoConditionIsNo msoConditionIsNot msoConditionIsYes msoConditionLastMonth msoConditionLastWeek msoConditionLessThan msoConditionMoreThan msoConditionNextMonth msoConditionNextWeek msoConditionOn msoConditionOnorAfter msoConditionOnorBefore msoConditionThisMonth msoConditionThisWeek msoConditionToday msoConditionTomorrow msoConditionYesterday
Value   Valore Variant facoltativo. Valore del criterio di ricerca per cui eseguire il test.

SecondValue   Valore Variant facoltativo. Valore superiore per l'intervallo di ricerca. Questo argomento può essere utilizzato solo se Condition è impostata su msoConditionAnyTimeBetween o msoConditionAnyNumberBetween.

Connector   Valore Variant facoltativo. Specifica in quale modo vengono combinati due criteri di ricerca. Può essere rappresentata da una delle seguenti costanti msoConnector: msoConnectorAnd o msoConnectorOr.


Esempio del metodo Add (insieme PropertyTests)

In questo esempio vengono aggiunti due test della proprietà al criterio di ricerca. Il primo test è che i file trovati devono essere documenti di Word e il secondo test è che essi devono essere stati modificati tra il giorno 1 gennaio 1996 e il giorno 30 giugno 1996.

Set fs = Application.FileSearch

fs.NewSearch

With fs.PropertyTests

    .Add Name:="Files of Type", _

        Condition:=msoConditionFileTypeWordDocuments, _

        Connector:=msoConnectorOr

    .Add Name:="Last Modified", _

        Condition:=msoConditionAnytimeBetween, _

        Value:="1/1/1996", SecondValue:="30/06/1996", _

        Connector:=msoConnectorAnd

End With


Metodo Copy

Copia il controllo barra dei comandi specificato su una barra dei comandi esistente.

Sintassi

espressione.Copy(Bar, Before)

espressione   Obbligatoria. Espressione che restituisce un oggetto CommandBarControl, CommandBarButton, CommandBarPopup o CommandBarComboBox.

Bar   Valore Variant facoltativo. Oggetto CommandBar che rappresenta la barra dei comandi di destinazione. Se questo argomento viene omesso, il controllo verrà copiato nella stessa barra dei comandi (la barra dei comandi è già attiva).

Before   Valore Variant facoltativo. Numero che specifica la posizione del nuovo controllo sulla barra dei comandi specificata. Il nuovo controllo verrà inserito prima del controllo che si trova in questa posizione. Se questo argomento viene omesso, il controllo verrà copiato in fondo alla barra dei comandi.


Esempio del metodo Copy

In questo esempio viene copiato il primo controllo della barra dei comandi denominata "Standard" sulla barra dei comandi Personalizzata denominata "Custom" mantenendolo come il primo controllo. Viene inoltre assegnato un nuovo parametro al controllo e lo stato attivo viene spostato sul nuovo pulsante.

Set myCustomBar = CommandBars("Custom")

Set myControl = CommandBars("Standard").Controls(1)

With myControl

.Copy Bar:=myCustomBar, Before:=1

.Parameter = "2"

.SetFocus

End With


Proprietà Count

Restituisce il numero di elementi disponibili nell'insieme specificato. Valore Long di sola lettura.

Osservazioni

Per l'insieme CommandBars, il conteggio include solo le barre dei menu, le barre degli strumenti e i menu di scelta rapida. Non sono inclusi i menu e i sottomenu.


Esempio della proprietà Count

In questo esempio la proprietà Count viene utilizzata per visualizzare il numero di barre dei comandi disponibili nell'insieme.

MsgBox " There are " & CommandBars.Count & " bars in your collection."

In questo esempio la proprietà Count viene utilizzata per visualizzare il numero di caselle di controllo disponibili nel fumetto dell'Assistente di Office.

With Assistant.NewBalloon

    .CheckBoxes(1).Text = "First Choice"

    .CheckBoxes(2).Text = "Second Choice"

    .Text = "You have the following " _

    & .CheckBoxes.Count & " choices.""

    .Show

End With

In questo esempio la proprietà Count viene utilizzata per visualizzare il numero di etichette nel fumetto dell'Assistente di Office.

With Assistant.NewBalloon

    .Heading = " Check Your Age Group."

    .Labels(1).Text = "20 to 29."

    .Labels(2).Text = "30 to 39."

    .Labels(3).Text = "40 or over "

    .Text = "Which of the following " _

    & .Labels.Count & " choices apply to you?"

    .Show

End With

In questo esempio viene visualizzato il numero di proprietà del documento nell'insieme DocumentProperties che è stato passato alla routine.

Sub CountDocumentProperties(dp As DocumentProperties)

    MsgBox "There are " & dp.Count & " " properties in the collection."

End Sub


Metodo Delete

Elimina l'oggetto specificato dall'insieme in cui è contenuto.

Sintassi 1

espressione.Delete

Sintassi 2

espressione.Delete(Temporary)

Sintassi 3

espressione.Delete(BstrQueryName)

espressione  Obbligatoria. Espressione che restituisce un oggetto CommandBar o DocumentProperty (Sintassi 1), un oggetto CommandBarControl (Sintassi 2) o un oggetto FileFind (Sintassi 3).

Temporary   Valore Variant facoltativo. True per eliminare il controllo per la sessione corrente. Il controllo verrà di nuovo visualizzato dall'applicazione durante la sessione successiva.

BstrQueryName   Valore String obbligatorio. Stringa contenente fino a 31 caratteri e che specifica il nome del criterio di ricerca salvato che si desidera eliminare.

Osservazioni

Non è possibile eliminare una proprietà predefinita del documento.


Esempio del metodo Delete

In questo esempio vengono eliminate tutte le barre dei comandi personalizzate che non sono visibili.

foundFlag = False

delBars = 0

For Each bar In CommandBars

    If (bar.BuiltIn = False) And _

    (bar.Visible = False) Then

        bar.Delete

        foundFlag = True

        delBars = delBars + 1

    End If

Next

If Not foundFlag Then

    MsgBox " No command bars have been deleted."

Else

    MsgBox delBars & " custom bar(s) deleted."

End If

In questo esempio viene eliminata una proprietà personalizzata del documento. È necessario passare un oggetto DocumentProperty alla routine.

Sub DeleteCustomDocumentProperty(dp As DocumentProperty)

    dp.Delete

End Sub


Metodo Execute

Esegue una routine associata a un controllo di una barra dei comandi oppure avvia la ricerca di file. Per una descrizione dettagliata del metodo Execute relativo a un oggetto specifico, selezionare uno dei seguenti oggetti.

CommandBarButton

CommandBarControl

CommandBarPopup

CommandBarComboBox

FileSearch

FileFind


Metodo Execute (controlli della barra dei comandi)

Esegue la macro o il comando predefinito assegnato al controllo barra dei comandi. Per i controlli aggiuntivi, è possibile utilizzare la proprietà OnAction per specificare la macro che deve essere eseguita.

Sintassi

espressione.Execute

espressione   Obbligatoria. Espressione che restituisce un oggetto CommandBarControl, CommandBarButton, CommandBarPopup o CommandBarComboBox.


Esempio del metodo Execute (controlli della barra dei comandi)

In questo esempio viene verificato il valore della casella combinata sulla barra dei comandi denominata " My Command Bar". Se il valore è "First", il codice di esempio eseguirà la macro specificata dalla proprietà OnAction del controllo.

Set mycontrol = CommandBars("My Custom Bar").Controls(1)

With mycontrol

If .List(.ListIndex) = "First" Then

mycontrol.Execute

   End If

End With


Metodo Execute (oggetti FileSearch e FileFind)

Oggetto FileSearch: avvia la ricerca dei file specificati.

Oggetto FileFind: avvia la ricerca dei file specificati e aggiorna l'insieme FindFileResults. Solo Macintosh.

Sintassi 1

espressione.Execute(SortBy, SortOrder, AlwaysAccurate)

Sintassi 2

espressione.Execute

espressione   Obbligatoria. Espressione che restituisce un oggetto FileSearch (Sintassi 1) o FileFind (Sintassi 2).

SortBy   Valore Variant facoltativo. Metodo utilizzato per ordinare i file restituiti. Può essere rappresentata da una delle seguenti costanti MsoSortBy: msoSortbyFileName, msoSortbyFileType, msoSortbyLastModified o msoSortbySize.

SortOrder   Valore Variant facoltativo. Ordine in cui devono essere disposti i file restituiti. Può essere rappresentata da una delle seguenti costanti MsoSortOrder: msoSortOrderAscending o msoSortOrderDescending.

AlwaysAccurate   Valore Boolean facoltativo. True per includere nella ricerca i file aggiunti, modificati o eliminati dall'ultimo aggiornamento dell'indice dei file. Il valore predefinito è True.


Esempio del metodo Execute (oggetti FileSearch e FileFind)

In questo esempio viene eseguita la ricerca di tutti i file che iniziano con "cmd" nella cartella My Documents e viene quindi visualizzata la posizione e il nome di ogni file trovato. L'elenco dei file restituito viene quindi disposto in ordine alfabetico ascendente, per nome di file.

Set fs = Application.FileSearch

With fs

    .LookIn = "C:\My Documents"

    .FileName = "cmd*"

    If .Execute(SortBy:=msoSortbyFileName, _

            SortOrder:=msoSortOrderAscending) > 0 Then

        MsgBox "There were " & .FoundFiles.Count & _

            " file(s) found."

        For i = 1 To .FoundFiles.Count

            MsgBox .FoundFiles(i)

        Next i

    Else

        MsgBox "There were no files found."

    End If

End With


Metodo SetFocus

Sposta lo stato attivo sul controllo barra dei comandi specificato in modo che possa ricevere l'input dalla tastiera. Il tipo di input da tastiera che è possibile indirizzare al controllo varia a seconda del tipo di controllo.

Nota   Se il controllo è disattivato o non è visibile dallo stato corrente, il metodo non avrà alcun effetto.

Sintassi

espressione.SetFocus

espressione   Obbligatoria. Espressione che restituisce un oggetto CommandBarControl, CommandBarButton, CommandBarPopup o CommandBarComboBox.


Esempio del metodo SetFocus

In questo esempio viene copiato il quarto controllo della barra dei comandi personalizzata "Custom" e il controllo viene quindi incollato nella stessa barra dei comandi, ma nella prima posizione. Viene inoltre assegnato un nuovo parametro al controllo e viene spostato lo stato attivo sul nuovo controllo.

Set mycontrol = CommandBars("Custom") _

    .Controls(4)

With mycontrol

.Copy Before:=1

.Parameter = "2"

.SetFocus

End With


Proprietà Text

Oggetto CommandBarComboBox: restituisce o imposta il testo nell'area di visualizzazione o modifica del controllo casella combinata della barra dei comandi. Valore String di lettura/scrittura.

Oggetto BalloonLabel o BalloonCheckbox: restituisce o imposta il testo visualizzato accanto alla casella di controllo o all'etichetta specificata nel fumetto dell'Assistente di Office. Valore String di lettura/scrittura.

Oggetto Balloon: restituisce o imposta il testo visualizzato dopo l'intestazione ma prima delle etichette o delle caselle di controllo nel fumetto dell'Assistente di Office. Valore String di lettura/scrittura.

Oggetto FileFind: restituisce o imposta la stringa, che può includere fino a 80 caratteri, da ricercare in un documento durante la ricerca di un file. Solo Macintosh. Valore String di lettura/scrittura.

Osservazioni

Per gli oggetti Balloon, BalloonLabel e BalloonCheckbox, è possibile specificare un grafico da visualizzare utilizzando la seguente sintassi: {tipo posizione fattore_ridimens}, dove tipo può essere bmp (bitmap), wmf (metafile Windows) o pict (file PICT Macintosh); posizione è l'ID di risorsa o il percorso e il nome di file e fattore_ridimens specifica la larghezza di wmf o pict (viene omesso per la bitmap).


Esempio della proprietà Text

In questo esempio viene controllato il numero di elementi del controllo casella combinata sulla barra dei comandi denominata "Custom". Se sono presenti più di tre elementi nell'elenco, l'elenco viene cancellato e viene aggiunto un nuovo primo elemento all'elenco. Il nuovo elemento predefinito per questo controllo è "Floyd".

Set myBar = CommandBars("Custom")

Set myControl = myBar.Controls(2)

With myControl

    If .ListCount > 3 Then

        .Clear

        .AddItem "Floyd", 1

        .Text = "Floyd"

    End If

End With

In questo esempio viene creato un fumetto dell'Assistente di Office con un'intestazione, testo e tre aree di scelta. La proprietà Text viene utilizzata per specificare un'etichetta per ogni casella di controllo.

With Assistant.NewBalloon

    .Heading = "Regional Sales Data "

    .Text = "Select a region"

    For i = 1 To 3

        .CheckBoxes(i).Text = "Region " & i

    Next

    .Show

End With

In questo esempio viene creato un fumetto dell'Assistente di Office con un'intestazione, testo e tre aree di scelta. La proprietà Text viene utilizzata per fornire all'utente istruzioni relative al fumetto.

With Assistant.NewBalloon

    .Heading = "Regional Sales Data"

    .Text = "Select a region"

    For i = 1 To 3

        .CheckBoxes(i).Text = "Region " & i

    Next

    .Show

End With


Proprietà Top

Oggetto CommandBar o CommandBarControl: restituisce o imposta la distanza, espressa in pixel, dal lato superiore della barra dei comandi o dal controllo barra dei comandi al lato superiore dello schermo. Per le barre dei comandi ancorate, questa proprietà restituisce o imposta la distanza dalla barra dei comandi alla parte superiore dell'area di ancoraggio. Valore Long di lettura/scrittura per CommandBar, valore Long di sola lettura per CommandBarControl.

Oggetto Assistant: imposta o restituisce la posizione verticale espressa in punti della finestra Assistente di Office in relazione allo schermo. Valore Integer di lettura/scrittura.


Esempio della proprietà Top

In questo esempio l'angolo superiore sinistro della barra dei comandi mobile denominata "Custom" viene posizionato a una distanza di 140 pixel dal lato sinistro dello schermo e a una distanza di 100 pixel dalla parte superiore dello schermo.

Set myBar = CommandBars("Custom")

myBar.Position = msoBarFloating

With myBar

    .Left = 140

    .Top = 100

End With

In questo esempio l'Assistente di Office viene spostato alla coordinata specificata.

Assistant.Top = 500


Proprietà HelpContextId

Restituisce o imposta il numero dell'ID di contesto per l'argomento della Guida allegato al controllo barra dei comandi. Valore Long di lettura/scrittura.

Osservazioni

Per utilizzare questa proprietà, è inoltre necessario impostare la proprietà HelpFile.


Esempio della proprietà HelpContextId

In questo esempio viene aggiunto al menu File un pulsante personalizzato per la gestione delle relazioni e viene specificato un argomento della Guida che verrà visualizzato come Guida sensibile al contesto relativa a tale pulsante.

Set fileMenu = CommandBars _

    .FindControl(Type:=msoControlPopup, Id:=fileID)

Set fileMenuDropdown = fileMenu.CommandBar

Set newButton = fileMenuDropdown.Controls _

    .Add(Type:=msoControlButton, Before:=3)

With newButton

    .Caption = "Open Report"

    .DescriptionText = " Opens a quarterly report form"

    .OnAction = "ReportManager"

    .HelpFile = "C:\corphelp\custom.hlp"

    .HelpContextID = 47

End With


Proprietà HelpFile

Restituisce o imposta il nome del file della Guida per l'argomento della Guida associato al controllo barra dei comandi. Valore String di lettura/scrittura.

Osservazioni

Per utilizzare questa proprietà, è inoltre necessario impostare la proprietà HelpContextID.


Esempio della proprietà HelpFile

In questo esempio viene aggiunto al menu File un pulsante personalizzato per la gestione delle relazioni e viene specificato un argomento della Guida che sarà visualizzato come Guida sensibile al contesto relativa a tale pulsante.

Set fileMenu = CommandBars _

   .FindControl(Type:=msoControlPopup, Id:=fileId)

Set fileMenuDropdown = fileMenu.CommandBar

Set newbutton = fileMenuDropdown.Controls _

    .Add(Type:=msoControlButton, Id:=customId, Before:=3)

With newButton

    .Caption = "Open Report"

    .DescriptionText = "Opens a quarterly report form"

    .OnAction = "ReportManager"

    .HelpFile = "C:\corphelp\custom.hlp"

    .HelpContextID = 47

End With


Proprietà LargeButtons

True se vengono visualizzati pulsanti grandi. Valore Boolean di lettura/scrittura.


Esempio della proprietà LargeButtons

In questo esempio vengono visualizzati pulsanti grandi sulla barra degli strumenti e suggerimenti su schermo per tutte le barre dei comandi se la barra dei menu principale attiva è denominata "Custom".

Set allBars = CommandBars

If allBars.ActiveMenuBar.Name = "Custom" Then

    allBars.LargeButtons = True

    allBars.ShowToolTips = True

End If


Proprietà List

Restituisce o imposta il valore di un elemento nell'elenco del controllo casella combinata della barra dei comandi. Valore String di lettura/scrittura.

Nota   Questa proprietà è di sola lettura per i controlli casella combinata predefiniti.

Sintassi

espressione.List(Index)

espressione   Obbligatoria. Espressione che restituisce un oggetto CommandBarComboBox.

Index   Valore Long obbligatorio. Voce dell'elenco che viene impostata.


Esempio della proprietà List

In questo esempio viene controllato il valore della quarta voce nell'elenco nel controllo casella combinata denominato "Vegetables" sulla barra dei comandi denominata "Custom". Se il valore è "Tomato", verrà eseguito il codice specificato dalla proprietà OnAction del controllo barra dei comandi.

Set myBar = CommandBars("Custom")

Set myControl = myBar.Controls("Vegetables")

If myControl.List(4) = "Tomatoes" Then myControl.Execute


Proprietà ListCount

Restituisce il numero di voci nell'elenco del controllo casella combinata della barra dei comandi specificata. Valore Long di sola lettura.


Esempio della proprietà ListCount

In questo esempio viene controllato il numero di voci nel controllo casella combinata sulla barra dei comandi denominata "Custom". Se nell'elenco sono presenti più di tre voci, l'elenco verrà cancellato e verrà aggiunta una nuova prima voce, che viene visualizzata come la voce predefinita per il controllo.

Set myBar = CommandBars("Custom")

Set myControl = myBar.Controls(2)

With myControl

    If .ListCount > 3 Then

        .Clear

        .AddItem Text:="Floyd", Index:=1

        .ListIndex = 1

    End If

End With


Proprietà ListHeaderCount

Restituisce o imposta il numero di voci nell'elenco del controllo casella combinata della barra dei comandi che viene visualizzato sopra la linea di separazione. Valore Long di lettura/scrittura.

Nota   Questa proprietà è di sola lettura per i controlli casella combinata predefiniti.

Osservazioni

Se la proprietà ListHeaderCount è impostata su  – 1, nel controllo casella combinata non sarà presente alcuna linea di separazione.


Esempio della proprietà ListHeaderCount

Nell'esempio seguente viene aggiunto un controllo casella combinata alla barra dei comandi denominata "Custom" e quindi vengono aggiunte due voci all'elenco della casella. Viene inoltre impostato il numero di righe, la larghezza della casella combinata e una casella vuota predefinita.

Set myBar = CommandBars("Custom")

Set myControl = myBar.Controls.Add(Type:=msoControlComboBox)

With myControl

    .AddItem Text:="First Item", Index:=1

    .AddItem Text:="Second Item", Index:=2

    .DropDownLines = 3

    .DropDownWidth = 75

    .ListHeaderCount = 1

End With


Proprietà ListIndex

Restituisce o imposta il numero di indice della voce selezionata nell'area a elenco del controllo casella combinata della barra dei comandi. Se nell'elenco non è selezionata alcuna voce, la proprietà restituisce zero. Valore Long di lettura/scrittura.

Nota   Questa proprietà non ha alcun effetto se è applicata a controlli diversi dai controlli elenco.

Osservazioni

Se la proprietà ListIndex viene impostata, il controllo specificato selezionerà una determinata voce e verrà eseguita l'azione appropriata all'interno dell'applicazione.


Esempio della proprietà ListIndex

In questo esempio viene eseguita una routine esistente in base alla selezione nella casella combinata. La casella può contenere un testo qualsiasi, poiché per determinare la routine da eseguire viene utilizzata la proprietà ListIndex o il numero di indice della voce di testo.

With myControl

    Select Case .ListIndex

        Case 1

            chartcourse

        Case 2

            displaygraph

        Case Else

           MsgBox "invalid choice"

    End Select

End With


Proprietà NameLocal

Restituisce il nome di una barra dei comandi predefinita come viene visualizzata nella versione di un'altra lingua dell'applicazione contenitore oppure restituisce o imposta il nome di una barra dei comandi personalizzata. Valore String di lettura/scrittura.

Nota   Se si cerca di impostare questa proprietà per una barra dei comandi predefinita, verrà generato un errore.

Osservazioni

Il nome locale di una barra dei comandi predefinita viene visualizzato nella barra del titolo quando la barra dei comandi non è ancorata e nell'elenco delle barre dei comandi disponibili nell'applicazione contenitore.

Se viene modificato il valore della proprietà LocalName per una barra dei comandi personalizzata, verrà modificato anche il valore di Name e viceversa.


Esempio della proprietà NameLocal

In questo esempio vengono visualizzati il nome e il nome localizzato della prima barra dei comandi nell'applicazione contenitore.

With CommandBars(1)

    MsgBox "The name of the command bar is " & .Name

    MsgBox "The localized name of the command bar is " & .NameLocal

End With


Proprietà OLEMenuGroup

Restituisce o imposta il gruppo di menu a cui appartiene il controllo popup della barra dei comandi specificata quando i gruppi di menu del server OLE vengono uniti con i gruppi di menu di un client OLE, ovvero quando un oggetto dell'applicazione contenitore viene incorporato in un'altra applicazione. Può essere rappresentata da una delle seguenti costanti MsoOLEMenuGroup: msoOleMenuGroupNone, msoOleMenuGroupFile, msoOleMenuGroupEdit, msoOleMenuGroupContainer, msoOleMenuGroupObject, msoOleMenuGroupWindow o msoOleMenuGroupHelp. Valore Long di lettura/scrittura.

Nota   Questa proprietà è di sola lettura per i controlli predefiniti.

Osservazioni

Per le aggiunte, questa proprietà consente di specificare in quale modo i relativi controlli delle barre dei comandi verranno rappresentati nell'applicazione Office. Se le barre dei comandi non vengono implementate nell'applicazione contenitore o server, verrà effettuata l'unione di menu OLE normale: verrà unita la barra dei menu e inoltre tutte le barre degli strumenti dal server, ma nessuna delle barre degli strumenti dell'applicazione contenitore. Questa proprietà è utile solo per i controlli popup sulla barra dei menu, poiché i menu vengono uniti in base alla relativa categoria di gruppo.

Se le barre dei comandi vengono implementate in entrambe le applicazioni, i controlli della barra dei comandi verranno uniti in base alla proprietà OLEUsage.


Esempio della proprietà OLEMenuGroup

In questo esempio viene controllata la proprietà OLEMenuGroup di un nuovo controllo popup aggiuntivo sulla barra dei menu attiva e la proprietà viene impostata su msoOLEMenuGroupNone.

Set myControl = ActiveMenuBar.Controls _

    .Add(Type:=msoControlPopup,Temporary:=False)

myControl.OLEMenuGroup = msoOLEMenuGroupNone


Proprietà OLEUsage

Restituisce o imposta le funzioni del client OLE e del server OLE in cui un controllo barra dei comandi verrà utilizzato quando due applicazioni Office vengono unite. Può essere rappresentata da una delle seguenti costanti MsoControlOLEUsage: msoControlOLEUsageNeither, msoControlOLEUsageServer, msoControlOLEUsageClient o msoControlOLEUsageBoth. Valore Long di lettura/scrittura.

Osservazioni

Questa proprietà consente di specificare in quale modo verranno rappresentati in un'applicazione Office i singoli controlli barra dei comandi di un aggiunta quando questa viene unita con un'altra applicazione Office. Se entrambi il client e il server implementano le barre dei comandi, i relativi controlli vengono incorporati nel client uno alla volta. I controlli aggiuntivi contrassegnati come solo del client (oppure né del client né del server) vengono eliminati dal client. I controlli rimanenti verranno uniti.

Se una delle applicazioni unite non è un'applicazione Office, verrà utilizzata l'unione OLE normale, controllata dalla proprietà OLEMenuGroup.


Esempio della proprietà OLEUsage

In questo esempio viene aggiunto un nuovo pulsante alla barra dei comandi denominata "Tools" e viene impostata la proprietà OLEUsage.

Set myControl = CommandBars("Tools").Controls _

    .Add(Type:=msoControlButton,Temporary:=True)

myControl.OLEUsage = msoControlOLEUsageNeither


Proprietà OnAction

Restituisce o imposta il nome della macro di Visual Basic che verrà eseguita quando l'utente modifica il valore o fa clic su un controllo della barra dei comandi. Valore String di lettura/scrittura.

Nota   L'applicazione contenitore determina se il valore è un nome di macro valido.


Esempio della proprietà OnAction

In questo esempio viene aggiunto un controllo alla barra dei comandi denominata "Custom" e viene impostata l'esecuzione della macro denominata "MySub" ogni volta che si fa clic sul pulsante.

Set myBar = .CommandBars("Custom")

Set myControl = myBar.Controls _

    .Add(Type:=msocontrolButton)

With myControl

    .FaceId = 2

    .OnAction = "MySub"

End With

myBar.Visible = True


Proprietà Parameter

Restituisce o imposta una stringa che può essere utilizzata da un'applicazione per eseguire un comando associato a un controllo barra dei comandi. Valore String di lettura/scrittura.

Osservazioni

Se il parametro viene impostato per un controllo incorporato, l'applicazione sarà in grado di modificarne il funzionamento predefinito se riesce ad analizzare e utilizzare il nuovo valore. Se il parametro viene impostato per controlli aggiuntivi, può essere utilizzato per inviare informazioni alle routine di Visual Basic oppure per memorizzare informazioni sul controllo (simile in questo a un secondo valore della proprietà Tag).


Esempio della proprietà Parameter

In questo esempio il quarto controllo sulla barra dei comandi personalizzata denominata "Custom" viene incollato nella posizione del primo controllo sulla stessa barra dei comandi. Viene quindi assegnato un nuovo parametro e spostato lo stato attivo sul nuovo pulsante.

Set myControl = CommandBars("Custom").Controls(4)

With myControl

    .Copy , 1

    .Parameter = "2"

    .SetFocus

End With


Metodo PasteFace

Incolla il contenuto degli Appunti sul controllo pulsante della barra dei comandi specificata.

Sintassi

espressione.PasteFace

espressione   Obbligatoria. Espressione che restituisce un oggetto CommandBarButton.


Esempio del metodo PasteFace

In questo esempio viene trovato il pulsante predefinito ApriFile e su di esso viene incollata un'icona personalizzata dagli Appunti precedentemente modificata dall'utente. Questo codice non avrà alcun effetto se negli Appunti non è già presente un'icona personalizzata. Utilizzare il metodo CopyFace per copiare un'icona di pulsante specifica negli Appunti.

Set myControl = CommandBars.FindControl(Type:=msoControlButton, Id:=23)

myControl.PasteFace


Proprietà Position

Restituisce o imposta la posizione della barra dei comandi specificata. Può essere rappresentata da una delle seguenti costanti MsoBarPosition: msoBarLeft, msoBarTop, msoBarRight, msoBarBottom, msoBarFloating, msoBarPopup o msoBarMenu. Valore Long di lettura/scrittura.


Esempio della proprietà Position

In questo esempio viene esaminato l'insieme delle barre dei comandi, le barre personalizzate vengono ancorate nella parte inferiore della finestra dell'applicazione e le barre predefinite vengono ancorate nella parte superiore.

For Each bar In CommandBars

    If bar.Visible = True Then

        If bar.BuiltIn Then

            bar.Position = msoBarTop

         Else

            bar.Position = msoBarBottom

        End If

    End If

Next


Proprietà Priority

Restituisce o imposta la priorità del controllo barra dei comandi specificato. Il livello di priorità di un controllo determina se il controllo può essere eliminato da una barra dei comandi se la barra è di dimensioni troppo grandi per occupare una sola riga. Valore Long di lettura/scrittura.

Osservazioni

Il valore di priorità 1 indica che il controllo non verrà mai eliminato. Per primi verranno eliminati i controlli con il valore di priorità più elevato.

Il valore di priorità 0 indica un valore "automatico", per il quale verrà scelta una priorità effettiva in base al tipo di controllo. Il valore di priorità 1 indica che il controllo non verrà mai eliminato. Gli altri valori di priorità validi sono comprese tra 2 e 7 e indicano che i controlli verranno eliminati in base al valore (iniziando dai valori più alti).


Esempio di proprietà Priority

In questo esempio viene spostato il primo controllo casella combinata dalla barra dei comandi personalizzata denominata "Custom" alla posizione precedente al settimo controllo sulla barra dei comandi, viene impostata l'etichetta "selection box" e quindi al controllo viene assegnata una priorità alta in modo tale che venga eliminato dalla barra se lo spazio di una riga non è sufficiente a contenere tutti i controlli.

Set allcontrols = CommandBars("Custom").Controls

For Each ctrl In allControls

    If ctrl.Type = msoControlComboBox Then

        With ctrl

            .Move Before:=7

            .Tag = "Selection box"

            .Priority = 5

        End With

    Exit For

End If

Next


Proprietà Protection

Restituisce o imposta la modalità di protezione della barra dei comandi specificata dalla personalizzazione da parte dell'utente. Può essere rappresentata da una o dalla somma delle seguenti costanti MsoBarProtection: msoBarNoProtection, msoBarNoCustomize, msoBarNoResize, msoBarNoMove, msoBarNoChangeVisible, msoBarNoChangeDock, msoBarNoVerticalDock o msoBarNoHorizontalDock. Valore Long di lettura/scrittura.


Esempio della proprietà Protection

In questo esempio viene esaminato l'insieme delle barre dei comandi allo scopo di trovare la barra denominata "Forms". Se la barra dei comandi viene trovata, verrà resa visibile e verrà protetto il relativo stato di ancoraggio.

foundFlag = False

For i = 1 To .CommandBars.Count

    If .CommandBars(i).Name = "Forms" Then

            .CommandBars(i).Protection = msoBarNoChangeDock

            .CommandBars(i).Visible = True

            foundFlag = True

    End If

Next

If Not foundFlag Then

    MsgBox "'Forms' command bar is not in the collection."

End If


Metodo ReleaseFocus

Rimuove lo stato attivo dell'interfaccia utente da tutte le barre dei comandi.

Sintassi

espressione.ReleaseFocus

espressione   Obbligatoria. Espressione che restituisce un oggetto CommandBars.


Esempio del metodo ReleaseFocus

In questo esempio viene rimosso lo stato attivo dell'interfaccia utente da tutte le barre dei comandi.

CommandBars.ReleaseFocus


Metodo RemoveItem

Rimuove una voce dell'elenco dal controllo casella combinata della barra dei comandi specificata.

Nota   Se la proprietà viene applicata a controlli diversi dai controlli di un elenco, verrà generato un errore.

Sintassi

espressione.RemoveItem(Index)

espressione   Obbligatoria. Espressione che restituisce un oggetto CommandBarComboBox.

Index   Valore Long obbligatorio. Elemento che verrà rimosso dall'elenco.


Esempio del metodo RemoveItem

Nell'esempio seguente viene verificato se sono presenti più di tre voci nella casella combinata denominata "Combo1" sulla barra dei comandi personalizzata denominata "Custom". Se esistono più di tre voci, verrà rimossa la seconda voce, verrà modificato lo stile in modo che l'etichetta della casella combinata non sia visualizzata e verrà impostato un nuovo valore. Verrà inoltre impostata la proprietà Tag dell'oggetto contenitore (l'oggetto CommandBarControl) in modo che la modifica dell'elenco risulti evidente.

Set myBar = CommandBars("Custom")

Set myControl = myBar.Controls("Combo1")

With myControl

    If .ListCount > 3 Then

        .RemoveItem 2

        .Style = msoComboNormal

        .Text = "New Default"

         Set ctrl = .Parent

         ctrl.Tag = "Contents Changed"

    End If

End With


Metodo Reset

Ripristina la configurazione predefinita dei controlli sulla barra dei comandi specificata oppure ripristina la funzione o l'immagine predefinita del controllo barra dei comandi incorporato specificato.

Sintassi

espressione.Reset

espressione   Obbligatoria. Espressione che restituisce un oggetto CommandBar, CommandBarControl, CommandBarButton, CommandBarPopup o CommandBarComboBox.

Osservazioni

Se viene reimpostato un controllo predefinito, verranno ripristinate le azioni originali a esso associate e lo stato originale di ogni proprietà relativa al controllo. Se viene reimpostata una barra dei comandi, verranno rimossi i controlli aggiuntivi e saranno ripristinati i controlli predefiniti.


Esempio del metodo Reset

In questo esempio il valore di user viene utilizzato per adattare le barre dei comandi al livello di esperienza dell'utente. Se per user viene specificato "Level 1", verrà visualizzata la barra dei comandi denominata "Custom". Se per user viene specificato un qualsiasi altro valore, verrà ripristinato lo stato predefinito della barra dei comandi di Visual Basic e la barra denominata "Custom" verrà disattivata.

Set myBar = CommandBars("Custom")

If user = "Level 1" Then

    myBar.Visible = True

Else

    .CommandBars("Visual Basic").Reset

    myBar.Enabled = False

End If


Proprietà RowIndex

Restituisce o imposta l'ordine di ancoraggio della barra dei comandi specificata in relazione alle altre barre dei comandi presenti nella stessa area di ancoraggio. Può essere rappresentata da un intero maggiore di zero o da una delle seguenti costanti: msoBarRowFirst o msoBarRowLast. Valore Long di lettura/scrittura.

Osservazioni

Le barre dei comandi con i valori più bassi vengono ancorate per prime. Lo stesso indice di riga può essere associato a diverse barre dei comandi. Se due o più barre condividono lo stesso indice di riga, all'interno del gruppo verrà visualizzata per prima la barra di assegnazione più recente.


Esempio della proprietà RowIndex

In questo esempio la posizione della barra dei comandi "Custom" viene adattata alle specifiche esigenze e spostata a sinistra di 110 pixel rispetto alla posizione predefinita. L'indice di riga della barra viene inoltre impostato su 1, in modo tale che la barra sia la prima a essere ancorata.

Set myBar = CommandBars("Custom")

With myBar

    .RowIndex = 1

    .Left = 140

End With


Metodo ShowPopup

Visualizza la barra dei comandi specificata sotto forma di un menu di scelta rapida posizionato in base alle coordinate specificate o alle coordinate del puntatore correnti.

Nota   Se la proprietà Position della barra dei comandi non è impostata su msoBarPopup, verrà generato un errore.

Sintassi

espressione.ShowPopup(x, y)

espressione   Obbligatoria. Espressione che restituisce un oggetto CommandBar.

x   Valore Variant facoltativo. Coordinata X per la posizione del menu di scelta rapida. Se l'argomento viene omesso, verrà utilizzata la coordinata X corrente del puntatore.

y   Valore Variant facoltativo. Coordinata Y per la posizione del menu di scelta rapida. Se l'argomento viene omesso, verrà utilizzata la coordinata Y corrente del puntatore.


Esempio del metodo ShowPopup

In questo esempio viene creato un menu di scelta rapida contenente due controlli. Il metodo ShowPopup viene utilizzato per rendere visibile il menu di scelta rapida.

Set myBar = CommandBars _

    .Add(Name:="Custom 1", Position:=msoBarPopup, Temporary:=False)

With myBar

    .Controls.Add Type:=msoControlButton, Id:=3

    .Controls.Add Type:=msoControlComboBox

End With

myBar.ShowPopup


Proprietà State

Restituisce o imposta l'aspetto del controllo pulsante della barra dei comandi specificata. Può essere rappresentata da una delle seguenti costanti MsoButtonState: msoButtonUp, msoButtonDown o msoButtonMixed. Valore Long di lettura/scrittura.


Esempio della proprietà State

In questo esempio viene specificato se il primo controllo della barra dei comandi denominata "Custom" dispone o meno di un'immagine predefinita. In caso affermativo, l'immagine del pulsante verrà copiata negli Appunti in modo da poterla personalizzare con un'applicazione quale Microsoft Paint. Lo stato del pulsante viene quindi impostato su msoButtonUp.

Set myControl = CommandBars("Custom").Controls(1)

With myControl

    If .BuiltInFace = True Then

        .CopyFace

    End If

    .State = msoButtonUp

End With


Proprietà Style

Oggetto CommandBarButton: restituisce o imposta la modalità di visualizzazione del controllo pulsante delle barre dei comandi specificate. Può essere rappresentata da una delle seguenti costanti MsoButtonStyle: msoButtonAutomatic, msoButtonIcon, msoButtonCaption o msoButtonIconandCaption. Valore Long di lettura/scrittura.

Oggetto CommandBarComboBox: restituisce o imposta la modalità di visualizzazione del controllo casella combinata della barra dei comandi specificata. Può essere rappresentata da una delle seguenti costanti MsoComboStyle: msoComboLabel o msoComboNormal. Valore Long di lettura/scrittura.


Esempio della proprietà Style

In questo esempio viene creato un menu di scelta rapida contenente un pulsante e una casella combinata e viene impostato lo stile di ognuno di essi.

Set myBar = CommandBars _

    .Add(Name:="Custom1", Position:=msoBarPopup, Temporary:=False)

With myBar

    .Controls.Add Type:=msoControlButton, Id:=3

    .Controls(1).Style = msoButtonCaption

    .Controls.Add Type:=msoControlComboBox

    With .Controls(2)

        .Style = msoComboLabel

        .AddItem "vanilla"

        .AddItem "chocolate"

        .AddItem "cookie dough"

    End With

End With

myBar.ShowPopup


Proprietà Tag

Restituisce o imposta le informazioni relative al controllo barra dei comandi, quali i dati che è possibile utilizzare come argomenti per le routine o che identificano il controllo. Valore String di lettura/scrittura.


Esempio della proprietà Tag

In questo esempio la prima casella combinata della barra dei comandi denominata "My Custom Bar" viene spostata nella posizione precedente al settimo controllo sulla barra dei comandi, quindi la relativa etichetta viene impostata su "selection box" e al controllo viene assegnata una priorità alta, in modo che esso venga eliminato dalla barra dei comandi se lo spazio di una riga non è sufficiente a contenerli tutti.

Set allControls = CommandBars("My Custom Bar").Controls

For Each ctrl In allControls

    If ctrl.Type = msoControlComboBox Then

        With ctrl

            .Move Before:=7

            .Tag = "Selection box"

            .Priority = 5

        End With

        Exit For

    End If

Next


Proprietà TooltipText

Restituisce o imposta il testo visualizzato nei suggerimenti su schermo relativi al controllo della barra dei comandi specificato. Valore String di lettura/scrittura.

Osservazioni

Per impostazione predefinita, come suggerimento sullo schermo viene utilizzato il valore della proprietà Caption.


Esempio della proprietà TooltipText

In questo esempio l'ultimo controllo della barra dei menu attiva viene impostato in modo da dare origine a un proprio gruppo e quindi viene aggiunto un suggerimento su schermo relativo a esso.

Set myMenuBar = CommandBars.ActiveMenuBar

Set lastCtrl = myMenuBar _

   .Controls(myMenuBar.Controls.Count)

lastCtrl.BeginGroup = True

lastCtrl.TooltipText = "Click for help on UI feature"

End With


Proprietà ActiveMenuBar

Restituisce un oggetto CommandBar che rappresenta la barra dei menu attiva nell'applicazione contenitore. Di sola lettura.


Esempio della proprietà ActiveMenuBar

In questo esempio un controllo popup temporaneo denominato "Custom" viene posizionato in fondo alla barra dei menu attiva. Viene quindi aggiunto un pulsante denominato "Import" alla barra dei comandi visualizzata dal controllo.

Set myMenuBar = CommandBars.ActiveMenuBar

Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, Temporary:=True)

newMenu.Caption = "Custom"

Set ctrl1 = newMenu.CommandBar.Controls _

    .Add(Type:=msoControlButton, Id:=1)

With ctrl1

    .Caption = "Import"

    .TooltipText = "Import"

    .Style = msoButtonCaption

End With


Metodo AddItem

Aggiunge una voce dell'elenco al controllo casella combinata della barra dei comandi specificata. La casella combinata deve essere un controllo aggiuntivo e deve essere una casella di riepilogo a discesa o una casella combinata.

Nota   Se questo metodo viene applicato a una casella combinata che è una casella di modifica o una casella combinata predefinita, verrà generato un errore.

Sintassi

espressione.AddItem(Text, Index)

espressione   Obbligatoria. Espressione che restituisce un oggetto CommandBarComboBox.

Text   Valore String obbligatorio. Voce che deve essere aggiunta al controllo specificato.

Index   Valore Variant facoltativo. Posizione della voce specificata all'interno del relativo elenco. Se l'argomento viene omesso, la voce verrà aggiunta in fondo all'elenco.


Esempio del metodo AddItem

In questo esempio viene aggiunta una casella combinata alla barra dei comandi denominata "Custom" e quindi vengono inserite due voci nell'elenco. Viene inoltre impostato il numero di righe, la larghezza della casella combinata e una casella vuota predefinita.

Set myBar = CommandBars("Custom")

Set myControl = myBar.Controls.Add(Type:=msoControlComboBox, Id:=1)

With myControl

    .AddItem "First Item", 1

    .AddItem "Second Item", 2

    .DropDownLines = 3

    .DropDownWidth = 75

    .ListHeaderCount = 0

End With


Proprietà BeginGroup

True se il controllo barra dei comandi specificato è posizionato all'inizio di un gruppo di controlli sulla barra dei comandi. Valore Boolean di lettura/scrittura.


Esempio della proprietà BeginGroup

In questo esempio l'ultimo controllo sulla barra dei menu attiva viene impostato in modo da essere il primo del relativo gruppo.

Set myMenuBar = CommandBars.ActiveMenuBar

Set lastMenu = myMenuBar _

    .Controls(myMenuBar.Controls.Count)

lastMenu.BeginGroup = True


Proprietà BuiltIn

True se la barra dei comandi o il controllo barra dei comandi specificato è una barra dei comandi o un controllo predefinito dell'applicazione contenitore. False se è un controllo aggiuntivo o un controllo predefinito per il quale è stata impostata la proprietà OnAction. Valore Boolean di lettura/scrittura.


Esempio della proprietà BuiltIn

In questo esempio vengono eliminate tutte le barre dei comandi personalizzate che non sono visibili.

foundFlag = False

deletedBars = 0

For Each bar In CommandBars

    If (bar.BuiltIn = False) And (bar.Visible = False) Then

        bar.Delete

        foundFlag = True

        deletedBars = deletedBars + 1

    End If

Next

If Not foundFlag Then

    MsgBox "No command bars have been deleted."

Else

    MsgBox deletedBars & " custom command bar(s) deleted."

End If


Proprietà BuiltInFace

True se l'immagine del controllo pulsante della barra dei comandi specificata è quella predefinita. Questa proprietà può essere impostata solo su True, impostazione che consente di ripristinare l'immagine predefinita. Valore Boolean di lettura/scrittura.


Esempio della proprietà BuiltInFace

In questo esempio viene specificato se l'immagine del primo controllo sulla barra dei comandi denominata "Custom" è o meno quella predefinita. In caso affermativo, l'immagine del pulsante verrà copiata negli Appunti.

Set myControl = CommandBars("My Custom Bar").Controls(1)

With myControl

    If .BuiltInFace = True Then .CopyFace

End With


Proprietà Caption

Restituisce o imposta il testo della didascalia per il controllo barra dei comandi specificato. Valore String di lettura/scrittura.

Nota   La didascalia di un controllo corrisponde inoltre al suggerimento su schermo visualizzato per lo stesso controllo.


Esempio della proprietà Caption

In questo esempio viene aggiunto un controllo con l'immagine di un pulsante per il correttore ortografico a una barra dei comandi personalizzata e la relativa didascalia viene quindi impostata su "Spelling checker".

Set myBar = CommandBars.Add(Name:="Custom", _

Position:=msoBarTop, Temporary:=True)

myBar.Visible = True

Set myControl = myBar.Controls _

.Add(Type:=msoControlButton, Id:=2)

With myControl

    .DescriptionText = "Starts the spelling checker"

    .Caption = "Spelling checker"

End With


Metodo Clear

Rimuove tutte le voci dell'elenco dal controllo casella combinata della barra dei comandi specificata (casella di riepilogo a discesa o casella combinata) ed elimina la casella di testo (casella di modifica o casella combinata).

Nota   Se questo metodo viene applicato a un controllo di una barra dei comandi predefinita, verrà generato un errore.

Sintassi

espressione.Clear

espressione   Obbligatoria. Espressione che restituisce un oggetto CommandBarComboBox.


Esempio del metodo Clear

In questo esempio viene controllato il numero di voci disponibili nella casella combinata denominata "Names" sulla barra dei comandi "Custom". Se nell'elenco sono presenti più di tre voci, l'elenco verrà cancellato e verrà aggiunta una nuova prima voce che diventerà quella predefinita per la casella combinata.

Set myBar = CommandBars("Custom Bar")

Set myControl = myBar.Controls("Names")

With myControl

    If .ListCount > 3 Then

        .Clear

        .AddItem Text:="Bendel", Index:=1

        .ListIndex = 1

    End If

End With


Proprietà CommandBar

Restituisce un oggetto CommandBar che rappresenta il menu visualizzato dal controllo popup specificato. Di sola lettura.


Esempio della proprietà CommandBar

In questo esempio thirdLevel viene impostata sul quarto controllo della barra dei comandi denominata "Drawing".

Set thirdLevel = CommandBars("Drawing") _

    .Controls(1).CommandBar.Controls(4)


Proprietà Controls

Restituisce un oggetto CommandBarControls che rappresenta tutti i controlli sulla barra dei comandi o sul controllo popup specificato. Di sola lettura.

Per informazioni sulla restituzione di un singolo oggetto di un insieme, vedere Restituzione di un oggetto da un insieme.


Esempio della proprietà Controls

In questo esempio viene aggiunta una casella combinata alla barre dei comandi denominata "Custom" e vengono inserite due voci nel relativo elenco. Vengono inoltre impostati il numero di righe, la larghezza della casella combinata e una casella vuota predefinita.

Set myControl = CommandBars("Custom").Controls _

    .Add(Type:=msoControlComboBox, Before:=1)

With myControl

    .AddItem Text:="First Item", Index:=1

    .AddItem Text:="Second Item", Index:=2

    .DropDownLines = 3

    .DropDownWidth = 75

    .ListHeaderCount = 0

End With


Metodo CopyFace

Copia negli Appunti l'immagine del controllo pulsante della barra dei comandi specificata.

Sintassi

espressione.CopyFace

espressione   Obbligatoria. Espressione che restituisce un oggetto CommandBarButton.

Osservazioni

Per incollare il contenuto degli Appunti sull'immagine di un pulsante, è possibile utilizzare il metodo PasteFace.


Esempio del metodo CopyFace

In questo esempio viene trovato il pulsante predefinito Apri e la relativa immagine viene copiata negli Appunti.

Set myControl = CommandBars.FindControl(Type:=msoControlButton, Id:=23)

myControl.CopyFace


Proprietà DescriptionText

Restituisce o imposta la descrizione del controllo barra dei comandi specificato. Quando l'utente posiziona il puntatore su un controllo della barra dei comandi, la relativa descrizione viene visualizzata nella barra di stato dell'applicazione contenitore. Valore String di lettura/scrittura.

Osservazioni

La barra di stato non viene visualizzata in tutte le applicazioni. Questa proprietà viene inoltre utilizzata per gli Aiuti in ambiente Macintosh.


Esempio della proprietà DescriptionText

In questo esempio viene aggiunto un controllo con l'immagine di un pulsante per il controllo ortografico a una barra dei comandi personalizzata. Viene inoltre impostata la visualizzazione del testo "Starts the spelling checker" nella barra di stato ogni volta che l'utente posiziona il puntatore sul pulsante.

Set myBar = CommandBars.Add("Custom", msoBarTop, , True)

myBar.Visible = True

Set myControl = myBar.Controls _

.Add(Type:=msoControlButton, Id:=2)

With myControl

    .DescriptionText = "Starts the spelling checker"

    .Caption = "Spelling checker"

End With


Proprietà DisplayTooltips

True se i suggerimenti su schermo vengono visualizzati ogni volta che l'utente posiziona il puntatore sui controlli barra dei comandi. Valore Boolean di lettura/scrittura.

Osservazioni

L'impostazione della proprietà DisplayTooltips in un'applicazione contenitore influenza in modo immediato tutte le barre dei comandi dell'applicazione e di qualsiasi altra applicazione Office 97 in esecuzione e aperta successivamente, fino a quando la proprietà non viene impostata di nuovo.


Esempio della proprietà DisplayTooltips

In questo esempio vengono visualizzati controlli grandi e suggerimenti su schermo per tutte le barre dei comandi, se la barra dei menu denominata "Custom Menu Bar" è la barra dei menu attiva.

Set allBars = CommandBars

If allBars.ActiveMenuBar.Name = "Custom Menu Bar" Then

    allBars.LargeButtons = True

    allBars.DisplayTooltips = True

End If


Proprietà DropDownLines

Restituisce o imposta il numero di righe nel controllo casella combinata della barra dei comandi specificata. La casella combinata deve essere un controllo personalizzato e deve essere una casella di riepilogo a discesa o una casella combinata. Valore Long di lettura/scrittura.

Nota   Se questa proprietà viene impostata per una casella combinata che è una casella di modifica o una casella combinata predefinita, verrà generato un errore.

Osservazioni

Se questa proprietà viene impostata su 0 (zero), il numero di righe nel controllo verrà determinato in base al numero di voci nell'elenco.


Esempio della proprietà DropDownLines

In questo esempio viene aggiunta una casella combinata alla barra dei comandi denominata "Custom" e vengono quindi inserite due voci all'elenco della casella. Vengono inoltre impostati il numero di righe, la larghezza della casella combinata e una casella predefinita vuota.

Set myBar = CommandBars("Custom")

Set myControl = myBar.Controls.Add(Type:=msoControlComboBox, Id:=1)

With myControl

    .AddItem Text:="First Item", Index:=1

    .AddItem "Second Item", 2

    .DropDownLines = 3

    .DropDownWidth = 75

    .ListHeaderCount = 0

End With


Proprietà DropDownWidth

Restituisce o imposta la larghezza, espressa in pixel, dell'elenco per il controllo casella combinata della barra dei comandi specificata. Valore Long di lettura/scrittura.

Nota   Se questa proprietà viene impostata per una casella combinata predefinita, verrà generato un errore.

Osservazioni

Se questa proprietà viene impostata su  -1, la larghezza dell'elenco verrà basata sulla larghezza della voce più lunga nella casella. Se la proprietà viene impostata su 0, la larghezza dell'elenco verrà basata su quella del controllo.


Esempio della proprietà DropDownWidth

In questo esempio viene aggiunta una casella combinata alla barra dei comandi denominata "Custom" e quindi vengono aggiunte due voci all'elenco della casella. Vengono inoltre impostati il numero di righe, la larghezza della casella combinata e una casella predefinita vuota.

Set myBar = CommandBars("Custom")

Set myControl = myBar.Controls.Add(Type:=msoControlComboBox, Id:=1)

With myControl

    .AddItem "First Item", 1

    .AddItem "Second Item", 2

    .DropDownLines = 3

    .DropDownWidth = 75

    .ListHeaderCount = 0

End With


Proprietà Enabled

True se la barra dei comandi o il controllo barra dei comandi sono attivati. Valore Boolean di lettura/scrittura.

Osservazioni

Per le barre dei comandi, se la proprietà è impostata su True, il nome della barra verrà visualizzata nell'elenco delle barre dei comandi disponibili.

Per i controlli predefiniti, se la proprietà Enabled è impostata su True, il relativo stato verrà determinato dall'applicazione, ma se è impostata su False verrà disattivata.


Esempio della proprietà Enabled

In questo esempio le barre dei comandi vengono adattate al livello di esperienza dell'utente specificato dall'argomento user. Se per user viene specificato "Level 1", verrà visualizzata la barra dei comandi denominata "VB Custom Bar". Se per user viene impostato un qualsiasi altro valore, verrà ripristinato lo stato predefinito della barra dei comandi "Visual Basic" predefinita e la barra "VB Custom Bar" verrà disattivata.

Set myBar = CommandBars("VB Custom Bar")

If user = "Level 1" Then

    myBar.Visible = True

Else

    CommandBars("Visual Basic").Reset

    myBar.Enabled = False

End If

In questo esempio vengono aggiunti due pulsanti alla barra dei comandi rappresentata dalla variabile myBar. Il primo controllo viene disattivato e apparirà ombreggiato. Il secondo controllo viene attivato per impostazione predefinita.

With myBar

    .Controls.Add Type:=msoControlButton, Id:=3

    .Controls(1).Enabled = False

    .Controls.Add Type:=msoControlButton, Id:=3

End With

myBar.Visible = True


Proprietà FaceId

Restituisce o imposta il numero di identificazione relativo all'immagine del pulsante correntemente assegnata al controllo pulsante della barra dei comandi specificata. Valore Long di lettura/scrittura.

Osservazioni

La proprietà FaceId determina l'aspetto, ma non la funzione, di un pulsante di una barra dei comandi. La proprietà Id dell'oggetto CommandBarControl determina invece la funzione del pulsante.

Il valore della proprietà FaceId per un pulsante di una barra dei comandi a cui è associata un'immagine personalizzata è 0 (zero).


Esempio della proprietà FaceId

In questo esempio viene aggiunto un pulsante a una barra dei comandi personalizzata. Facendo clic su questo pulsante si otterrà un effetto equivalente a scegliere il comando Apri del menu File poiché il numero di identificazione è 23, anche se l'immagine del pulsante è uguale a quella del pulsante Grafici. Se si fa clic sul pulsante, verrà visualizzata la finestra di dialogo Apri.

Set newBar = CommandBars.Add(Name:="Custom2", _

     Position:=msoBarTop, Temporary:=True)

newBar.Visible = True

Set con = newBar.Controls.Add(Type:=msoControlButton, Id:=23)

con.FaceId = 17


Metodo FindControl

Restituisce un oggetto CommandBarControl che soddisfa i criteri specificati.

Sintassi

espressione.FindControl(Type, Id, Tag, Visible, Recursive)

espressione   Obbligatoria. Espressione che restituisce un oggetto CommandBars.

Type   Valore Variant facoltativo. Tipo di controllo di cui si desidera eseguire la ricerca. Può essere rappresentata da una delle seguenti costanti MsoControlType:

msoControlCustom msoControlButton msoControlEdit msoControlDropdown msoControlComboBox msoControlButtonDropdown msoControlSplitDropdown msoControlGenericDropdown msoControlGraphicCombo msoControlSplitButtonMRUPopup msoControlSplitExpandingGrid	msoControlGraphicDropdown msoControlPopup msoControlGraphicPopup msoControlButtonPopup msoControlGauge msoControlLabel msoControlExpandingGrid msoControlGrid msoControlOCXDropDown msoControlSplitButtonPopup
Id   Valore Variant facoltativo. Identificatore del controllo di cui si desidera eseguire la ricerca.

Tag   Valore Variant facoltativo. Valore dell'etichetta del controllo di cui si desidera eseguire la ricerca.

Visible    Valore Variant facoltativo. Per includere nella ricerca solo i controlli della barra dei comandi visibili, deve essere impostata su True. Il valore predefinito è False.

Recursive    Valore Boolean facoltativo. Per includere nella ricerca la barra dei comandi e tutte le relative barre popup secondarie, deve essere impostata su True. Il valore predefinito è False.

Osservazioni

Se l'insieme CommandBars contiene due o più controlli che soddisfano i criteri di ricerca, FindControl restituirà il primo controllo trovato. Se non viene trovato alcun controllo che soddisfa i criteri di ricerca, FindControl restituirà Nothing. Per nessuno degli argomenti del metodo FindControl è disponibile un valore predefinito.


Esempio del metodo FindControl

In questo esempio viene aggiunto il pulsante Salva al menu ? disponibile nella barra dei menu. Il metodo FindControl garantisce che il menu ? verrà trovato anche se la barra dei menu è stata personalizzata.

Set helpMenu = CommandBars.FindControl _

    (Type:=msoControlPopup, Id:=helpId)

Set helpMenuDrop = helpMenu.Control.CommandBar

helpMenuDrop.Controls.Add Type:=msoControlButton, Id:=saveId


barra dei comandi

Oggetto programmabile che viene utilizzato in Visual Basic per controllare un menu o una barra degli strumenti. Gli oggetti CommandBar rappresentano tutti i seguenti oggetti:

•	Barre dei menu, barre degli strumenti e menu di scelta rapida

•	Menu su barre dei menu e barre degli strumenti

•	Sottomenu e menu di scelta rapida


controllo barra dei comandi

Controllo predefinito o aggiuntivo posizionato su una barra dei menu, una barra degli strumenti, un menu, un sottomenu o un menu di scelta rapida. I controlli aggiuntivi che è possibile inserire sulle barre dei comandi includono pulsanti, caselle di modifica, caselle di riepilogo a discesa, caselle combinate e controlli popup, ovvero controlli che visualizzano un menu o un sottomenu.


controllo pulsante

Pulsante su una barra degli strumenti o voce di menu in un menu, sottomenu o menu di scelta rapida che esegue un comando quando si fa clic su di esso. I pulsanti sulle barre degli strumenti e le voci di menu utilizzano le stesse proprietà e gli stessi metodi.

Sulle barre degli strumenti, i controlli pulsante possono essere visualizzati solo come un'icona, come un'icona e una didascalia o solo come una didascalia. Nei menu, i controlli pulsante possono essere visualizzati come un'icona e una didascalia oppure solo come una didascalia.


controllo casella combinata

Casella di modifica personalizzata, casella di riepilogo a discesa o casella combinata su una barra dei menu, barra degli strumenti, menu, sottomenu o menu di scelta rapida. Una casella combinata personalizzata può essere visualizzata con o senza un'etichetta. Quando una barra degli strumenti è ancorata in senso verticale, i controlli casella combinata personalizzati in essa contenuti non sono visibili.

Numerosi controlli predefiniti, quali il pulsante Annulla, sono anch'essi considerati controlli casella combinata. Tuttavia, la maggior parte delle proprietà e dei metodi per la modifica di caselle combinate non sono disponibili per tali controlli.


controllo popup

Controllo predefinito o aggiuntivo su una barra dei menu o una barra degli strumenti che visualizza un menu quando si fa clic su di esso oppure una voce predefinita o aggiuntiva di un menu, sottomenu o menu di scelta rapida che visualizza un sottomenu quando il puntatore viene posizionato su di essa .

Numerosi controlli predefiniti, quali il pulsante Colore carattere, sono anch'essi considerati controlli popup. La maggior parte delle proprietà e dei metodi per la modifica di controlli popup non è tuttavia disponibile per questi controlli predefiniti.


Insieme CommandBars

Insieme di oggetti CommandBar che rappresenta le barre dei comandi dell'applicazione contenitore.

Utilizzo dell'insieme CommandBars

Utilizzare la proprietà CommandBars per restituire l'insieme CommandBars. Nell'esempio seguente, nella finestra Immediata vengono visualizzati il nome e il nome locale di ogni menu e barra degli strumenti, nonché un valore che indica se la barra dei menu o la barra degli strumenti è visibile o meno.

For Each cbar in CommandBars

    Debug.Print cbar.Name, cbar.NameLocal, cbar.Visible

Next

Utilizzare il metodo Add per aggiungere una nuova barra dei comandi all'insieme. Nell'esempio seguente viene creata una barra degli strumenti personalizzata denominata "Personalizzata1" che viene visualizzata come una barra degli strumenti mobile.

Set cbar1 = CommandBars.Add(Name:="Custom1", Position:=msoBarFloating)

cbar1.Visible = True

Utilizzare CommandBars(indice), dove indice è il nome o il numero di indice di una barra dei comandi per restituire un oggetto CommandBar singolo. Nell'esempio seguente la barra degli strumenti denominata "Custom1" viene ancorata nella parte inferiore della finestra dell'applicazione.

CommandBars("Custom1").Position = msoBarBottom

Nota   Per specificare una barra dei menu o una barra degli strumenti esistente nell'elenco delle barre disponibili all'interno dell'applicazione contenitore, è possibile utilizzare il nome o il numero di indice. Per specificare un menu, un menu di scelta rapida o un sottomenu (tutti rappresentati da oggetti CommandBar), è tuttavia necessario utilizzare il nome.

Se due o più menu o sottomenu personalizzati hanno lo stesso nome, CommandBars(indice) restituirà il primo nome. Per garantire che venga restituito il menu o il sottomenu corretto, individuare il controllo popup che consente di visualizzare tale menu. Applicare quindi la proprietà CommandBar al controllo popup per restituire la barra dei comandi che rappresenta tale menu.


Oggetto CommandBar

Rappresenta una barra dei comandi nell'applicazione contenitore. L'oggetto CommandBar è un membro dell'insieme CommandBars.

Utilizzo dell'oggetto CommandBar

Utilizzare CommandBars(indice), dove indice è il nome o il numero di indice di una barra dei comandi per restituire un oggetto CommandBar. Nell'esempio seguente viene esaminato l'insieme delle barre dei comandi allo scopo di trovare la barra dei comandi denominata "Form". Se la barra viene trovata, verrà visualizzata e verrà protetto il relativo stato di ancoraggio. In questo esempio la variabile cb rappresenta un oggetto CommandBar.

foundFlag = False

For Each cb In CommandBars

    If cb.Name = "Forms" Then

        cb.Protection = msoBarNoChangeDock

        cb.Visible = True

        foundFlag = True

    End If

Next cb

If Not foundFlag Then

    MsgBox "The collection does not contain a Forms command bar."

End If

Per specificare una barra dei menu o una barra degli strumenti esistente nell'elenco delle barre disponibili all'interno dell'applicazione contenitore, è possibile utilizzare il nome o il numero di indice. Per specificare un menu, un menu di scelta rapida o un sottomenu (tutti rappresentati da oggetti CommandBar), è tuttavia necessario utilizzare il nome. In questo esempio viene aggiunta un nuova voce di menu in fondo al menu Strumenti. Quando si fa clic sulla nuova voce di menu, verrà avviata la routine denominata "qtrReport".

Set newItem = CommandBars("Tools").Controls.Add(Type:=msoControlButton)

With newItem

    .BeginGroup = True

    .Caption = "Make Report"

    .FaceID = 0

    .OnAction = "qtrReport"

End With

Se due o più menu o sottomenu personalizzati hanno lo stesso nome, CommandBars(indice) restituirà il primo nome. Per garantire che venga restituito il menu o il sottomenu corretto, individuare il controllo popup che consente di visualizzare tale menu. Applicare quindi la proprietà CommandBar al controllo popup per restituire la barra dei comandi che rappresenta tale menu.

In questo esempio si presume che il terzo controllo sulla barra degli strumenti denominata "Custom Tools" sia un controllo popup. Viene quindi aggiunto il comando Salva in fondo a tale menu.

Set viewMenu = CommandBars("Custom Tools").Controls(3).CommandBar

viewMenu.Controls.Add ID:=3    'ID of Save command is 3


Insieme CommandBarControls

Insieme di oggetti CommandBarControl che rappresenta i controlli barra dei comandi su una barra dei comandi.

Utilizzo dell'insieme CommandBarControls

Utilizzare la proprietà Controls per restituire l'insieme CommandBarControls. Nell'esempio seguente la didascalia di ogni controllo della barra degli strumenti denominata "Standard" viene modificata nel valore corrente della proprietà Id relativa al controllo.

For Each ctl In CommandBars("Standard").Controls

ctl.Caption = CStr(ctl.Id)

Next ctl

Utilizzare il metodo Add per aggiungere un nuovo controllo barra dei comandi all'insieme CommandBarControls. In questo esempio viene aggiunto un pulsante vuoto alla barra dei comandi denominata "Custom".

Set myBlankBtn = CommandBars("Custom").Controls.Add

Per restituire un oggetto CommandBarControl, CommandBarButton, CommandBarComboBox o CommandBarPopup, è possibile utilizzare Controls(indice), dove indice è la didascalia o il numero di indice di un controllo. Nell'esempio seguente il primo controllo della barra dei comandi denominata "Standard" viene copiato nella barra dei comandi denominata "Custom".

Set myCustomBar = CommandBars("Custom")

Set myControl = CommandBars("Standard").Controls(1)

myControl.Copy Bar:=myCustomBar, Before:=1


Oggetto CommandBarControl

Rappresenta un controllo barra dei comandi. L'oggetto CommandBarControl è un membro dell'insieme CommandBarControls. Tutte le proprietà e i metodi dell'oggetto CommandBarControl sono condivisi dagli oggetti CommandBarButton, CommandBarComboBox e CommandBarPopup.

Nota   Quando si scrive codice di Visual Basic che verrà utilizzato per lavorare con i controlli barra dei comandi aggiuntivi, è possibile utilizzare gli oggetti CommandBarButton, CommandBarComboBox e CommandBarPopup. Quando si scrive codice che verrà utilizzato per controlli predefiniti dell'applicazione contenitore che non possono essere rappresentati da uno dei tre oggetti, è possibile utilizzare l'oggetto CommandBarControl.

Utilizzo dell'oggetto CommandBarControl

Utilizzare Controls(indice), dove indice è il numero di indice di un controllo per restituire un oggetto CommandBarControl. La proprietà Type del controllo deve essere impostata su msoControlLabel, msoControlExpandingGrid, msoControlSplitExpandingGrid, msoControlGrid o msoControlGauge.

Nota   Alle variabili dichiarate come CommandBarControl è possibile assegnare i valori CommandBarButton, CommandBarComboBox e CommandBarPopup.

Per restituire un oggetto CommandBarControl è inoltre possibile utilizzare il metodo FindControl. Nell'esempio seguente viene eseguita la ricerca di un controllo del tipo msoControlGauge. Se ne viene trovato uno, verrà visualizzato il numero di indice del controllo e il nome della barra dei comandi che lo include. In questo esempio la variabile lbl rappresenta un oggetto CommandBarControl.

Set lbl = CommandBars.FindControl(Type:= msoControlGauge)

If lbl Is Nothing Then

    MsgBox "A control of type msoControlGauge was not found."

Else

    MsgBox "Control " & lbl.Index & " on command bar " _

        & lbl.Parent.Name & " is type msoControlGauge"

End If


Oggetto CommandBarButton

Rappresenta un controllo pulsante su una barra dei comandi.

Utilizzo dell'oggetto CommandBarButton

Utilizzare Controls(indice), dove indice è il numero di indice del controllo per restituire un oggetto CommandBarButton. La proprietà Type del controllo deve essere impostata su msoControlButton.

In questo esempio si presume che il secondo controllo sulla barra dei comandi denominata "Custom" sia un controllo pulsante. Viene quindi modificato lo stile del pulsante.

Set c = CommandBars("Custom").Controls(2)

With c

If .Type = msoControlButton Then

    If .Style = msoButtonIcon Then

        .Style = msoButtonIconAndCaption

    Else

        .Style = msoButtonIcon

    End If

End If

End With

Per restituire un oggetto CommandBarButton, è inoltre possibile utilizzare il metodo FindControl.


Oggetto CommandBarComboBox

Rappresenta un controllo casella combinata su una barra dei comandi.

Utilizzo dell'oggetto CommandBarComboBox

Utilizzare Controls(indice), dove indice è il numero di indice del controllo per restituire un oggetto CommandBarComboBox. La proprietà Type del controllo deve essere impostata su msoControlEdit, msoControlDropdown, msoControlComboBox, msoControlButtonDropdown, msoControlSplitDropdown, msoControlOCXDropdown, msoControlGraphicCombo o msoControlGraphicDropdown.

Nell'esempio seguente vengono aggiunte due voci al secondo controllo della barra dei comandi denominata "Custom" e quindi vengono adattate le dimensioni del controllo.

Set combo = CommandBars("Custom").Controls(2)

With combo

    .AddItem "First Item", 1

    .AddItem "Second Item", 2

    .DropDownLines = 3

    .DropDownWidth = 75

    .ListIndex = 0

End With

Per restituire un oggetto CommandBarComboBox, è inoltre possibile utilizzare il metodo FindControl. Nell'esempio seguente viene eseguita in tutte le barre dei comandi la ricerca di un oggetto CommandBarComboBox visibile la cui etichetta è impostata su "assegnazioni di fogli".

Set myControl = CommandBars.FindControl _

(Type:=msoControlComboBox, Tag:="sheet assignments", Visible:=True)


Oggetto CommandBarPopup

Rappresenta un controllo popup su una barra dei comandi.

Utilizzo dell'oggetto CommandBarPopup

Utilizzare Controls(indice), dove indice è il numero di indice del controllo per restituire un oggetto CommandBarPopup. La proprietà Type del controllo deve essere impostata su msoControlPopup, msoControlGraphicPopup, msoControlButtonPopup, msoControlSplitButtonPopup o msoControlSplitButtonMRUPopup.

Per restituire un oggetto CommandBarPopup, è inoltre possibile utilizzare il metodo FindControl. Nell'esempio seguente viene eseguita in tutte le barre dei comandi la ricerca di un oggetto CommandBarPopup la cui etichetta è impostata su "Graphics".

Set myControl = Application.CommandBars.FindControl _

(Type:=msoControlPopup, Tag:="Graphics")

Osservazioni

Ogni controllo popup include un oggetto CommandBar. Per restituire la barra dei comandi da un controllo popup, è possibile applicare la proprietà CommandBar all'oggetto CommandBarPopup.


Proprietà FileType

Oggetto FileSearch: restituisce o imposta il tipo di file di cui si desidera eseguire la ricerca. Può essere rappresentato da una delle seguenti costanti MsoFileType: msoFileTypeAllFiles, msoFileTypeBinders, msoFileTypeDatabases, msoFileTypeExcelWorkbooks, msoFileTypeOfficeFiles, msoFileTypePowerPointPresentations, msoFileTypeTemplates o msoFileTypeWordDocuments. Il valore predefinito è msoFileTypeOfficeFiles. Valore Variant di lettura/scrittura.

Oggetto FileFind: restituisce o imposta il tipo di file di cui si desidera eseguire la ricerca. Può essere impostato su un numero restituito dalla funzione MacId. Solo Macintosh. Valore Long di lettura/scrittura.

Osservazioni

Per restituire il tipo di file Macintosh appropriato, per la funzione MacID è possibile utilizzare gli argomenti riportati nella seguente tabella.

Tipo file	Argomento
Documento di Word	MSWD
Cartella di lavoro di Microsoft Excel	XCEL
Presentazione di PowerPoint	PPT3 (per tutte le versioni di PowerPoint)
File di testo	TTXT


Esempio della proprietà FileType

In questo esempio viene eseguita la ricerca di tutti i file Raccoglitore Office che si trovano nella cartella My Documents. Il nome e la posizione di ciascun file trovato vengono quindi visualizzati in una finestra di messaggio.

Set fs = Application.FileSearch

With fs

    .LookIn = "C:\My Documents"

    .FileType = msoFileTypeBinders

    If .Execute > 0 Then

        MsgBox "There were " & .FoundFiles.Count & _

            " Binder file(s) found."

        For i = 1 To .FoundFiles.Count

            MsgBox .FoundFiles(i)

        Next i

    Else

        MsgBox "There were no Binder files found."

    End If

End With


Proprietà FoundFiles

Restituisce un oggetto FoundFiles contenente i nomi di tutti i file trovati durante la ricerca. Di sola lettura.


Esempio della proprietà FoundFiles

In questo esempio viene esaminato l'elenco dei file trovati e viene visualizzato il percorso di ciascuno di essi.

With Application.FileSearch

For i = 1 To .FoundFiles.Count

    MsgBox .FoundFiles(i)

Next I

End With


Proprietà LastModified

Restituisce o imposta una costante che rappresenta la quantità di tempo trascorsa dall'ultima modifica e salvataggio del file specificato. Può essere rappresentata da una delle seguenti costanti msoLastModified: msoLastModifiedAnyTime, msoLastModifiedLastMonth, msoLastModifiedLastWeek, msoLastModifiedThisMonth, msoLastModifiedThisWeek, msoLastModifiedToday o msoLastModifiedYesterday. Il valore predefinito è msoLastModifiedAnyTime. Valore Variant di lettura/scrittura.


Esempio della proprietà LastModified

In questo esempio vengono impostate le opzioni per una ricerca di file. I file che verranno restituiti sono stati precedentemente modificati e si trovano nella cartella C:\My Documents o in una relativa sottocartella.

Set fs = Application.FileSearch

With fs

    .LookIn = "C:\My Documents"

    .SearchSubFolders = True

    .LastModified = msoLastModifiedYesterday

End With


Proprietà LookIn

Restituisce o imposta la cartella in cui deve essere eseguita la ricerca di file specificata. Valore String di lettura/scrittura.


Esempio della proprietà LookIn

In questo esempio, nella cartella My Documents vengono ricercati tutti i file il cui nome inizia con "cmd" e quindi vengono visualizzati il nome e la posizione di ogni file trovato.

Set fs = Application.FileSearch

With fs

    .LookIn = "C:\My Documents"

    .FileName = "cmd*"

    If .Execute > 0 Then

        MsgBox "There were " & .FoundFiles.Count & _

        " file(s) found."

        For i = 1 To .FoundFiles.Count

            MsgBox .FoundFiles(i)

        Next i

    Else

        MsgBox "There were no files found."

    End If

End With


Proprietà MatchAllWordForms

True se la ricerca del file specificato viene estesa per includere tutte le forme della parola indicata nel corpo del file o nelle proprietà del file. Boolean di lettura/scrittura.

Osservazioni

La proprietà è disponibile solo se il file Mswds_en.lex è stato installato e registrato. Il file non viene installato durante l’installazione tipica.


Esempio della proprietà MatchAllWordForms

L’esempio restituisce tutti i file che contengono la parola "run", "running", "runs" o "ran" nel corpo del file o nelle proprietà del file. La proprietà TextOrProperty imposta la parola di cui ricercare le forme e restringe la ricerca al corpo o alle proprietà del file.

With Application.FileSearch

    .NewSearch

    .LookIn = "C:\My Documents"

    .SearchSubFolders = True

    .TextOrProperty = "run"

    .MatchAllWordForms = True

    .FileType = msoFileTypeAllFiles

End With


Proprietà MatchTextExactly

True se durante la ricerca di file specificata verranno trovati solo i file il cui testo o le cui proprietà contengono esattamente la parola o la parte di frase specificata. Valore Boolean di lettura/scrittura.


Esempio della proprietà MatchTextExactly

In questo esempio vengono ricercati nella cartella C:\My Documents tutti i file contenenti la parola "Run" nel corpo del testo o nelle relative proprietà.

With Application.FileSearch

    .NewSearch

    .LookIn = "C:\My Documents"

    .TextOrProperty = "Run"

    .MatchTextExactly = True

    .FileType = msoFileTypeAllFiles

End With


Metodo NewSearch

Ripristina le impostazioni predefinite per tutti i criteri di ricerca.

Sintassi

espressione.NewSearch

espressione   Obbligatoria. Espressione che restituisce un oggetto FileSearch.

Osservazioni

Le impostazioni dei criteri di ricerca vengono mantenute per l'intera sessione dell'applicazione. È possibile utilizzare questo metodo ogni volta che vengono modificati i criteri di ricerca. Questo metodo non comporta la reimpostazione del valore della proprietà LookIn.


Esempio del metodo NewSearch

In questo esempio il metodo NewSearch viene utilizzato per ripristinare i criteri di ricerca predefiniti prima di iniziare una nuova ricerca.

With Application.FileSearch

    .NewSearch

    .LookIn = "C:\My Documents"

    .SearchSubFolders = True

    .FileName = "run"

    .MatchAllWordForms = True

    .FileType = msoFileTypeAllFiles

    If .Execute() > 0 Then

        MsgBox "There were " & .FoundFiles.Count & _

        " file(s) found."

        For i = 1 To .FoundFiles.Count

            MsgBox .FoundFiles(i)

        Next i

    Else

        MsgBox "There were no files found."

    End If

End With


Proprietà PropertyTests

Restituisce un insieme PropertyTests che rappresenta tutti i criteri di ricerca che verranno utilizzati per una ricerca di file. Di sola lettura.

Per informazioni sulla restituzione di un singolo membro di un insieme, vedere Restituzione di un oggetto da un insieme.


Esempio della proprietà PropertyTests

In questo esempio vengono visualizzati tutti i criteri di ricerca per il primo test della proprietà nell'insieme.

With Application.FileSearch.PropertyTests(1)

myString = "This is the search criteria: " _

        & " The name is: " & .Name & ". The condition is: " _

    & .Condition

If .Value <> "" Then

    myString = myString & ". ". The value is: " & .Value

    If .SecondValue <> "" Then

        myString = myString _

            & ". The second value is: " _

            & .SecondValue & ", and the connector is " _

            & .Connector

    End If

End If

MsgBox myString

End With


Proprietà SearchSubFolders

True se nella ricerca specificata sono incluse tutte le sottocartelle della cartella specificata dalla proprietà LookIn. Valore Boolean di lettura/scrittura.


Esempio della proprietà SearchSubFolders

In questo esempio, nella cartella My Documents e nelle relative sottocartelle vengono ricercati tutti i file il cui nome inizia con "cmd" e quindi vengono visualizzati il nome e la posizione di ogni file trovato.

Set fs = Application.FileSearch

With fs

    .LookIn = "C:\My Documents"

    .SearchSubFolders = True

    .FileName = "cmd*"

    If .Execute() > 0 Then

        MsgBox "There were " & .FoundFiles.Count & _

     " file(s) found."

        For i = 1 To .FoundFiles.Count

            MsgBox .FoundFiles(i)

        Next i

    Else

        MsgBox "There were no files found."

    End If

End With


Proprietà TextOrProperty

Restituisce o imposta la parola o la parte di frase che si desidera ricercare nel corpo del testo o nelle proprietà di un file durante la ricerca di file specificata. La parola o la frase può includere il carattere jolly * (asterisco) o ? (punto interrogativo). Valore String di lettura/scrittura.

Osservazioni

È possibile utilizzare il carattere jolly punto interrogativo per trovare le corrispondenze di singoli caratteri, ad esempio digitare gr?y per trovare tutti i file contenenti almeno un'occorrenza di "gray" o di "grey."

È possibile utilizzare il carattere jolly asterisco per trovare le corrispondenze di qualsiasi numero di caratteri, ad esempio digitare San* per restituire tutti i file contenenti almeno una parola che inizia con "San".


Esempio della proprietà TextOrProperty

In questo esempio, nella cartella C:\My Documents e nelle relative sottocartelle vengono ricercati tutti i file il cui testo e le cui proprietà contengono parole che iniziano con "San". La proprietà TextOrProperty consente di impostare la parola di cui deve essere eseguita la ricerca e i limiti per la ricerca per il corpo del file o per le relative proprietà.

With Application.FileSearch

    .NewSearch

    .LookIn = "C:\My Documents"

    .SearchSubFolders = True

    .TextOrProperty = "San*"

    .FileType = msoFileTypeAllFiles

End With


Proprietà Connector

Restituisce il connettore tra due valori simili di test della proprietà. Può essere rappresentata da una delle seguenti costanti MsoConnector: msoConnectorAnd o msoConnectorOr. Il valore predefinito è msoConnectorAnd. Valore Variant di sola lettura.

Osservazioni

Un connettore specifica se due criteri di ricerca simili verranno combinati allo scopo di formare un unico test della proprietà (come accade per msoConnectorAnd) o se verranno trattati separatamente (come accade per msoConnectorOr).


Esempio della proprietà Connector

In questo esempio viene visualizzato un messaggio in cui viene descritta la modalità di valutazione del criterio di ricerca durante una ricerca di file.

With Application.FileSearch.PropertyTests(1)

If .Connector = msoConnectorAnd Then

   MsgBox "All search criteria will be combined."

Else

    MsgBox "Criteria will be treated independently"

End If

End With


Proprietà Condition

Restituisce la condizione del criterio di ricerca specificato. Valore Variant di sola lettura.

Può essere rappresentata da una delle seguenti costanti MsoCondition:

msoConditionAnyNumberBetween msoConditionAnytime msoConditionAnytimeBetween msoConditionAtLeast msoConditionAtMost msoConditionBeginsWith msoConditionDoesNotEqual msoConditionEndsWith msoConditionEquals msoConditionFileTypeAllFiles msoConditionFileTypeBinders msoConditionFileTypeDatabases msoConditionFileTypeExcelWorkbooks msoConditionFileTypeOfficeFiles msoConditionFileTypePowerPointPresentations msoConditionFileTypeTemplates msoConditionFileTypeWordDocuments msoConditionIncludesNearEachOther msoConditionIncludesPhrase msoConditionInTheLast	msoConditionInTheNext msoConditionIsExactly msoConditionIsNo msoConditionIsNot msoConditionIsYes msoConditionLastMonth msoConditionLastWeek msoConditionLessThan msoConditionMoreThan msoConditionNextMonth msoConditionNextWeek msoConditionOn msoConditionOnorAfter msoConditionOnorBefore msoConditionThisMonth msoConditionThisWeek msoConditionToday msoConditionTomorrow msoConditionYesterday


Esempio della proprietà Condition

In questo esempio viene restituito il valore di connessione per il criterio di ricerca del primo test della proprietà.

With Application.FileSearch.PropertyTests(1)

    MsgBox "The condition you've set is: " & .Condition

End With


Proprietà SecondValue

Restituisce un test della proprietà per un secondo valore facoltativo, ad esempio in un intervallo, per la ricerca di file specificata. Valore Variant di sola lettura.

Osservazioni

Questa proprietà consente in genere di specificare un intervallo ed è possibile utilizzarla solo con le costanti MsoConditionmsoConditionAnyTimeBetween o msoConditionAnyNumberBetween.


Esempio della proprietà SecondValue

In questo esempio, in una finestra di dialogo viene visualizzato il secondo valore del criterio di ricerca (se esiste). Se tale valore non esiste, verrà visualizzato un altro messaggio.

With Application.FileSearch.PropertyTests(1)

If .SecondValue = "" Then

   MsgBox "You haven't specified a second value."

Else

    MsgBox "The second value you've set is: " _

    & .SecondValue

End If

End With


Metodo Remove

Rimuove l'oggetto PropertyTest dall'insieme PropertyTests.

Sintassi

espressione.Remove(lndex)

espressione   Obbligatoria. Espressione che restituisce un oggetto PropertyTests.

lndex   Valore Long obbligatorio. Numero di indice del test della proprietà che si desidera rimuovere.


Esempio del metodo Remove

In questo esempio il primo criterio di ricerca viene rimosso dall'insieme.

Application.FileSearch.PropertyTests.Remove(1)


Oggetto FileSearch

Rappresenta le funzioni della finestra di dialogo Apri del menu File.

Utilizzo dell'oggetto FileSearch

La proprietà FileSearch consente di restituire l'oggetto FileSearch. Nell'esempio seguente viene eseguita la ricerca dei file specificati e vengono visualizzati il numero di file trovati e il titolo di ciascuno di essi.

With Application.FileSearch

    If .Execute() > 0 Then

        MsgBox "There were " & .FoundFiles.Count & _

            " file(s) found."

        For i = 1 To .FoundFiles.Count

            MsgBox .FoundFiles(i)

        Next i

    Else

        MsgBox "There were no files found."

    End If

End With

Utilizzare il metodo NewSearch per ripristinare le impostazioni predefinite dei criteri di ricerca. Tutti i valori delle proprietà verranno mantenuti dopo l'esecuzione di ogni ricerca e l'utilizzo del metodo NewSearch consente di impostare in modo selettivo le proprietà per la ricerca di file successiva senza che sia necessario reimpostare manualmente i valori delle proprietà precedenti. Nell'esempio seguente, prima di iniziare una nuova ricerca vengono ripristinate le impostazioni predefinite dei criteri di ricerca.

With Application.FileSearch

    .NewSearch

    .LookIn = "C:\My Documents"

    .SearchSubFolders = True

    .FileName = "Run"

    .MatchTextExactly = True

    .FileType = msoFileTypeAllFiles

End With


Oggetto PropertyTest

Rappresenta un criterio di ricerca di file. I criteri di ricerca sono elencati nella finestra di dialogo Ricerca avanzata, a cui è possibile accedere scegliendo Apri dal menu File e quindi facendo clic sul pulsante Avanzate. L'oggetto PropertyTest è un membro dell'insieme PropertyTests.

Utilizzo dell'oggetto PropertyTest

Utilizzare PropertyTests(indice), dove indice è il numero di indice per restituire un oggetto PropertyTest. Nell'esempio seguente vengono visualizzati i criteri di ricerca per il primo test delle proprietà nell'insieme PropertyTests.

With Application.FileSearch.PropertyTests(1)

myString = "This is the search criteria: " _

    & " The name is: " & .Name & ". The condition is: " _

    & .Condition

If .Value <> "" Then

    myString = myString & ". The value is: " & .Value

    If .SecondValue <> "" Then

        myString = myString _

            & ". The second value is: " _

            & .SecondValue & ", and the connector is" _

            & .Connector

    End If

End If

MsgBox myString

End With


Insieme PropertyTests

Un insieme di oggetti PropertyTest che rappresenta tutti i criteri di ricerca per una ricerca di file. I criteri di ricerca sono elencati nella finestra di dialogo Ricerca avanzata a cui è possibile accedere scegliendo Apri dal menu File e quindi facendo clic sul pulsante Avanzate.

Utilizzo dell'insieme PropertyTests

Utilizzare la proprietà PropertyTests per restituire l'insieme PropertyTests. Nell'esempio seguente viene visualizzato il numero di criteri di ricerca avanzata che verranno utilizzati per una ricerca di file.

FileSearch.PropertyTests.Count

Utilizzare il metodo Add per aggiungere un nuovo oggetto PropertyTest all'insieme PropertyTests. Nell'esempio seguente vengono aggiunti due test delle proprietà al criterio di ricerca. Il primo criterio specifica che i file trovati devono essere documenti di Word e il secondo specifica che devono essere stati modificati tra il giorno 1 gennaio 1996 e il giorno 30 giugno 1996.

Set fs = Application.FileSearch

fs.NewSearch

With fs.PropertyTests

    .Add Name:="Files of Type", _

    Condition:=msoConditionFileTypeWordDocuments, _

 Connector:=msoConnectorOr

    .Add Name:="Last Modified", _

    Condition:=msoConditionAnytimeBetween, _

    Value:="1/1/96", SecondValue:="30/6/1996", _

    Connector:=msoConnectorAnd

End With

Utilizzare PropertyTests(indice), dove indice è il numero di indice per restituire un singolo oggetto PropertyTest. Nell'esempio seguente vengono visualizzati tutti i criteri di ricerca per il primo test delle proprietà nell'insieme PropertyTests.

With Application.FileSearch.PropertyTests(1)

myString = "This is the search criteria: " _

    & " The name is: " & .Name & ". The condition is: " _

    & .Condition

If .Value <> "" Then

    myString = myString & ". The value is: " & .Value

    If .SecondValue <> "" Then

        myString = myString _

            & ". The second value is: " _

            & .SecondValue & ", and the connector is" _

            & .Connector

    End If

End If

MsgBox myString

End With


Oggetto FoundFiles

Rappresenta l'elenco di file restituito da una ricerca.

Utilizzo dell'oggetto FoundFiles

Utilizzare la proprietà FoundFiles per restituire l'oggetto FoundFiles. In questo esempio viene esaminato l'elenco dei file trovati e vengono visualizzati il percorso e il nome di ciascuno di essi.

With Application.FileSearch

    For i = 1 To .FoundFiles.Count

        MsgBox .FoundFiles(i)

    Next I

End With

Utilizzare FoundFiles(indice), dove indice è il numero di indice per restituire il percorso e il nome di un file trovato. Nell'esempio seguente viene esaminato l'insieme dei file trovati e vengono visualizzati il percorso e il nome di ciascuno di essi.

With Application.FileSearch

For i = 1 To .FoundFiles.Count

    MsgBox .FoundFiles(i)

Next I

End With

Utilizzare il metodo Execute per avviare la ricerca di file e aggiornare l'oggetto FoundFiles. Nell'esempio seguente, nella cartella My Documents vengono ricercati tutti i file il cui nome inizia con "Cmd" e vengono quindi visualizzati il nome e la posizione di ogni file trovato. I file restituiti vengono inoltre disposti in ordine alfabetico ascendente per nome di file.

Set fs = Application.FileSearch

With fs

    .LookIn = "C:\My Documents"

    .FileName = "cmd*"

    If .Execute(SortBy:=msoSortbyFileName, _

    SortOrder:=msoSortOrderAscending) > 0 Then

        MsgBox "There were " & .FoundFiles.Count & _

            " file(s) found."

        For i = 1 To .FoundFiles.Count

            MsgBox .FoundFiles(i)

        Next i

    Else

        MsgBox MsgBox "There were no files found."

    End If

End With


Insieme DocumentProperties

Insieme di oggetti DocumentProperty. Ogni oggetto DocumentProperty rappresenta una proprietà predefinita o aggiuntiva di un documento contenitore.

Utilizzo dell'insieme DocumentProperties

Utilizzare la proprietà BuiltinDocumentProperties per restituire un insieme DocumentProperties contenente tutte le proprietà predefinite di un documento contenitore. Utilizzare la proprietà CustomDocumentProperties per restituire un insieme DocumentProperties contenente tutte le proprietà personalizzate del documento.

Utilizzare il metodo Add per creare una nuova proprietà aggiuntiva e inserirla nell'insieme DocumentProperties. Non è possibile utilizzare il metodo Add per creare una proprietà predefinita del documento.

Utilizzare BuiltinDocumentProperties(indice), dove indice è il numero di indice della proprietà del documento predefinita per restituire un singolo oggetto DocumentProperty che rappresenta una specifica proprietà predefinita del documento. Utilizzare CustomDocumentProperties(indice), dove indice è il numero di indice della proprietà personalizzata del documento per restituire un oggetto DocumentProperty che rappresenta una specifica proprietà personalizzata del documento.


Oggetto DocumentProperty

Rappresenta una proprietà aggiuntiva o predefinita di un documento contenitore. L'oggetto DocumentProperty è un membro dell'insieme DocumentProperties.

Utilizzo dell'oggetto DocumentProperty

Utilizzare BuiltinDocumentProperties(indice), dove indice è il nome o il numero di indice della proprietà predefinita del documento, per restituire un oggetto DocumentProperty che rappresenta una specifica proprietà predefinita del documento. Utilizzare CustomDocumentProperties(indice), dove indice è il nome o il numero di indice della proprietà personalizzata del documento, per restituire un oggetto DocumentProperty che rappresenta una specifica proprietà personalizzata del documento.

Nell'elenco seguente sono riportati i nomi di tutte le proprietà predefinite disponibili per il documento:

Titolo Oggetto Autore Parole chiave Commenti Modello Autore ultimo salvataggio Numero revisione Nome applicazione Data ultima stampa Data creazione Data ultima modifica Tempo totale di modifica Pagine	Parole Caratteri Attributi Categoria Formato della presentazione Manager Società Dimensione Linee Paragrafi Diapositive Note Diapositive nascoste Numero di clip multimediali
Nelle applicazioni contenitore non viene necessariamente definito un valore per ogni proprietà predefinita del documento. Se in una determinata applicazione non viene definito il valore di una delle proprietà predefinite del documento, la restituzione della proprietà Value relativa a tale proprietà del documento genererà un errore.


Proprietà LinkToContent

True se il valore della proprietà personalizzata del documento specificata è collegato al contenuto del documento contenitore. False se il valore è statico. Valore Boolean di lettura/scrittura.

Osservazioni

Questa proprietà è valida solo per le proprietà personalizzate del documento. Per le proprietà predefinite del documento è sempre False.

Utilizzare la proprietà LinkSource per impostare l'origine per la proprietà collegata specificata. L'impostazione della proprietà LinkSource comporta l'impostazione della proprietà LinkToContent su True.


Esempio della proprietà LinkToContent

In questo esempio viene visualizzato lo stato del collegamento della proprietà personalizzata del documento. Per il corretto funzionamento di questo codice di esempio, è necessario che dp sia un oggetto DocumentProperty valido.

Sub DisplayLinkStatus(dp As DocumentProperty)

    Dim stat As String, tf As String

    If dp.LinkToContent Then

        tf = ""

    Else

        tf = "not "

    End If

    stat = "This property is " & tf & "linked"

    If dp.LinkToContent Then

        stat = stat + Chr(13) & "The link source is " & dp.LinkSource

    End If

    MsgBox stat

End Sub


Proprietà LinkSource

Restituisce o imposta l'origine della proprietà aggiuntiva del documento collegata specificata. Valore String di lettura/scrittura.

Osservazioni

Questa proprietà è valida solo per le proprietà personalizzate del documento e non è possibile utilizzarla per le proprietà predefinite del documento.

L'origine del collegamento specificato viene definita dall'applicazione contenitore.

L'impostazione della proprietà LinkSource comporta l'impostazione della proprietà LinkToContent su True.


Esempio della proprietà LinkSource

In questo esempio viene visualizzato lo stato del collegamento di una proprietà personalizzata del documento. Per il corretto funzionamento di questo codice di esempio, è necessario che dp sia un oggetto DocumentProperty valido.

Sub DisplayLinkStatus(dp As DocumentProperty)

    Dim stat As String, tf As String

    If dp.LinkToContent Then

        tf = ""

    Else

        tf = "not "

    End If

    stat = "This property is " & tf & "linked"

    If dp.LinkToContent Then

        stat = stat + Chr(13) & " The link source is " & dp.LinkSource

    End If

    MsgBox stat

End Sub


Proprietà Value

Oggetto DocumentProperty: restituisce o imposta il valore della proprietà del documento specificata. Valore Variant di lettura/scrittura.

Oggetto PropertyTest: restituisce il valore di una verifica della proprietà per una ricerca di file. Valore Variant di sola lettura.

Osservazioni

Se nell'applicazione contenitore non viene definito il valore di una delle proprietà predefinite del documento, la lettura della proprietà Value relativa a tale proprietà del documento genererà un errore.


Esempio della proprietà Value

In questo esempio vengono visualizzati il nome, il tipo e il valore di una proprietà del documento. Per il corretto funzionamento di questo codice di esempio, è necessario che dp sia un oggetto DocumentProperty valido.

Sub DisplayPropertyInfo(dp As DocumentProperty)

    MsgBox "value = " & dp.Value & Chr(13) & _

        "type = " & dp.Type & Chr(13) & _

        "name = " & dp.Name

End Sub

In questo esempio viene visualizzato in una finestra di dialogo il valore del criterio di ricerca (se esiste). Se il secondo valore non esiste, verrà visualizzato un altro messaggio.

With Application.FileSearch.PropertyTests(1)

If .Value = "" Then

   MsgBox "You haven't specified a value."

Else

    MsgBox "The value you've set is: " _

    & .Value

End If

End With


Cenni preliminari sull'Assistente di Office

In Microsoft Office 97 è stato introdotto l'Assistente di Office, ovvero un nuovo componente della Guida. L'Assistente di Office, il fumetto dell'Assistente di Office e tutti gli elementi disponibili all'interno del fumetto possono essere gestiti a livello di programmazione mediante gli oggetti, le proprietà e i metodi dell'oggetto Assistant.

Nella figura seguente vengono illustrati l'Assistente di Office, il fumetto dell'Assistente di Office e tutti gli oggetti programmabili all'interno del fumetto.

Per informazioni sulle modalità di inserimento di modifiche in fase di progettazione e di esecuzione all'Assistente di Office, vedere i seguenti argomenti:

Utilizzo dell'Assistente di Office

Creazione e modifica dei fumetti

Modifiche ai fumetti in fase di esecuzione


Utilizzo dell'Assistente di Office

È possibile utilizzare l'Assistente di Office all'interno dell'applicazione per rendere disponibili informazioni della Guida relative ad aree specifiche, nonché utilizzare i controlli disponibili nel fumetto dell'Assistente di Office per eseguire routine personalizzate.

Qualsiasi elemento associato all'Assistente di Office viene rappresentato in Visual Basic dall'oggetto Assistant e dagli oggetti in esso contenuti. Numerose delle modifiche all'Assistente che è possibile apportare in fase di esecuzione sono uguali alle modifiche apportabili in fase di progettazione facendo clic con il pulsante destro del mouse sull'Assistente stesso. Ogni opzione riportata nella scheda Opzioni della finestra di dialogo Assistente di Office corrisponde a una proprietà dell'Assistente impostata in fase di esecuzione. Nella tabella seguente vengono riportate le proprietà in genere utilizzate per modificare l'Assistente di Office.

Proprietà	Descrizione
Animation	Applica un effetto di animazione all'Assistente di Office. Alcune animazioni sono continue, altre vengono eseguite solo una volta.
FileName	Specifica il nome di file dell'Assistente di Office, inclusa l'estensione .act. Ad esempio, il nome di file dell'Assistente di Office Clippy è Clippit.act.
Name	Restituisce il nome dell'Assistente di Office. Questa proprietà consente di registrare l'Assistente di Office selezionato dall'utente.
Visible	Specifica se l'Assistente è visualizzato o nascosto.
Nell'esempio seguente viene selezionato l'Assistente di Office denominato "Il bardo", che viene quindi visualizzato e animato. Vengono inoltre impostate numerose delle proprietà della Guida personalizzate che sono disponibili nella scheda Opzioni della finestra di dialogo Assistente di Office in fase di progettazione.

With Assistant

    .FileName = "Will.act"

    .Animation = msoAnimationBeginSpeaking

    .AssistWithHelp = True

    .GuessHelp = True

    .FeatureTips = False

    .Visible = True

End With

In Microsoft Office sono disponibili nove immagini animate diverse per l'Assistente di Office che è possibile installare. È possibile attivare solo un'immagine alla volta. In fase di progettazione è possibile consentire all'utente di selezionare l'immagine dell'Assistente desiderata oppure in fase di esecuzione selezionare un Assistente per l'utente. Non è possibile modificare i file dell'immagine dell'Assistente installati, né sostituire un file ai file disponibili.


Creazione e modifica dei fumetti

È possibile utilizzare il fumetto dell'Assistente di Office per fornire informazioni all'utente. Tali informazioni possono essere un semplice messaggio, una richiesta di ulteriori informazioni o un elenco di scelte possibili. Le modifiche al fumetto dell'Assistente di Office devono essere apportate in fase di esecuzione.

Nella tabella seguente sono riportate le proprietà e i metodi di più frequente utilizzo per la modifica dell'aspetto o della funzione associata a un nuovo fumetto creato o a un fumetto esistente. Le modifiche apportate a qualsiasi fumetto verranno visualizzate al successivo utilizzo del metodo Show.

Proprietà o metodo	Descrizione
Heading	Specifica il testo in grassetto visualizzato nella parte superiore del fumetto dell'Assistente di Office.
Text	Specifica il testo visualizzato nel corpo del fumetto dell'Assistente di Office. Questo testo viene visualizzato dopo l'intestazione ma prima di qualsiasi casella di controllo, etichetta o pulsante.
Labels	Restituisce l'insieme delle etichette disponibili nel fumetto. Il formato delle etichette è determinato dalla proprietà BalloonType. Le etichette vengono visualizzate dopo il testo del fumetto. L'elenco delle etichette può essere numerato o puntato oppure può essere un elenco di pulsanti. A differenza di quanto accade per le caselle di controllo, la selezione effettuata dall'utente viene registrata non appena si fa clic su un pulsante.
Checkboxes	Restituisce l'insieme delle caselle di controllo disponibili nel fumetto. L'utente fa clic sulla casella di controllo e quindi sul pulsante appropriato nella parte inferiore del fumetto, ad esempio OK o Avanti, per confermarela selezione effettuata.
Close	Chiude e abbandona un fumetto non a scelta obbligatoria, ma non annulla la variabile oggetto. La variabile oggetto è ancora valida, è infatti possibile visualizzarla di nuovo oppure modificarla e quindi visualizzarla in un secondo tempo. È possibile utilizzare questo metodo solo per i fumetti non a scelta obbligatoria.
Show	Rende visibile all'utente il fumetto e tutti gli oggetti in esso contenuti. Utilizzare questo metodo solo per gli oggetti Balloon. Utilizzare invece la proprietà Visible per l'oggetto Assistant.
Nell'esempio seguente viene creato un fumetto che aiuta l'utente a selezionare una stampante. Viene inoltre inserita una casella di controllo che consente agli utenti di ignorare le informazioni contenute nel fumetto.

Set bln = Assistant.NewBalloon

With bln

    .Heading = "Instructions for Choosing a Printer."

    .Text = "Click OK when you've chosen a printer."

    lblTxt = "From the File menu, choose Print."

    .Labels(1).Text = lblTxt

    .Labels(2).Text = "Click Setup."

    .Labels(3).Text = "Select the name of the printer."

    .Checkboxes(1).Text = "Skip this information.""

    .BalloonType = msoBalloonTypeNumbers

    .Mode = msoModeModal

    .Button = msoButtonSetOK

    .Show

End With

Creazione di fumetti

Per creare un nuovo fumetto, è possibile utilizzare la proprietà NewBalloon dell'oggetto Assistant. Il fumetto creato sarà vuoto. Utilizzare la proprietà Heading per aggiungere un'intestazione e la proprietà Text per aggiungere testo al corpo del fumetto e quindi i controlli, se necessario. Utilizzare infine il metodo Show per visualizzare il fumetto. Il metodo Show consentirà di visualizzare il fumetto nella forma in cui appare correntemente. È pertanto importante utilizzarlo dopo aver impostato tutte le altre proprietà. Nell'esempio seguente viene creato un nuovo fumetto, viene impostato il testo per l'intestazione e per il corpo e vengono quindi create tre caselle di controllo che l'utente può selezionare.

With Assistant.NewBalloon

    .Button = msoButtonSetOkCancel

    .Heading = "Regional Sales Data"

    .Text = "Select a region"

    For i = 1 To 3

        .CheckBoxes(i).Text = "Region " & i

    Next

    .Show

End With

Gestione di più fumetti

Per l'Assistente di Office non è disponibile un insieme di fumetti. Per gestire più fumetti, è possibile impostare una variabile oggetto distinta per ogni fumetto creato e quindi fare riferimento a una diversa variabile in base alle necessità. È inoltre possibile creare una matrice di variabili oggetto di tipo Balloon e assegnare un fumetto a ciascuna di esse. Nell'esempio seguente viene creata una matrice, alla quale vengono aggiunti tre oggetti Balloon vuoti.

Dim myBalloonArray(3) As Balloon

With Assistant

    For i = 1 To 3

        Set myBalloonArray(i) = .NewBalloon

    Next

End With


Modifiche ai fumetti in fase di esecuzione

Dopo aver creato un fumetto per l'Assistente di Office, è possibile personalizzarlo mediante l'aggiunta di immagini bitmap, icone, metafile Windows o file PICT Macintosh all'intestazione o al testo. È possibile aggiungere al fumetto controlli quali caselle di controllo o pulsanti in modo tale da attivare una risposta quando viene fatto clic su un elemento del fumetto.

Aggiunta di icone e immagini bitmap ai fumetti

Per personalizzare l'applicazione, è possibile aggiungere icone e immagini bitmap ai fumetti dell'Assistente di Office. Per aggiungere un'icona, assegnare una costante MsoIconType alla proprietà Icon dell'oggetto Balloon. Per aggiungere un'immagine bitmap Windows o Macintosh, un metafile di Windows o un file PICT Macintosh al testo del fumetto di un Assistente di Office, specificare il tipo, la posizione e il fattore di ridimensionamento (se è applicabile) quando viene impostata la proprietà Text di un'intestazione, un testo, una casella di controllo o un'etichetta. Nell'esempio seguente viene inserito un file bitmap di Windows nel testo di un fumetto.

myBmp = "{bmp c:\windows\circles.bmp}"

myText1 = "This is before the picture, "

myText2 = " and this is after the picture"

Set bln = Assistant.NewBalloon

With bln

    .Heading = "Instructions for Choosing a Bitmap.""

    .Text = myText1 & myBmp & myText2

    .Show

End With

Aggiunta di controlli ai fumetti

I controlli che possono essere aggiunti a un fumetto sono di due tipi: caselle di controllo e pulsanti. In un fumetto appena creato sono disponibili cinque caselle di controllo, che possono essere rese visibili specificando il relativo testo. Sono inoltre disponibili cinque etichette di pulsante (se il fumetto è del tipo msoBalloonTypeButtons) e per renderle visibili è possibile utilizzare lo stesso metodo utilizzato per le caselle di controllo. Se si cerca di aggiungere più di cinque caselle di controllo o etichette di pulsante, verrà generato un errore.

Per modificare l'aspetto di qualsiasi controllo disponibile in un fumetto, è possibile modificare la proprietà Text del controllo. Per modificare la funzione di una casella di controllo o di un pulsante in un fumetto, è possibile specificare che verrà eseguita una routine diversa quando si seleziona la casella o si fa clic sul pulsante.

Nell'esempio seguente viene creato un fumetto contenente un'intestazione, testo e tre aree di scelta. Quando l'utente seleziona una casella di controllo e quindi fa clic su OK, verrà eseguita la routine appropriata.

With Assistant.NewBalloon

    .Heading = "Regional Sales Data"

    .Text = "Select your region"

    For i = 1 To 3

        .CheckBoxes(i).Text = "Region " & i

    Next

    .Button = msoButtonSetOkCancel

    .Show

Select Case True

    Case .CheckBoxes(1).Checked

        runregion1

    Case .CheckBoxes(2).Checked

        runregion2

    Case .CheckBoxes(3).Checked

        runregion3

End Select

End With


Cenni preliminari sulle barre dei comandi

In Microsoft Office 97, le barre degli strumenti, le barre dei menu e i menu di scelta rapida vengono gestiti a livello di programmazione come un unico tipo di oggetti, ovvero come barre dei comandi. Tutti gli elementi riportati di seguito vengono rappresentati in Visual Basic da oggetti di tipo CommandBar:

•	Barre dei menu, barre degli strumenti e menu di scelta rapida

•	Menu su barre dei menu e barre degli strumenti

•	Sottomenu e menu di scelta rapida

È possibile modificare qualsiasi barra dei menu o barra degli strumenti predefinita, nonché creare e modificare barre degli strumenti, barre dei menu e menu di scelta rapida personalizzati che si desidera includere nell'applicazione Visual Basic. Le funzioni dell'applicazione vengono presentate sotto forma di pulsanti sulle barre degli strumenti o di gruppi di nomi di comandi nei menu. Poiché le barre degli strumenti e i menu sono entrambi barre dei comandi, è possibile utilizzare su di essi lo stesso tipo di controlli. Ad esempio, la barra degli strumenti ancorata illustrata nella figura seguente include tre pulsanti.

Il menu riportato di seguito contiene gli stessi tre comandi della barra degli strumenti precedente, che vengono tuttavia visualizzati come voci di menu.

In Microsoft Office 97, le barre dei menu e le barre degli strumenti possono entrambe includere menu. La barra degli strumenti mobile illustrata di seguito include tre pulsanti e inoltre un menu con gli stessi tre comandi visualizzati come voci di menu.

In Visual Basic, i pulsanti e le voci di menu vengono rappresentati da oggetti CommandBarButton. I controlli popup che consentono di visualizzare i menu e i sottomenu vengono rappresentati da oggetti CommandBarPopup. Nella figura seguente, il controllo denominato "Menu" e il controllo denominato "Sottomenu" sono entrambi controlli popup che visualizzano rispettivamente un menu e un sottomenu. I menu e i sottomenu sono oggetti CommandBar univoci che dispongono di un proprio gruppo di controlli.

0

1	In Microsoft Office 97, è inoltre possibile aggiungere caselle di testo, caselle di riepilogo a discesa e caselle combinate a qualsiasi barra dei comandi. Questi tre tipi di controllo sono rappresentati in Visual Basic da oggetti CommandBarComboBox.

Nota   Sebbene il relativo aspetto e funzionamento siano simili, i controlli delle barre dei comandi differiscono dai controlli ActiveX. Non è possibile aggiungere controlli ActiveX alle barre dei comandi e non è possibile aggiungere controlli di barre dei comandi ai documenti o ai form.

I controlli barra dei comandi predefiniti delle applicazioni contenitore sono anch'essi rappresentati in Visual Basic da oggetti CommandBarButton, CommandBarPopup e CommandBarComboBox. Il relativo aspetto e funzionamento possono tuttavia risultare più complessi rispetto ai controlli che è possibile aggiungere direttamente. È possibile modificare la posizione e l'aspetto dei controlli predefiniti, ma non è possibile modificarne il funzionamento. È tuttavia possibile assegnare una macro personalizzata a qualsiasi controllo predefinito e sostituirne quindi completamente il relativo funzionamento.


Utilizzo delle barre dei comandi

Per creare o modificare barre degli strumenti, barre dei menu e menu di scelta rapida che si desidera includere nell'applicazione Visual Basic, è in genere consigliabile utilizzare le funzioni di personalizzazione disponibili nell'applicazione contenitore. Le modifiche apportate a barre degli strumenti, barre dei menu e menu di scelta rapida utilizzando le funzioni dell'applicazione contenitore vengono definite modifiche "in fase di progettazione". Per ulteriori informazioni sui metodi di utilizzo dell'applicazione contenitore per le modifiche in fase di progettazione, vedere la Guida della relativa applicazione.

0	Per aggiungere e modificare barre degli strumenti, barre dei menu e menu di scelta rapida, nonché i relativi componenti, è possibile utilizzare la parte CommandBars del modello a oggetti di Microsoft Office nel codice di Visual Basic. È possibile scrivere codice a esecuzione singola per creare barre degli strumenti e barre dei menu. Il codice simula in effetti l'inserimento di modifiche in fase di progettazione. In alcune applicazioni contenitore, per la progettazione dell'applicazione Visual Basic può tuttavia risultare necessario combinare questo tipo di codice di Visual Basic con l'interfaccia di personalizzazione. Di seguito vengono riportate alcune aree in cui è in genere richiesta una combinazione del codice e dell'interfaccia dell'applicazione contenitore:

•	Se nell'applicazione contenitore non è disponibile un'interfaccia per l'aggiunta o la modifica di caselle di modifica, caselle di riepilogo a discesa o caselle combinate sulle barre degli strumenti, per aggiungere e progettare uno di tali controlli sarà necessario utilizzare il codice di Visual Basic.

•	Se nell'applicazione contenitore è disponibile un'interfaccia per la creazione di barre degli strumenti, ma non è disponibile un'interfaccia per la creazione di una nuova barra dei menu, per creare una barra dei menu sarà necessario utilizzare Visual Basic. Dopo aver creato la barra dei menu in Visual Basic, per progettare i relativi menu è possibile utilizzare l'interfaccia dell'applicazione contenitore.

•	Se nell'applicazione contenitore non è disponibile un modo per visualizzare i menu di scelta rapida personalizzati mentre è attiva l'interfaccia di personalizzazione, per modificare tali menu è necessario utilizzare il codice di Visual Basic.

Per apportare modifiche alle barre degli strumenti e alle barre dei menu durante l'esecuzione dell'applicazione, è inoltre possibile scrivere codice esistente nell'applicazione Visual Basic. È possibile, ad esempio, scrivere codice per la disattivazione di un comando su una barra dei menu in base a determinate condizioni oppure aggiungere pulsanti a una barra degli strumenti in risposta alle azioni eseguite dall'utente. Le modifiche apportate al codice durante l'esecuzione dell'applicazione Visual Basic vengono definite modifiche "in fase di esecuzione".

Nei seguenti argomenti vengono fornite informazioni sui metodi per apportare modifiche alle barre degli strumenti e alle barre dei menu in fase di progettazione ed esecuzione utilizzando il codice di Visual Basic.

Aggiunta e modificha delle barre degli strumenti

Aggiunta e gestione delle barre dei menu e degli elementi dei menu

Aggiunta e visualizzazione di menu di scelta rapida


Aggiunta e modifica delle barre degli strumenti

In tutte le applicazioni host è disponibile un'interfaccia completa per l'aggiunta e la progettazione di barre degli strumenti personalizzate (aggiunta di pulsanti predefiniti, aggiunta di macro assegnate a pulsanti, aggiunta di controlli popup a barre degli strumenti). Le modifiche in fase di progettazione che in genere vengono apportate al codice di Visual Basic comportano l'aggiunta o la modifica di controlli casella combinata. Per quanto riguarda gli altri casi, le operazioni effettuate sulle barre degli strumenti all'interno del codice sono quasi esclusivamente limitate all'inserimento di modifiche in fase di esecuzione (modifica dello stato del pulsante, del relativo aspetto, delle azioni a esso associate e così via).

Inserimento di modifiche in fase di esecuzione alle barre degli strumenti

È possibile apportare numerose modifiche in fase di esecuzione a una barra degli strumenti. È possibile, ad esempio, modificare lo stato di un pulsante su una barra degli strumenti. Per ogni pulsante sono disponibili due tipi di stato attivo: premuto (True) e non premuto (False). Per modificare lo stato di un controllo pulsante, è possibile utilizzare la costante appropriata per la proprietà State, come è illustrato nella tabella riportata più avanti.

Un'altra modifica che è possibile apportare in fase di esecuzione è quella relativa all'aspetto o all'azione associata a un pulsante. Per modificare l'aspetto di un pulsante, ma non la relativa azione, è possibile utilizzare le proprietà CopyFace e PasteFace. Queste proprietà risultano utili se si desidera copiare l'immagine di un pulsante specifico negli Appunti oppure importarla in un'altra applicazione per modificarne alcune caratteristiche. Utilizzare la proprietà PasteFace per trasferire l'immagine del pulsante dagli Appunti su un determinato pulsante.

Per sostituire una funzione sviluppata dall'utente all'azione associata a un pulsante, è possibile assegnare il nome della routine personalizzata alla proprietà OnAction del pulsante.

Nella tabella seguente sono riportati le proprietà e i metodi in genere utilizzati per la modifica dello stato, dell'aspetto o dell'azione di un pulsante.

Proprietà o metodo	Descrizione
CopyFace, PasteFace	Copia o incolla l'immagine visualizzata su un pulsante. Utilizzare il metodo CopyFace per copiare l'immagine del pulsante specificato negli Appunti. Utilizzare il metodo PasteFace per incollare il contenuto degli Appunti sul pulsante specificato. Se gli Appunti sono vuoti, verrà generato un errore. Se l'immagine contenuta negli Appunti è troppo grande per il pulsante, non verrà ridotta. È in genere più conveniente copiare e incollare l'immagine di un pulsante in fase di progettazione, ma è possibile apportarvi modifiche in fase di esecuzione. È inoltre possibile utilizzare la proprietà FaceId per assegnare un'immagine predefinita a un pulsante.
Id	Specifica il valore che rappresenta la funzione predefinita associata al pulsante. Ad esempio, un pulsante che consente di copiare il testo selezionato negli Appunti ha un valore Id pari a 19.
State	Specifica l'aspetto o lo stato del pulsante. Può essere rappresentato da una delle seguenti costanti: msoButtonDown, msoButtonMixed o msoButtonUp.
Style	Specifica se nell'immagine del pulsante è visualizzata la relativa icona o la didascalia. Può essere rappresentato da una delle seguenti costanti: msoButtonAutomatic, msoButtonIcon, msoButtonCaption o msoButtonIconandCaption.
OnAction	Specifica la routine che viene eseguita quando l'utente fa clic sul pulsante, visualizza un menu o modifica il contenuto di un controllo casella combinata.
Visible	Specifica se il controllo dovrà essere visualizzato o nascosto.
Enabled	Attiva o disattiva una barra dei comandi. Il nome di una barra disattivata non sarà visibile nell'elenco delle barre dei comandi disponibili .
Nell'esempio seguente si presume che i primi due controlli sulla barra dei comandi CustomButtons siano pulsanti. La routine HideThem nasconde il primo pulsante e assegna una routine alla proprietà OnAction del secondo pulsante. Quando viene eseguita la routine OnAction, il primo controllo verrà reso visibile e il secondo verrà nascosto. Se il secondo pulsante viene premuto mentre la routine è in esecuzione, la routine verrà interrotta. Si noti che entrambe le variabili startBtn e stopBtn devono essere dichiarate come variabili globali.

Sub HideThem()

Set v = CommandBars("CustomButtons")

Set startBtn = v.Controls(1)

With startBtn

    .Visible = False

    .Caption = "Stop Processing"

End With

Set stopBtn = v.Controls(2)

stopBtn.OnAction = "onActionButtons"

End Sub

Sub onActionButtons()

stopBtn.Visible = False

With startBtn

    .Visible = True

    .Style = msoButtonCaption

End With

Do While startBtn.State <> True

'Continue processing sub

Loop

End Sub

Aggiunta e modifica di controlli casella combinata

Le caselle di modifica, le caselle di riepilogo a discesa e le caselle combinate sono nuovi controlli estremamente utili che è possibile aggiungere alle barre degli strumenti nell'applicazione Visual Basic. Nella maggior parte delle applicazioni contenitore, per la progettazione di questi controlli è tuttavia richiesto l'utilizzo del codice di Visual Basic. Nella tabella seguente sono riportati i metodi e le proprietà che è possibile utilizzare per progettare un controllo casella combinata.

Proprietà o metodo	Descrizione
Add	Aggiunge un controllo casella combinata a una barra dei comandi specificando per l'argomento Type una delle seguenti costanti MsoControlType: msoControlEdit, msoControlDropdown o msoControlComboBox.
AddItem	Aggiunge una voce all'elenco di una casella di riepilogo a discesa o di una casella combinata. È possibile specificare il numero di indice della nuova voce nell'elenco esistente, ma se il numero è maggiore del numero di voci disponibili nell'elenco, verrà generato un errore.
Caption	Specifica l'etichetta del controllo casella combinata. Si tratta dell'etichetta visualizzata accanto al controllo se la proprietà Style viene impostata su msoComboLabel.
Style	Specifica se la didascalia del controllo specificato verrà visualizzata o meno accanto al controllo. Può essere rappresentata da una delle seguenti costanti: msoComboLabel (l'etichetta viene visualizzata) o msoComboNormal (l'etichetta non viene visualizzata).
OnAction	Specifica la routine che verrà eseguita quando l'utente modifica il contenuto del controllo casella combinata.
Nell'esempio seguente viene aggiunta una casella combinata con l'etichetta "Quarter" a una barra degli strumenti personalizzata e al controllo viene assegnata la macro denominata "ScrollToQuarter".

Set newCombo = CommandBars("Custom1").Controls _

    .Add(Type:=msoControlComboBox)

With newCombo

    .AddItem "T1"

    .AddItem "T2"

    .AddItem "T3"

    .AddItem "T4"

    .Style = msoComboNormal

    .OnAction = "ScrollToQuarter"

End With

Mentre l'applicazione è in esecuzione, ogni volta che l'utente modifica il controllo viene richiamata la routine assegnata alla proprietà OnAction della casella combinata. Nella routine è possibile utilizzare la proprietà ActionControl dell'oggetto CommandBars per identificare il controllo che è stato modificato e restituire il nuovo valore. La proprietà ListIndex restituirà la voce digitata o selezionata nella casella combinata.


Aggiunta e gestione delle barre dei menu e degli elementi dei menu

In alcune applicazioni contenitore non è disponibile un modo per creare nuove barre dei menu ed è quindi necessario crearle utilizzando Visual Basic. Dopo aver creato una barra dei menu in Visual Basic, è possibile personalizzarla utilizzando l'interfaccia dell'applicazione contenitore oppure continuando a utilizzare Visual Basic.

Aggiunta di barre dei menu in fase di esecuzione

Quando viene aggiunta una barra dei menu a un'applicazione in fase di esecuzione, è possibile utilizzare il metodo Add per l'insieme CommandBars e impostare l'argomento MenuBar su True. Nell'esempio seguente viene aggiunta una barra dei menu che può essere spostata. La barra dei menu viene inoltre ancorata al lato destro della finestra dell'applicazione. La nuova barra diventa attiva quando si preme il tasto ALT.

Set menubar = CommandBars.Add _

    (Name:="mBar", Position:=msoBarRight, MenuBar:=True)

With menubar

    .Protection = msoBarNoMove

    .Visible = True

End With

Inserimento di modifiche in fase di esecuzione alle barre dei menu

È possibile apportare modifiche in fase di esecuzione alla barra dei menu e ai relativi controlli. Le modifiche apportate alla barra dei menu possono influenzarne l'aspetto o la posizione. Le modifiche apportate ai controlli variano in base al tipo di controllo. Nella tabella seguente sono riportati i metodi e le proprietà in genere utilizzati per modificare le barre dei menu in fase di esecuzione.

Proprietà o metodo	Descrizione
Add	Aggiunge una barra dei menu mediante l'utilizzo del metodo Add dell'insieme CommandBars e l'impostazione dell'argomento MenuBar su True.
Enabled	Se questa proprietà è impostata su True, sarà possibile rendere visibile la barra dei menu specificata utilizzando il codice di Visual Basic. Se è impostata su False, non sarà possibile renderla visibile, ma verrà comunque visualizzata nell'elenco delle barre dei comandi disponibili.
Protection	Consente di proteggere la barra dei menu dalle azioni specificate. Può essere rappresentata da una o dalla somma delle seguenti costanti: msoBarNoChangeDock, msoBarNoChangeVisible, msoBarNoCustomize, msoBarNoCustomize, msoBarNoHorizontalDock, msoBarNoMove, msoBarNoProtection, msoBarNoResize e msoBarNoVerticalDock.
Position	Specifica la posizione della nuova barra dei menu in relazione alla finestra dell'applicazione. Può essere rappresentata da una delle seguenti costanti: msoBarLeft, msoBarTop, msoBarRight, msoBarBottom, msoBarFloating, msoBarPopup (utilizzata per creare menu di scelta rapida) o msoBarMenuBar (specifica una barra dei menu per l'ambiente Macintosh).
Visible	Specifica se il controllo verrà visualizzato o nascosto. Se è nascosto, il nome della barra dei menu verrà comunque visualizzato nell'elenco delle barre dei comandi disponibili.
Nell'esempio seguente la barra dei menu attiva viene nascosta e viene sostituita da una barra dei menu temporanea, che viene ancorata al lato destro della finestra dell'applicazione e protetta dalle azioni eseguite dall'utente.

Set oldMbar = CommandBars.ActiveMenuBar

Set newMbar = CommandBars.Add _

(Name:="newMenubar", Position:=msoBarRight, _

MenuBar:=True, temporary:=True)

With newMbar

    .Visible = True

    .Protection = msoBarNoMove

End With

Unione di barre dei menu in fase di esecuzione

Se in un'applicazione destinata a essere un'aggiunta sono disponibili barre dei menu personalizzate, è possibile specificare la modalità di rappresentazione dei relativi controlli all'interno dell'applicazione contenitore. Utilizzare la proprietà OLEMenuGroup del controllo CommandBarPopup per specificare in quale modo verrà eseguita l'unione.

Se le barre dei comandi non sono implementate dall'applicazione contenitore o dall'applicazione server, verrà eseguita un'unione "non Office", ovvero la barra dei menu verrà unita, insieme a tutte le barre degli strumenti del server, ma non verrà unita nessuna delle barre degli strumenti dell'applicazione contenitore. È inoltre possibile utilizzare la proprietà OLEUsage per specificare il modo in cui verrà effettuata l'unione della barra dei menu.

Se le barre dei comandi sono implementate dall'applicazione contenitore e dall'applicazione server, verrà effettuata un'unione del tipo "Office in Office", ovvero i controlli della barra dei comandi verranno incorporati nell'applicazione Office, un controllo alla volta. Entrambe queste proprietà (OLEMenuGroup e OLEUsage) sono importanti solo per i controlli popup delle barre dei menu, poiché i menu vengono considerati in base alla relativa categoria del gruppo di menu.

Inserimento di modifiche in fase di esecuzione alle voci di menu

Il numero di modifiche che è possibile apportare a una voce di menu varia in base al tipo di controllo. I pulsanti sono in genere attivati o nascosti. Per le caselle di modifica, le caselle di riepilogo a discesa e le caselle combinate, è possibile aggiungere o eliminare voci dall'elenco oppure determinare l'azione che verrà eseguita in base al valore selezionato. È possibile sostituire una funzione predefinita o personalizzata all'azione associata a qualsiasi controllo.

Nella tabella seguente sono riportati i metodi e le proprietà in genere utilizzati per modificare lo stato, l'azione o il contenuto di un controllo.

Proprietà o metodo	Descrizione
Add	Aggiunge una voce di menu a una barra dei comandi. Per i controlli predefiniti, può essere rappresentato da una delle seguenti costanti MsoControlType per l'argomento Type: msoControlButton, msoControlEdit, msoControlDropdown o msoControlComboBox.
AddItem	Aggiunge una voce all'elenco di una casella di riepilogo a discesa o di una casella combinata. È possibile specificare il numero di indice della nuova voce nell'elenco esistente, ma se tale numero è maggiore del numero di voci nell'elenco, verrà generato un errore.
Style	Specifica se nell'immagine del pulsante viene visualizzata la relativa icona o la didascalia. Può essere rappresentata da una delle seguenti costanti: msoButtonAutomatic, msoButtonIcon, msoButtonCaption o msoButtonIconandCaption.
OnAction	Specifica la routine che verrà eseguita ogni volta che l'utente modifica il valore del controllo specificato.
Visible	Specifica se il controllo verrà visualizzato o se sarà nascosto.
Nell'esempio seguente viene aggiunto un controllo popup temporaneo denominato "Custom" in fondo alla barra dei menu attiva e quindi viene aggiunto un pulsante denominato "Import" alla barra dei comandi popup Personalizzato.

Set myMenuBar = CommandBars.ActiveMenuBar

Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, Temporary:=True)

newMenu.Caption = "Custom"

Set ctrl1 = newMenu.Controls

    .Add(Type:=msoControlButton, Id:=1)

ctrl1.Caption = "Import"

ctrl1.TooltipText = "Import"

ctrl1.Style = msoButtonCaption


Aggiunta e visualizzazione di menu di scelta rapida

I menu di scelta rapida sono barre dei comandi mobili che vengono visualizzate quando si fa clic con il pulsante destro del mouse. Possono includere gli stessi tipi di controlli di una barra dei comandi e il funzionamento dei controlli è uguale. Nella maggior parte delle applicazioni non è tuttavia possibile creare o modificare i menu di scelta rapida dall'interfaccia dell'applicazione. È quindi necessario creare e modificare tali menu in fase di esecuzione.

Aggiunta di menu di scelta rapida in fase di esecuzione

L'unica differenza tra i menu di scelta rapida e le altre barre degli strumenti è rappresentata dal fatto che quando viene creato un menu di scelta rapida con il metodo Add, è necessario specificare msoBarPopUp per l'argomento Position. Nell'esempio seguente viene creato un nuovo menu di scelta rapida, al quale vengono aggiunti due controlli con didascalie e quindi viene utilizzato il metodo ShowPopup per visualizzare il nuovo menu.

Set x = CommandBars.Add("Custom", msoBarPopup)

Set y = x.Controls.Add

With y

    .FaceId = 26

    .Caption = "Analyze the data"

End With

Set z = x.Controls.Add

With z

    .FaceId = 17

    .Caption = "Graph the data"

End With

x.ShowPopup 200, 200

Visualizzazione di menu di scelta rapida

Utilizzare il metodo ShowPopup per visualizzare i menu di scelta rapida, in base a quanto illustrato nell'esempio precedente.

Se l'applicazione contenitore supporta l'assegnazione di routine di eventi alle azioni eseguite dall'utente, è possibile visualizzare un menu di scelta rapida in risposta a un evento rappresentato da un clic con il pulsante destro del mouse. Non tutte le applicazioni supportano tuttavia le routine di eventi. Verificare nella documentazione dell'applicazione contenitore in uso se sono supportate le routine di eventi.

Inserimento di modifiche in fase di esecuzione ai menu di scelta rapida

Tutte le modifiche a un menu di scelta rapida devono essere apportate in fase di esecuzione e sono in genere limitate all'aspetto o all'azione associati ai controlli del menu. Per ulteriori informazioni sull'aggiunta e la gestione delle voci di menu, vedere Aggiunta e gestione delle barre dei menu e degli elementi dei menu.


Oggetti di Microsoft Office


Restituzione di un oggetto da un insieme

La proprietà Item restituisce un oggetto di un insieme. Nell'esempio seguente la variabile cmdbar viene impostata su un oggetto CommandBar che rappresenta la prima barra dei comandi dell'insieme.

Set cmdbar = CommandBars.Item(1)

La proprietà Item è la proprietà predefinita per la maggior parte degli insiemi. Ciò consente di scrivere la stessa istruzione in modo più conciso se viene omessa la parola chiave Item.

Set cmdbar = CommandBars(1)

Per ulteriori informazioni su un insieme specifico, vedere l'argomento della Guida relativo all'insieme o alla proprietà Item per l'insieme.


Argomento della Guida non disponibile

Non è possibile visualizzare l'argomento della Guida poiché la Guida di Visual Basic, Applications Edition non è stata trovata o non è stata installata.

Per installare la Guida di Visual Basic, Applications Edition

1.	Eseguire il programma di installazione di Microsoft Office 97 e fare clic su Aggiungi/Rimuovi.

1.	Fare clic su Microsoft Access, Microsoft Excel, Microsoft PowerPoint o Microsoft Word e quindi su Modifica opzione.

1.	Fare clic su Guida e quindi su Modifica opzione.

1.	Accertarsi che sia selezionata la casella di controllo Guida di Visual Basic o Guida di riferimento al linguaggio (Microsoft Access).

1.	Procedere con l'installazione.


Metodo ActivateWizard

Riprende o interrompe una sessione della creazione guidata per l'Assistente di Office.

Nota   Questo metodo viene utilizzato come parte del processo avviato con il metodo StartWizard.

Sintassi

espressione.ActivateWizard(WizardID, Act, Animation)

espressione   Obbligatoria. Espressione che restituisce un oggetto Assistant.

WizardID   Valore Long obbligatorio. Numero che identifica in modo univoco la sessione della creazione guidata per l'Assistente di Office, come viene restituito dal metodo StartWizard.

Act   Valore Variant obbligatorio. Specifica in quale modo viene modificata la sessione della creazione guidata per l'Assistente di Office. Può essere rappresentata da una delle seguenti costanti: msoWizardActTypes: msoWizardActActive, msoWizardActInactive, msoWizardActResume o msoWizardActSuspend.

Animation   Valore Variant facoltativo. Tipo di animazione eseguita dall'Assistente di Office quando viene ripresa o interrotta la sessione della creazione guidata.


Esempio del metodo ActivateWizard

In questo esempio viene interrotta la sessione della creazione guidata per l'Assistente di Office avviata con il metodo StartWizard. Per la variabile helpForWiz è stata impostato il valore restituito dal metodo StartWizard.

Assistant.ActivateWizard WizardID:=helpForWiz, _

   Act:=msoWizardActSuspend, Animation:=msoAnimationGoodbye


Metodo Close

Chiude il fumetto non a scelta obbligatoria attivo.

Sintassi

espressione.Close

espressione   Obbligatoria. Espressione che restituisce un oggetto Balloon.


Esempio del metodo Close

In questo esempio viene visualizzato un fumetto contenente le istruzioni per la selezione di una stampante. Dopo che l'utente ha scelto OK, viene eseguita la routine ProcessPrinter e il fumetto viene chiuso.

Sub shar()

Set bln = Assistant.NewBalloon

With bln

    .Heading = "Instructions for Choosing a Printer."

    .Text = "Click OK when you've chosen a printer."

     .Labels(1).Text = "Choose File, Print."

    .Labels(2).Text = "Click Setup."

    .Labels(3).Text = "Select the name of the printer."

    .BalloonType = msoBalloonTypeNumbers

    .Mode = msoModeModeless

    .Callback = "ProcessPrinter"

    .Button = msoButtonSetOK

    .Show

End With

End Sub

Sub ProcessPrinter(bln As Balloon, ibtn As Long, _

 iPriv As Long)

    Assistant.Animation = msoAnimationSearching

     ' Insert printer-specific code

    bln.Close

End Sub


Metodo EndWizard

Chiude la finestra dell'Assistente di Office e rilascia la variabile che identifica in modo univoco la sessione della creazione guidata.

Nota   Questo metodo consente di completare il processo avviato con il metodo StartWizard.

Sintassi

espressione.EndWizard(WizardID, varfSuccess, Animation)

espressione    Obbligatoria. Espressione che restituisce un oggetto Assistant.

WizardID   Valore Long obbligatorio. Numero che identifica in modo univoco la sessione della creazione guidata per l'Assistente di Office, come viene restituito dal metodo StartWizard.

varfSuccess   Valore Boolean obbligatorio. Quando il metodo restituisce, questo argomento è True se l'utente ha completato correttamente la creazione guidata.

Animation   Valore Variant facoltativo. Tipo di animazione che viene eseguita dall'Assistente di Office al termine della sessione della creazione guidata.


Esempio del metodo EndWizard Method

In questo esempio l'Assistente di Office viene chiuso in seguito al corretto completamento di una sessione della relativa creazione guidata da parte dell'utente. Alla variabile helpForWiz viene assegnato il valore restituito dal metodo StartWizard.

Assistant.EndWizard WizardId:=helpForWiz, _

    varfSuccess:=True, Animation:=msoAnimationGoodbye


Metodo StartWizard

Avvia l'Assistente di Office come parte di un processo che consente di fornire informazioni aggiuntive sui riquadri delle creazioni guidate personalizzate esistenti. Restituisce un numero che identifica in modo univoco la sessione della creazione guidata per l'Assistente di Office.

Sintassi

espressione.StartWizard(On, Callback, PrivateX, Animation, CustomTeaser, Top, Left, Bottom, Right)

espressione    Obbligatoria. Espressione che restituisce un oggetto Assistant.

On   Valore Boolean obbligatorio. Rappresenta lo stato locale della creazione guidata. Quando il metodo restituisce il risultato, questo argomento è True se l'utente richiede informazioni della Guida sulla creazione guidata dal fumetto standard in cui viene chiesto all'utente se desidera consultare la Guida.

Callback   Valore String obbligatorio. Nome della routine di richiamata automatica che verrà eseguita.

PrivateX   Valore Long obbligatorio. Identificatore univoco del riquadro del fumetto dell'Assistente di Office che inizializza la routine di richiamata automatica.

Animation   Valore Variant facoltativo. Tipo di animazione che viene eseguita dall'Assistente di Office quando viene visualizzato. Il valore predefinito è msoAnimationGetWizardy.

CustomTeaser   Valore Variant facoltativo. True per visualizzare il fumetto standard in cui viene richiesto all'utente se desidera sostituire un fumetto personalizzato alla Guida.

Top, Left, Bottom, Right   Valore Variant facoltativo. Posizione degli angoli, espressi in punti e in relazione allo schermo, del riquadro della creazione guidata personalizzato che verrà ignorato dall'Assistente di Office quando viene avviato o quando si passa ad esso.

Osservazioni

Se viene utilizzato il metodo StartWizard, per visualizzare l'Assistente di Office non è necessario utilizzare la proprietà Visible.


Esempio del metodo StartWizard

In questo esempio l'Assistente di Office viene avviato come parte di un processo che consente di fornire informazioni aggiuntive sulle creazioni guidate personalizzate esistenti. Se l'utente fa clic sulla selezione all'interno del fumetto in cui vengono richieste informazioni della Guida aggiuntive, verrà eseguita la routine di richiamata automatica. Per la variabile helpForWiz viene impostato il valore restituito dal metodo StartWizard.

helpForWiz = Assistant.StartWizard(on:=True, _

    PrivateX:=23, Callback:="myCallback", _

    Animation:=msoAnimationGetAttentionMajor, _

    CustomTeaser:=False, Top:=100, Left:=200, _

    Bottom:=50, Right:=200)


Proprietà AssistWithAlerts

True se gli avvisi dell'applicazione vengono visualizzati nel fumetto dell'Assistente di Office quando l'Assistente è visibile. Valore Boolean di lettura/scrittura.

Osservazioni

La proprietà AssistWithAlerts corrisponde all'opzione Visualizzazione avvisi nella casella di gruppo Abilità dell'assistente della scheda Opzioni della finestra di dialogo Assistente di Office.

Se questa proprietà è False, gli avvisi verranno visualizzati in finestre di dialogo distinte senza l'Assistente di Office.


Esempio della proprietà AssistWithAlerts

In questo esempio viene impostata la visualizzazione dell'Assistente di Office ogni volta che viene generato un avviso dell'applicazione.

With Assistant

    .AssistWithHelp = True

    .AssistWithAlerts = True

    .Animation = msoAnimationGreeting

    .Visible = True

End With


Proprietà AssistWithHelp

True se l'Assistente di Office viene visualizzato ogni volta che l'utente preme F1 per visualizzare la Guida. Valore Boolean di lettura/scrittura.

Osservazioni

La proprietà AssistWithHelp corrisponde all'opzione Utilizzo del tasto F1 nella casella di gruppo Abilità dell'assistente della scheda Opzioni della finestra di dialogo Assistente di Office.

Se questa proprietà è impostata su False, verrà visualizzata la finestra di dialogo Guida in linea anziché l'Assistente di Office.


Esempio della proprietà AssistWithHelp

In questo esempio l'Assistente di Office viene visualizzato ogni volta che l'utente preme F1 per visualizzare la Guida.

With Assistant

    .AssistWithHelp = True

    .AssistWithAlerts = True

    .Animation = msoAnimationGreeting

    .Visible = True

End With


Proprietà Callback

Imposta il nome della routine che verrà eseguita ogni volta che viene visualizzato un fumetto a scelta obbligatoria. Valore String di lettura/scrittura.

Nota   Se si specifica una macro associata a un foglio di lavoro di Excel, è necessario includere il foglio di lavoro nel riferimento, ad esempio "Sheet1.myCallback" anziché "myCallback".


Esempio della proprietà Callback

In questo esempio viene visualizzato un fumetto contenente le istruzioni per la selezione di una stampante. Dopo che l'utente ha scelto OK all'interno del fumetto, verrà eseguita la routine ProcessPrinter e il fumetto verrà chiuso.

Sub shar()

Set bln = Assistant.NewBalloon

With bln

    .Heading = "Select a Printer."

    .Text = "Click OK when you've selected a printer."

     .Labels(1).Text = "Network Printer"

    .Labels(2).Text = "Local Printer"

    .Labels(3).Text = "Local Color Printer"

    .BalloonType = msoBalloonTypeButtons

    .Mode = msoModeModeless

    .Callback = "ProcessPrinter"

    .Button = msoButtonSetOK

    .Show

End With

End Sub

A ogni routine specificata nella proprietà Callback vengono passati tre argomenti: il fumetto che ha attivato la routine, il valore resituito dal pulsante premuto dall'utente e un intero che identifica in modo univoco il fumetto che ha richiamato la routine.

Sub ProcessPrinter(bln As Balloon, ibtn As Long, _

 iPriv As Long)

Assistant.Animation = msoAnimationPrinting

    Select Case ibtn

    Case 1

        ' Insert printer-specific code

        bln.Close

    Case 2

        ' Insert printer-specific code

        bln.Close

    Case 3

        ' Insert printer-specific code

        bln.Close

    End Select

    End Sub


Proprietà Private

Restituisce o imposta un intero che identifica in modo univoco il fumetto dell'Assistente di Office che inizializza la routine di richiamata automatica. Valore Long di lettura/scrittura.

Osservazioni

Questa proprietà può risultare utile se la stessa routine di richiamata automatica viene utilizzata in una serie di casi differenti.


Esempio della proprietà Private Property

In questo esempio il fumetto dell'Assistente di Office viene identificato impostando la proprietà Private su 129. La routine di richiamata automatica myCallback viene utilizzata in una serie di casi, che verranno identificati mediante il valore intero 129.

With myBalloon

    .Heading = "Select a region"

    .Private = 129

    .Callback = "myCallback"

    .Show

End With


Metodo SetAvoidRectangle

Evita che il fumetto dell'Assistente di Office venga visualizzato in una determinata area dello schermo.

Sintassi

espressione.SetAvoidRectangle(Left, Top, Right, Bottom)

espressione   Obbligatoria. Espressione che restituisce un oggetto Assistant.

Left, Top, Right, Bottom   Valore Long obbligatorio. Coordinate, espresse in punti e in relazione allo schermo, dell'area dello schermo in cui il fumetto dell'Assistente di Office non verrà visualizzato quando è visibile.

Osservazioni

Questa proprietà consente di evitare che il fumetto dell'Assistente di Office risulti sovrapposto alle finestre di dialogo e alle creazioni guidate personalizzate.


Esempio del metodo SetAvoidRectangle

In questo esempio viene impedita la visualizzazione del fumetto dell'Assistente di Office rappresentato dalla variabile myBalloon nell'area dello schermo identificata dalle coordinate specificate (espresse in pixel).

With myBalloon

    .SetAvoidRectangle 300, 250, 700, 500

    .Show

End With


Metodo ResetTips

Reimposta i suggerimenti che verranno visualizzati nel fumetto dell'Assistente di Office.

Sintassi

espressione.ResetTips

espressione  Obbligatoria. Espressione che restituisce un oggetto Assistant.

Osservazioni

Il metodo ResetTips corrisponde al pulsante Reimposta suggerimenti nella scheda Opzioni della finestra di dialogo Assistente di Office.


Esempio del metodo ResetTips

In questo esempio i suggerimenti dell'applicazione vengono reimpostati prima che sia visualizzato l'Assistente di Office. Verrà visualizzato un fumetto di conferma indicante che i suggerimenti dell'applicazione sono stati reimpostati.

With Application.Assistant

    .Visible = True

    .Animation = msoAnimationGreeting

    .ResetTips

End With


Proprietà DisplayKeysInTooltips

True se i tasti di scelta rapida vengono visualizzati nella descrizione di ciascun controllo barra dei comandi. Valore Boolean di lettura/scrittura.

Osservazioni

Per visualizzare i tasti di scelta rapida nelle descrizioni dei comandi, è inoltre necessario impostare la proprietà DisplayTooltips su True.


Esempio della proprietà DisplayKeysInTooltips

In questo esempio vengono impostate le opzioni per tutte le barre dei comandi di Microsoft Office.

With CommandBars

    .LargeButtons = True

    .DisplayTooltips = True

    .DisplayKeysInTooltips = True

    .MenuAnimationStyle = msoMenuAnimationUnfold

End With


Proprietà MenuAnimationStyle

Restituisce o imposta la modalità di animazione della barra dei comandi specificata. Può essere rappresentata da uno dei seguenti tipi msoMenuAnimation: msoMenuAnimationNone, msoMenuAnimationRandom, msoMenuAnimationUnfold o msoMenuAnimationSlide. Di lettura/scrittura.


Esempio della proprietà MenuAnimationStyle

In questo esempio vengono impostate le opzioni per tutte le barre dei comandi di Microsoft Office.

With CommandBars

    .LargeButtons = True

    .DisplayTooltips = True

    .DisplayKeysInTooltips = True

    .MenuAnimationStyle = msoMenuAnimationUnfold

End With


Proprietà ActionControl

Restituisce l'oggetto CommandBarControl la cui proprietà OnAction è impostata sulla routine in esecuzione. Se tale routine non è stata inizializzata da un controllo di una barra dei comandi, la proprietà restituisce Nothing. Di sola lettura.


Esempio della proprietà ActionControl

In questo esempio viene disattivato il controllo della barra dei comandi che ha inizializzato la routine in esecuzione e contemporaneamente vengono eseguite una serie di istruzioni, quindi il controllo viene attivato.

Set theCtrl = CommandBars.ActionControl

theCtrl.Enabled = False

    'Inserisce qui il processo OnAction

theCtrl.Enabled = True


Proprietà Context

Restituisce o imposta una stringa che specifica la posizione in cui verrà salvata la barra dei comandi specificata. La stringa viene definita e interpretata dall'applicazione. Valore String di lettura/scrittura.

Osservazioni

È possibile impostare la proprietà Context solo per le barre dei comandi personalizzate. Se la stringa di contesto non viene riconosciuta dall'applicazione o se la modifica a livello di programmazione delle stringhe di contesto non è supportata dall'applicazione stessa, verrà generato un errore.


Proprietà Author

Solo Macintosh. Restituisce o imposta una stringa (costituita da un massimo di 80 caratteri) che rappresenta l’autore visualizzato nelle proprietà del documento di cui si desidera eseguire la ricerca. Valore String di lettura/scrittura.


Proprietà DateCreatedFrom

Solo Macintosh. Restituisce o imposta la data di creazione del file di cui si desidera eseguire la ricerca e che costituirà il limite minimo a partire dal quale eseguire la ricerca. Valore Variant di lettura/scrittura.

Osservazioni

È possibile utilizzare la proprietà DateCreatedTo per impostare un limite massimo entro cui eseguire la ricerca del file, oppure ometterla per eseguire una ricerca aperta.


Proprietà DateCreatedTo

Solo Macintosh. Restituisce o imposta la data di creazione del file di cui si desidera eseguire la ricerca e che costituirà il limite massimo entro cui eseguire la ricerca. Valore Variant di lettura/scrittura.


Property DateSavedFrom
Proprietà DateSavedFrom

Solo Macintosh. Restituisce o imposta la data dell’ultimo salvataggio del file di cui si desidera eseguire la ricerca e che costituirà il limite minimo a partire dal quale eseguire la ricerca. Valore Variant di lettura/scrittura.

Osservazioni

È possibile utilizzare la proprietà DateSavedTo per impostare un limite massimo entro cui eseguire la ricerca del file, oppure ometterla per eseguire una ricerca aperta.


Proprietà DateSavedTo

Solo Macintosh. Restituisce o imposta la data dell’ultimo salvataggio del file di cui si desidera eseguire la ricerca e che costituirà il limite massimo entro cui eseguire la ricerca. Valore Variant di lettura/scrittura.


Proprietà Keywords

Solo Macintosh. Restituisce o imposta una stringa (costituita da un massimo di 80 caratteri) che rappresenta le parole chiave elencate nelle proprietà del documento di cui si desidera eseguire la ricerca. Valore String di lettura/scrittura.


Proprietà ListBy

Solo Macintosh. Restituisce o imposta il modo in cui i file trovati vengono visualizzati nella finestra dei risultati. Può essere rappresentata da una delle seguenti costanti msoFileFindListBy: msoFileFindListByName, che elenca i file trovati in base al relativo nome file di sistema, oppure msoFileFindListByTitle che elenca i file trovati in base alla relativa proprietà del titolo. Di lettura/scrittura.


Metodo Load

Solo Macintosh. Carica in memoria la query di ricerca del file specificato.

Sintassi

espressione.Load(bstrQueryName)

espressione   Obbligatoria. Espressione che restituisce un oggetto FileFind.

bstrQueryName   Valore String obbligatorio. Stringa costituita da 31 caratteri o meno e che indica il nome dei criteri di ricerca salvati da caricare.

Osservazioni

Utilizzare il metodo Execute per eseguire una query caricata.


Proprietà MatchCase

Solo Macintosh. True se si desidera eseguire una ricerca che tenga conto dell’uso di maiuscole e minuscole. Valore Boolean di lettura/scrittura.


Proprietà Options

Solo Macintosh. Restituisce o imposta il modo in cui il gruppo più recente di file trovati viene visualizzato in relazione alla lista dei risultati precedenti. Può essere rappresentata da una delle seguenti costanti msoFileFindOptions: msoFileFindOptionsNew, msoFileFindOptionsAdd oppure msoFileFindOptionsWithin. Valore Variant di lettura/scrittura.


Proprietà PatternMatch

True se devono essere inclusi nella ricerca dei file corrispondenti alla stringa della proprietà Text i caratteri jolly * (asterisco) e ? (punto interrogativo). Solo Macintosh. Valore Boolean di lettura/scrittura.

Osservazioni

Utilizzare il punto interrogativo come carattere jolly per indicare un carattere singolo. Digitando, ad esempio, fi?e verranno restituiti tutti i file contenenti almeno un’occorrenza della parola “file” o “fine”.

Utilizzare l’asterisco come carattere jolly per indicare più caratteri. Digitando ad esempio San* verranno restituiti tutti i file contenenti almeno una parola che inizi con "San”.


Proprietà Results

Solo Macintosh. Restituisce l’oggetto FileFindResults Di sola lettura.


Metodo Save

Solo Macintosh. Salva i criteri di ricerca specificati.

Sintassi

espressione.Save(bstrQueryName)

espressione Obbligatoria. Espressione che restituisce un oggetto FileFind.

bstrQueryName Valore String obbligatorio. Stringa (costituita da un massimo di 31 caratteri) che indica il nome dei criteri di ricerca da salvare.


Proprietà SavedBy

Solo Macintosh. Restituisce o imposta una stringa (costituita da un massimo di 80 caratteri) che specifica il nome dell’utente che per ultimo ha salvato il file di cui si desidera eseguire la ricerca. Valore String di lettura/scrittura.


Proprietà SearchPath

Solo Macintosh. Restituisce o imposta la cartella da cercare durante la ricerca di file specificata. Valore String di lettura/scrittura.

Osservazioni

Il percorso di ricerca può essere costituito da un massimo di 255 caratteri.


Proprietà SelectedFile

Solo Macintosh. Restituisce o imposta un numero che rappresenta il file evidenziato nella finestra di dialogo per la ricerca di file. Valore Integer di lettura/scrittura.

Osservazioni

Utilizzare il metodo Show per visualizzare la finestra di dialogo per la ricerca di file.


Proprietà SortBy

Solo Macintosh. Restituisce o imposta il metodo utilizzato per ordinare i file restituiti dalla ricerca di file specificata. Può essere rappresentata da una delle seguenti costanti msoFileFindSortBy: msoFileFindSortByAuthor, msoFileFindSortByDateCreated, msoFileFindSortByDateSaved, msoFileFindSortByFileName, msoFileFindSortByLastSavedBy, msoFileFindSortBySize oppure msoFileFindSortByTitle. Di lettura/scrittura.


Proprietà SubDir

Solo Macintosh. True se la ricerca di file specificata include tutte le sottocartelle contenute nella cartella specificata dalla proprietà SearchPath .Valore Boolean di lettura/scrittura.


Proprietà Subject

Solo Macintosh. Restituisce o imposta una stringa (costituita da un massimo di 80 caratteri) che rappresenta il soggetto visualizzato nelle proprietà del file di cui si desidera eseguire la ricerca. Valore String di lettura/scrittura.


Proprietà Title

Solo Macintosh. Restituisce o imposta una stringa (costituita da un massimo di 80 caratteri) che rappresenta il titolo del documento nelle proprietà del file di cui si desidera eseguire la ricerca. Valore String di lettura/scrittura.


Proprietà View

Solo Macintosh. Restituisce o imposta lo stile utilizzato per visualizzare le informazioni relative ai file trovati nella finestra di dialogo. Può essere rappresentata da una delle seguenti costanti msoFileFindView: msoFileFindViewFileInfo, msoFileFindViewPreview oppure msoFileFindViewSummary. Valore Variant di sola lettura.


Oggetto FileFind

Rappresenta la funzionalità della finestra di dialogo di ricerca dei file.

Utilizzo dell’oggetto FileFind

La proprietà FileFind restituisce l’oggetto FileFind.


Oggetto FileFindResults

Rappresenta l’elenco dei file restituiti da una ricerca di file.

Utilizzo dell’oggetto FileFindResults

La proprietà Results restituisce l’oggetto FileFindResults.

FileFindResults(item), dove item è il numero di indice, restituisce il percorso e il nome del file di un file trovato.

Il metodo Execute consente di avviare una ricerca di file e aggiorna l’elenco.

La proprietà View  consente di visualizzare l’elenco dei file trovati in una finestra di dialogo.


Identificatori programmatici OLE (controlli ActiveX)

Gli identificatori programmatici OLE (a volte denominati IDProg) vengono utilizzati per creare oggetti di automazione. Per creare un controllo ActiveX, è possibile utilizzare gli identificatori di seguito riportati.

Utilizzare questo identificatore	Per creare un oggetto
Forms.CheckBox.1	CheckBox
Forms.ComboBox.1	ComboBox
Forms.CommandButton.1	CommandButton
Forms.Frame.1	Frame
Forms.Image.1	Image
Forms.Label.1	Label
Forms.ListBox.1	ListBox
Forms.MultiPage.1	MultiPage
Forms.OptionButton.1	OptionButton
Forms.ScrollBar.1	ScrollBar
Forms.SpinButton.1	SpinButton
Forms.TabStrip.1	TabStrip
Forms.TextBox.1	TextBox
Forms.ToggleButton.1	ToggleButton


Proprietà Type

Oggetto DocumentProperty: restituisce o imposta il tipo di proprietà del documento. Può essere rappresentata da una delle seguenti costanti MsoDocProperties: msoPropertyTypeBoolean, msoPropertyTypeDate, msoPropertyTypeFloat, msoPropertyTypeNumber o msoPropertyTypeString. Di sola lettura per le proprietà predefinite del documento; di lettura/scrittura per le proprietà personalizzate del documento.

Oggetto CommandBar: restituisce il tipo di barra dei comandi. Può essere rappresentata da una delle seguenti costanti MsoBarType: msoBarTypeNormal, msoBarTypeMenuBar o msoBarTypePopup. Valore Long di sola lettura.

Oggetto CommandBarControl: restituisce il tipo di controllo della barra dei comandi. Valore Long di sola lettura.

Può essere rappresentata da una delle seguenti costanti MsoControlType.

Costante	Tipo di controllo
msoControlButton
msoControlButtonDropdown
msoControlButtonPopup
msoControlComboBox
msoControlCustom	Riservato per utilizzi futuri
msoControlDropdown
msoControlEdit
msoControlExpandingGrid
msoControlGauge
msoControlGenericDropdown	Riservato per utilizzi futuri
msoControlGraphicCombo
msoControlGraphicDropdown
msoControlGraphicPopup	Riservato per utilizzi futuri
msoControlGrid
msoControlLabel	Riservato per utilizzi futuri
msoControlOCXDropDown
msoControlPopup
msoControlSplitButtonMRUPopup
msoControlSplitButtonPopup
msoControlSplitDropdown
msoControlSplitExpandingGrid	Riservato per utilizzi futuri


Esempio della proprietà Type

In questo esempio viene trovato il primo controllo con l'etichetta "Change this bar". Se il controllo a cui è assegnato questo valore di etichetta è un pulsante di una barra dei comandi, verrà aggiunta una nuova casella combinata all'estremità della barra e l'etichetta del pulsante trovato verrà cambiata in "Changed".

Set ctrl = CommandBars _

    .FindControl(Tag:="Change this bar")

If ctrl Is Nothing Then Goto notFound

If ctrl.Type = msoControlButton Then

    Set br = ctrl.Parent

br.Controls.Add(Type:=msoControlComboBox)

    ctrl.Tag = "Changed"

End If

In questo esempio vengono visualizzati il nome, il tipo e il valore di una proprietà del documento. È necessario passare un oggetto DocumentProperty valido alla routine.

Sub DisplayPropertyInfo(dp As DocumentProperty)

    MsgBox "value = " & dp.Value & Chr(13) & _

        "type = " & dp.Type & Chr(13) & _

        "name = " & dp.Name

End Sub


Proprietà Visible

Oggetto CommandBar e CommandBarControl: True se la barra dei comandi o il controllo barra dei comandi specificati sono visibili. Valore Boolean di lettura/scrittura.

Oggetto Assistant: True se l'Assistente di Office è visibile. Valore Boolean di lettura/scrittura.

Osservazioni

Per le barre dei comandi personalizzate appena create, l'impostazione predefinita della proprietà Visible è False.

Per le barre dei comandi, prima che la proprietà Visible venga impostata su True è necessario impostare la proprietà Enabled su True.


Esempio della proprietà Visible

In questo esempio viene esaminato l'insieme delle barre dei comandi allo scopo di trovare la barra dei comandi Forms. Se la barra viene trovata, essa viene resa visibile e il relativo stato di ancoraggio viene protetto.

foundFlag = False

For Each cmdbar In CommandBars

    If cmdbar.Name = "Forms" Then

        cmdbar.Protection = msoBarNoChangeDock

        cmdbar.Visible = True

        foundFlag = True

    End If

Next

If Not foundFlag Then

    MsgBox "'Forms'command bar is not in the collection."

End If

In questo esempio viene reso visibile l'Assistente di Office e viene impostata la relativa animazione.

With Application.Assistant

    .Visible = True

    .Sounds = True

    .Animation = msoAnimationBeginSpeaking

End With


Proprietà Width

Restituisce o imposta la larghezza, espressa in pixel, della barra dei comandi o del controllo barra dei comandi specificato. Valore Long di lettura/scrittura.


Esempio della proprietà Width

In questo esempio viene inserito un controllo aggiuntivo prima del secondo controllo sulla barra dei comandi denominata "Custom". L'altezza del controllo aggiuntivo viene quindi impostata su un valore pari alla metà dell'altezza della barra dei comandi e la larghezza viene impostata su 50 pixel.

Set myBar = cmdbar.CommandBars("Custom")

barheight = myBar.Height

Set myControl = myBar.Controls _

    .Add(Type:=msoControlComboBox, Id:=4, Before:=2, Temporary:=True)

With myControl

    .Height = barheight / 2

    .Width = 50

End With

myBar.Visible = True


Proprietà Application

Restituisce un oggetto Application che rappresenta l'applicazione contenitore per l'oggetto specificato. È possibile utilizzare questa proprietà con un oggetto di animazione per restituire l'applicazione contenitore dello stesso oggetto. Di sola lettura.


Esempio della proprietà Application

In questo esempio viene restituita l'applicazione in cui è stata creata la barra dei comandi denominata "Documents".

Set Appobj = CommandBars("Document").Application


Proprietà Creator

Restituisce il codice a quattro caratteri relativo all'applicazione con cui è stato creato l'oggetto specificato. Solo Macintosh. Valore Long di sola lettura.


Proprietà Parent

Restituisce l'oggetto contenitore per l'oggetto specificato. Di sola lettura.


Esempio della proprietà Parent

In questo esempio viene visualizzato il nome dell'oggetto contenitore per una proprietà del documento. È necessario passare alla routine un oggetto DocumentProperty valido.

Sub DisplayParent(dp as DocumentProperty)

    MsgBox dp.Parent.Name

End Sub


Proprietà ShortcutText

Restituisce o imposta il testo per il tasto di scelta rapida visualizzato accanto al controllo pulsante specificato quando il pulsante compare in un menu, sottomenu o menu di scelta rapida. Valore String di lettura/scrittura.

Osservazioni

È possibile impostare questa proprietà solo per i pulsanti delle barre dei comandi ai quali è stata assegnata una macro OnAction.


Esempio della proprietà ShortcutText

In questo esempio viene posizionato un pulsante per grafici sulla barra dei comandi denominata "Custom" e a tale pulsante vengono assegnati una macro OnAction, un tasto di scelta rapida e una didascalia.

Set myControl = CommandBars("Custom").Controls _

    .Add(Type:=msoControlButton, Id:= 17)

With myControl

    .OnAction = "MySub"

    .Caption = "Graph Results"

    .Control.ShortcutText = "CTRL+MAIUSC+M"

End With


Proprietà Height

Restituisce o imposta l'altezza della barra dei comandi o del controllo barra dei comandi specificato, espressa in pixel. Valore Long di lettura/scrittura.

Osservazioni

Se le dimensioni della barra dei comandi non possono essere modificate, ad esempio se la barra è ancorata o protetta dal ridimensionamento, e viene impostata la proprietà Height, verrà generato un errore.


Esempio della proprietà Height

In questo esempio viene inserito un controllo aggiuntivo prima del secondo controllo sulla barra dei comandi denominata "Custom". L'altezza del controllo viene quindi impostata su un valore pari alla metà dell'altezza della barra dei comandi e la larghezza viene impostata su 50 pixel.

Set myBar = cmdbar.CommandBars("Custom")

barHeight = myBar.Height

Set myControl = myBar.Controls _

    .Add(Type:=msoControlComboBox, Before:=2, Temporary:=True)

With myControl

    .Height = barHeight / 2

    .Width = 50

End With

myBar.Visible = True


Proprietà Id

Restituisce il numero di identificazione per il controllo barra dei comandi predefinito specificato. Valore Long di sola lettura.

Osservazioni

Il numero di identificazione di un controllo determina l'azione predefinita da esso eseguita. Il valore assegnato alla proprietà Id di tutti i controlli aggiuntivi è 1.


Esempio della proprietà Id

In questo esempio viene modificata l'immagine del primo controllo sulla barra dei comandi denominata "Custom2" se il valore ID del pulsante è inferiore a 25.

Set ctrl = CommandBars("Custom2").Controls(1)

With ctrl

    If .Id < 25 Then

        .FaceId = 17

        .Tag = "Changed control"

    End If

End With

Nell'esempio seguente la didascalia di tutti i controlli sulla barra dei comandi denominata "Standard" viene modificata nel valore corrente della relativa proprietà Id.

For Each ctl In CommandBars("Standard").Controls

    ctl.Caption = CStr(ctl.Id)

Next ctl


Proprietà Index

Restituisce il numero di indice dell'oggetto specificato all'interno dell'insieme. Valore Long di sola lettura.

Osservazioni

La posizione del primo controllo della barra dei comandi è 1. I separatori non vengono contati nell'insieme CommandBarControls.


Esempio della proprietà Index

In questo esempio nella barra dei comandi denominata "Custom2" viene eseguita la ricerca di un controllo il cui valore ID è 23. Se il controllo viene trovato e il relativo numero di indice è maggiore di 5, il controllo verrà inserito come il primo controllo sulla barra dei comandi.

Set myBar = CommandBars("Custom2")

Set ctrl1 = myBar.FindControl(Id:=23)

If ctrl1.Index > 5 Then

    ctrl1.Move before:=1

End If


Proprietà Item

Restituisce un oggetto di un insieme oppure il testo associato a un oggetto.

Il membro predefinito dell'oggetto o dell'insieme è Item. Ad esempio, le due istruzioni seguenti assegnano entrambe un oggetto CommandBar a cmdBar.

Set cmdBar = CommandBars.Item("Standard")

Set cmdBar = CommandBars("Standard")

Le due istruzioni seguenti assegnano entrambe a lblText il testo della prima etichetta dell'oggetto Balloon assegnata a myBalloon.

lblText = myBalloon.Labels(1).Item

lblText = myBalloon.Labels(1)

Per ulteriori informazioni sulla proprietà Item di un oggetto, selezionare l'oggetto desiderato dal seguente elenco.

Assistant

BalloonCheckboxes

BalloonCheckbox

BalloonLabel

BalloonLabels

CommandBarControls

CommandBars

DocumentProperties

FileFindResults

FoundFiles

PropertyTests


Proprietà Item (insiemi CommandBars e CommandBarControls)

Restituisce un oggetto CommandBar di un insieme CommandBars oppure un oggetto CommandBarControl di un insieme CommandBarControls. Di sola lettura.

Sintassi

espressione.Item(Index)

espressione   Obbligatoria. Espressione che restituisce un oggetto CommandBars o CommandBarControls.

Index   Valore Variant obbligatorio. Nome o numero di indice dell'oggetto che deve essere restituito. Si noti che è possibile utilizzare solo i numeri di indice per restituire oggetti PropertyTest dell'insieme PropertyTests.


Proprietà Item (insieme BalloonCheckboxes)

Restituisce un oggetto BalloonCheckbox di un insieme BalloonCheckboxes. Di sola lettura.

Sintassi

espressione.Item(iCbx)

espressione   Espressione che restituisce un oggetto BalloonCheckboxes.

iCbx   Valore Long obbligatorio. Numero di indice della casella di controllo che deve essere restituito.


Proprietà Item (insieme BalloonLabels)

Restituisce un oggetto BalloonLabel di un insieme BalloonLabels. Di sola lettura.

Sintassi

espressione.Item(iLbl)

espressione   Espressione che restituisce un oggetto BalloonLabels.

iLbl   Valore Long obbligatorio. Numero di indice dell'etichetta che deve essere restituito.


Proprietà Item (oggetti Assistant, BalloonLabel e BalloonCheckbox)

Restituisce il testo associato all'oggetto specificato. Valore String di sola lettura.

Sintassi

espressione.Item

espressione   Obbligatoria. Espressione che restituisce un oggetto Assistant, BalloonCheckbox o BalloonLabel.


Proprietà Item (insieme DocumentProperties)

Restituisce un oggetto DocumentProperty di un insieme DocumentProperties. Di sola lettura.

Sintassi

espressione.Item(Index)

espressione   Obbligatoria. Espressione che restituisce un oggetto DocumentProperties.

Index   Valore Variant obbligatorio. Nome o numero di indice della proprietà del documento che deve essere restituita.


Proprietà Item (insieme PropertyTests)

Restituisce un oggetto PropertyTest di un insieme PropertyTests. Di sola lettura.

Sintassi

espressione.Item(Index)

espressione   Obbligatoria. Espressione che restituisce un oggetto PropertyTests.

Index   Valore Variant obbligatorio. Numero di indice della verifica sulla proprietà che deve essere restituito.


Proprietà Item (oggetti FoundFiles e FileFindResults)

Restituisce un nome di file dall'elenco di nomi di file rappresentato dall'oggetto FoundFiles o dall'oggetto FileFindResults. Valore String di sola lettura.

Sintassi

espressione.Item(Index)

espressione   Obbligatoria. Espressione che restituisce un oggetto FoundFiles o FileFindResults (FileFindResults è solo Macintosh).

Index   Valore Variant obbligatorio. Numero di indice del nome di file che deve essere restituito.


Proprietà Left

Oggetto CommandBar o CommandBarControl: restituisce o imposta la distanza, espressa in pixel, dal lato sinistro della barra dei comandi o del controllo barra dei comandi specificato al lato sinistro dello schermo. Restituisce la distanza dal lato sinistro dell'area di ancoraggio. Valore Long di lettura/scrittura per CommandBar, valore Long di sola lettura per CommandBarControl.

Oggetto Assistant: imposta o restituisce la posizione orizzontale, espressa in punti, della finestra dell'Assistente di Office, in relazione allo schermo. Valore Long di lettura/scrittura.


Esempio della proprietà Left

In questo esempio viene modificata la posizione della barra dei comandi denominata "Custom", che viene spostata a sinistra di 110 pixel rispetto alla posizione predefinita. La barra dei comandi diventa inoltre la prima barra ancorata poiché il relativo indice di riga viene modificato in 1.

Set myBar = CommandBars("Custom")

With myBar

    .RowIndex = 1

    .Left = 140

End With

In questo esempio viene visualizzato l'Assistente di Office, che viene spostato nella posizione specificata.

With Assistant

    .Visible = True

    .Left = 300

    .Top = 300

End With


Metodo Move

Oggetto CommandBarControl: sposta il controllo barra dei comandi specificato su una barra dei comandi esistente.

Oggetto Assistant: sposta l'Assistente di Office nella posizione specificata.

Sintassi 1

espressione.Move(Bar, Before)

Sintassi 2

espressione.Move(xLeft, yTop)

espressione   Sintassi 1: Obbligatoria. Espressione che restituisce un oggetto CommandBarControl, CommandBarButton, CommandBarPopup o CommandBarComboBox.

Sintassi 2: Obbligatoria. Espressione che restituisce un oggetto Assistant.

Bar   Valore Variant facoltativo. Oggetto CommandBar che rappresenta la barra dei comandi di destinazione per il controllo. Se questo argomento viene omesso, il controllo verrà spostato alla fine della stessa barra dei comandi (la barra in cui è correntemente posizionato il controllo).

Before   Valore Variant facoltativo. Numero indicante la posizione del controllo. Il controllo viene inserito prima del controllo che occupa correntemente la posizione specificata. Se questo argomento viene omesso, il controllo verrà inserito sulla stessa barra dei comandi.

xLeft   Valore Integer obbligatorio. Posizione del lato sinistro della finestra dell'Assistente di Office espressa in punti.

yTop   Valore Integer obbligatorio. Posizione del lato superiore della finestra dell'Assistente di Office espressa in punti.


Esempio del metodo Move

In questo esempio la prima casella combinata della barra dei comandi personalizzata denominata "Custom" viene spostata nella posizione precedente al settimo controllo sulla stessa barra dei comandi. La relativa etichetta viene impostata su "Selection box" e al controllo viene assegnata una priorità bassa in modo tale che esso venga eliminato dalla barra se in una singola riga non è disponibile spazio sufficiente per tutti i controlli.

Set allcontrols = CommandBars("Custom").Controls

For Each ctrl In allControls

    If ctrl.Type = msoControlComboBox Then

        With ctrl

            .Move Before:=7

        	   .Tag = "Selection box"

        	   .Priority = 5

         End With

         Exit For

    End If

Next

In questo esempio l'Assistente di Office viene visualizzato nella posizione specificata e prima di renderlo visibile vengono impostate numerose opzioni.

With Assistant

    .Reduced = True

    .Move xLeft:= 400, yTop:= 300

    .MoveWhenInTheWay = True

    .TipOfDay = True

    .Visible = True

    .Animation = msoAnimationGreeting

End With


Proprietà Name

Restituisce o imposta il nome dell'oggetto specificato. Valore String di lettura/scrittura per l'oggetto CommandBar. Valore String di sola lettura per tutti gli altri oggetti.

Osservazioni

Il nome locale di una barra dei comandi predefinita viene visualizzato nella barra del titolo se la barra dei comandi non è ancorata, e nell'elenco delle barre disponibili se è visualizzato nell'applicazione contenitore.

Per le barre dei comandi predefinite, la proprietà Name restituisce la versione americana del nome della barra dei comandi. Per restituire il nome localizzato, è possibile utilizzare la proprietà NameLocal.

La modifica del valore della proprietà LocalName per una barra dei comandi personalizzata comporta la modifica anche del valore di Name e viceversa.


Esempio della proprietà Name

In questo esempio viene eseguita la ricerca della barra dei comandi denominata "Custom" nell'insieme delle barre dei comandi. Se la barra viene trovata, verrà visualizzata.

foundFlag = False

For Each bar In CommandBars

    If bar.Name = "Custom" Then

        foundFlag = True

        bar.Visible = True

    End If

Next

If Not foundFlag Then

    MsgBox "'Custom' bar isn't in collection."

Else

    MsgBox "'Custom' bar is now visible."

End If

In questo esempio vengono visualizzati il nome, il tipo e il valore di una proprietà del documento. È necessario passare alla routine un oggetto DocumentProperty valido.

Sub DisplayPropertyInfo(dp As DocumentProperty)

    MsgBox "value = " & dp.Value & Chr(13) & _

        "type = " & dp.Type & Chr(13) & _

        "name = " & dp.Name

End Sub


Metodo FindControls

Restituisce l’insieme CommandBarControls che soddisfa i criteri specificati.

Sintassi

espressione.FindControls(Type, Id, Tag, Visible)

espressione   Obbligatoria. Espressione che restituisce un oggetto CommandBars.

Type   Valore Variant facoltativo. Tipo di controllo. Può essere rappresentata da una delle seguenti costanti MsoControlType:

msoControlActiveX msoControlCustom msoControlButton msoControlEdit msoControlDropdown msoControlComboBox msoControlButtonDropdown msoControlSplitDropdown msoControlGenericDropdown msoControlGraphicCombo msoControlSplitButtonMRUPopup msoControlSplitExpandingGrid	msoControlGraphicDropdown msoControlPopup msoControlGraphicPopup msoControlButtonPopup msoControlGauge msoControlLabel msoControlExpandingGrid msoControlGrid msoControlOCXDropDown msoControlSplitButtonPopup msoControlPane
Id   Valore Variant facoltativo. Identificatore del controllo.

Tag Valore Variant facoltativo. Valore dell’etichetta del controllo.

Visible Valore Variant facoltativo. Per includere nella ricerca solo i controlli della barra dei comandi visibili, deve essere impostato su True. Il valore predefinito è False.

Osservazioni

Se non viene trovato alcun controllo che soddisfa i criteri di ricerca, FindControls restituirà Nothing.


Esempio del metodo FindControls

In questo esempio si utilizza FindControls per restituire tutti gli oggetti di un insieme CommandBarControls con un numero di identificazione 18 allo scopo di visualizzare il numero di controlli che soddisfa i criteri specificati.

Dim myControls As CommandBarControls

Set myControls = CommandBars.FindControls(Type:=msoControlButton, ID:=18)

MsgBox "There are " & myControls.Count & _

    " controls that meet the search criteria."


Proprietà AdaptiveMenus

True se sono attivati menu dinamici. Valore Boolean di lettura/scrittura.


Esempio della proprietà AdaptiveMenus

In questo esempio vengono impostate tre opzioni per tutte le barre dei comandi in Microsoft Office, comprese le barre dei comandi personalizzate e i relativi controlli.

With CommandBars

    .LargeButtons = True

    .DisplayFonts = True

    .AdaptiveMenus = True

End With


Proprietà DisplayFonts

True se i nomi dei tipi di carattere visualizzati nella casella Font corrispondono ai tipi di carattere effettivi. Valore Boolean di lettura/scrittura.


Esempio della proprietà DisplayFonts

In questo esempio vengono impostate tre opzioni per tutte le barre dei comandi in Microsoft Office, comprese le barre dei comandi personalizzate e i relativi controlli.

With CommandBars

    .LargeButtons = True

    .DisplayFonts = True

    .AdaptiveMenus = True

End With


Proprietà IsPriorityDropped

True se il controllo è stato eliminato dal menu o dalla barra degli strumenti in base alle statistiche di utilizzo e allo spazio di layout. Si tratta di cosa diversa dalla visiblità del controllo in base all’impostazione della proprietà Visible. Un controllo la cui proprietà Visible sia impostata su True e la proprietà IsPriorityDropped sia impostata su True, non sarà immediatamente visibile in un Menu personalizzato o su una Barra degli strumenti. Valore Boolean di lettura/scrittura.

Osservazioni

Al fine di determinare quando impostare IsPriorityDropped su True per un determinato elemento, Microsoft Office tiene traccia della frequenza di utilizzo di un elemento di menu e delle sessioni di altre applicazioni in cui l’utente abbia utilizzato un altro elemento dello stesso menu cui appartiene quell’elemento, senza utilizzare quello specifico elemento. Quando il conteggio raggiunge un determinato valore di soglia, il conto viene decrementato. Quando il conteggio raggiunge lo zero, la proprietà IsPriorityDropped viene impostata su True. I programmatori potranno comunque utilizzare la proprietà AdaptiveMenus per disattivare dei menu dinamici relativamente a menu specifici in un’applicazione.

Al fine di determinare quando impostare IsPriorityDropped su True per uno specifico controllo sulla barra degli strumenti, Office tiene traccia dell’ordine di esecuzione di tutti i controlli su quella barra degli strumenti specifica. Ogni barra degli strumenti conterrà sempre tutti i controlli fino a esaurimento dello spazio disponibile in base alla sequenza di esecuzione, dal più recente al meno recente. I controlli per i quali si sia impostata la proprietà Priority su 1 verranno sempre visualizzati e la barra degli strumenti, se necessario, si disporrà su due righe per poterli visualizzare. I programmatori potranno utilizzare la proprietà Priority per assicurare che determinati controlli siano sempre visualizzati su una barra degli strumenti specifica, oppure per riposizionare le barre degli strumenti in modo che lo spazio sia sufficiente per visualizzare tutti i controlli.

È possibile utilizzare la tabella che segue per prefissare il numero di sessioni durante le quali un comando di un menu personalizzato rimarrà visibile prima che la relativa proprietà IsPriorityDropped venga impostata su True.

Frequenza di utilizzo del controllo sulla barra dei comandi	Numero di sessioni dell’applicazione
0, 1	3
2	6
3	9
4, 5	12
6– 8	17
9–13	23
14–24	29
25 o oltre	31


Esempio della proprietà IsPriorityDropped

In questo esempio viene controllata la proprietà IsPriority Dropped per il primo controllo sulla barra dei comandi denominata “Custom”. Se IsPriorityDropped è impostata su True, verrà impostata la proprietà AdaptiveMenus su False, ripristinando la barra dei comandi eliminata.

If CommandBars("Custom").Controls(1).IsPriorityDropped Then

    CommandBars.AdaptiveMenus = True

End If


Proprietà HyperlinkType

Imposta o restituisce il tipo di collegamento associato a uno specifico pulsante sulla barra dei comandi. Può essere rappresentata da una delle seguenti costanti MsoCommandBarButtonHyperlinkType: msoCommandBarButtonHyperlinkNone, msoCommandBarButtonHyperlinkOpen, o msoCommandBarButtonHyperlinkInsertPicture. Valore Long di lettura/scrittura.


Esempio della proprietà HyperlinkType

In questo esempio viene controllata la proprietà HyperlinkType per uno specifico pulsante sulla barra dei comandi denominata “Custom”. Se HyperlinkType è impostata su msoCommandBarButtonHyperlinkNone, verrà impostata la proprietà  msoCommandBarButtonHyperlinkOpen e l’URL verrà impostato su www.microsoft.com.

Set myBar = CommandBars _

    .Add(Name:="Custom", Position:=msoBarTop, _

    Temporary:=True)

Set myButton = myBar.Controls.Add(Type:=msoControlButton)

With myButton

    .FaceId = 277

    .HyperlinkType = msoCommandBarButtonHyperlinkNone

End With

If myButton.HyperlinkType <> _

    msoCommandBarButtonHyperlinkOpen Then

    myButton.HyperlinkType = _

        msoCommandBarButtonHyperlinkOpen

    myButton.TooltipText = "www.microsoft.com"

End If


Evento Change

Viene generato quando viene modificata la selezione in una casella combinata di una barra dei comandi.

Sintassi

Private Sub CommandBarComboBox_Change

    (ByVal Ctrl As CommandBarComboBox)

Osservazioni

L’evento Change viene riconosciuto dall’oggetto CommandBarComboBox. Per restituire l’evento Change per uno specifico controllo CommandBarComboBox, utilizzare la parola chiave WithEvents per dichiarare una variabile e quindi impostarla sul controllo CommandBarComboBox. Quando l’evento Change viene avviato, verrà eseguita la macro o il codice specificato con la proprietà OnAction del controllo.


Esempio di evento Change

In questo esempio viene creata una barra dei comandi con un controllo CommandBarComboBox che contiene quattro opzioni. La casella combinata interagisce con l’utente attraverso l’evento CommandBarComboBox_Change event.

Private ctlComboBoxHandler As New ComboBoxHandler

Sub AddComboBox()

    Set HostApp = Application

    Dim newBar As Office.CommandBar

    Set newBar = HostApp.CommandBars.Add(Name:="Test CommandBar", Temporary:=True)

    Dim newCombo As Office.CommandBarComboBox

    Set newCombo = newBar.Controls.Add(msoControlComboBox)

    With newCombo

        .AddItem "First Class", 1

        .AddItem "Business Class", 2

        .AddItem "Coach Class", 3

        .AddItem "Standby", 4

        .DropDownLines = 5

        .DropDownWidth = 75

        .ListHeaderCount = 0

    End With

    ctlComboBoxHandler.SyncBox newCombo

    newBar.Visible = True

End Sub

L’esempio precedente fa riferimento al seguente codice memorizzato in un modulo di classe nel progetto VBA.

Private WithEvents ComboBoxEvent As Office.CommandBarComboBox

Public Sub SyncBox(box As Office.CommandBarComboBox)

    Set ComboBoxEvent = box

    If Not box Is Nothing Then

        MsgBox "Synced " & box.Caption & " ComboBox events."

    End If

End Sub

Private Sub Class_Terminate()

    Set ComboBoxEvent = Nothing

End Sub

Private Sub ComboBoxEvent_Change(ByVal Ctrl As Office.CommandBarComboBox)

    Dim stComboText As String

    stComboText = Ctrl.Text

        Select Case stComboText

        Case "FirstClass"

            FirstClass

        Case "BusinessClass"

            BusinessClass

        Case "CoachClass"

            CoachClass

        Case "Standby"

            Standby

    End Select

End Sub

Private Sub FirstClass()

    MsgBox "You selected First Class reservations"

End Sub

Private Sub BusinessClass()

    MsgBox "You selected Business Class reservations"

End Sub

Private Sub CoachClass()

    MsgBox "You selected Coach Class reservations"

End Sub

Private Sub Standby()

    MsgBox "You chose to fly standby"

End Sub


Evento Click

Viene generato quando l’utente fa clic su un oggetto CommandBarButton.

Sintassi

Private Sub CommandBarButton_Click

    (ByVal Ctrl As CommandBarButton,

    ByVal CancelDefault  As Boolean)

La sintassi dell’evento Click include i due argomenti descritti nella tabella seguente.

Argomento	Descrizione
Ctrl	CommandBarButton obbligatoria. Specifica il controllo CommandBarButton che ha generato l’evento.
CancelDefault	Boolean obbligatorio. False se viene generato il comportamento predefinito associato al controllo CommandBarButton, a meno che sia stato annullato da un altro processo o componente aggiuntivo.
Osservazioni

L’evento Click viene riconosciuto dall’oggetto CommandBarButton. Per restituire l’evento Clic per un controllo CommandBarButton specifico, utilizzare la parola chiave WithEvents per dichiarare una variabile e quindi impostarla sul controllo.


Esempio di evento Click

In questo esempio viene creato un nuovo pulsante sulla barra dei comandi nel menu File dell’applicazione host che abilita l’utente al salvataggio di una cartella di lavoro come file delimitato dal separatore di elenco. Questo esempio funziona in tutte le applicazioni, ma il contesto del salvataggio come file CSV si applica solo a Microsoft Excel.

Private HostApp As Object

Sub createAndSynch()

    Dim iIndex As Integer

    Dim iCount As Integer

    Dim fBtnExists As Boolean

    Dim obCmdBtn As Object

    On Error GoTo errHandler

    Set HostApp = Application

    Dim barHelp As Office.CommandBar

    Set barHelp = Application.CommandBars("File")

    fBtnExists = False

    iCount = barHelp.Controls.Count

    For iIndex = 1 To iCount

        If barHelp.Controls(iIndex).Caption = "Save As CSV (Comma Delimited)" Then fBtnExists = True

    Next

    Dim btnSaveAsCSV As Office.CommandBarButton

    If fBtnExists Then

        Set btnSaveAsCSV = barHelp.Controls("Save As CSV (Comma Delimited)")

    Else

        Set btnSaveAsCSV = barHelp.Controls.Add(msoControlButton)

        btnSaveAsCSV.Caption = "Save As CSV (Comma Delimited)"

    End If

    btnSaveAsCSV.Tag = "btn1"

    btnSaveAsCSVHandler.SyncButton btnSaveAsCSV

    Exit Sub

errHandler:

    ' Insert error handling code here

End Sub

L’esempio precedente si basa sul codice seguente, memorizzato in un modulo di classe nel progetto VBA.

Private WithEvents ButtonClickEvent As Office.CommandBarButton

Private Sub ButtonClickEvent_Click(ByVal Ctrl As Office.CommandBarButton, _

    CancelDefault As Boolean)

    ActiveWorkbook.SaveAs "MyWorkbook.csv", xlCSV

    CancelDefault = True

End Sub

Public Sub SyncButton(btn As Office.CommandBarButton)

    Set ButtonClickEvent = btn

    If Not btn Is Nothing Then

        MsgBox "Synced '" & btn.Caption & "' button events."

    End If

End Sub

Private Sub Class_Terminate()

    Set ButtonClickEvent = Nothing

End Sub


Evento OnUpdate

Viene generato quando si apportano modifiche a una barra dei comandi.

Sintassi

Private Sub CommandBars_OnUpdate()

Osservazioni

L’evento OnUpdate viene riconosciuto dall’oggetto CommandBar e da tutti i controlli sulle barre dei comandi. L’evento viene generato da modifiche apportate a una barra dei comandi o a un controllo sulla barra dei comandi oppure da modifiche allo stato di una barra dei comandi o di un controllo sulla barra dei comandi. È possibile che tali modifiche vengano generate a partire dalla selezione di un testo o di una cella, ad esempio. Poiché durante il normale utilizzo possono venire generati un grande numero di eventi OnUpdate, è consigliabile che gli sviluppatori utilizzino questo evento con cautela. Si raccomanda l’utilizzo di questo evento principalmente per controllare che una barra dei comandi personalizzata sia stata aggiunta o rimossa tramite un COMAddIn. Per ulteriori informazioni sull’utilizzo degli eventi con le aggiunte COM, vedere il capitolo dedicato a componenti aggiuntivi, modelli, procedure guidate e librerie nel Manuale del Programmatore di Microsoft Office 2000/Visual Basic.


Proprietà AdaptiveMenu

True se è attivato un menu dinamico. Valore Boolean di lettura/scrittura.


Esempio della proprietà AdaptiveMenu

In questo esempio viene impostata la proprietà AdaptiveMenu su False per il menu File nell’applicazione di Microsoft Office in uso.

CommandBars("File").AdaptiveMenu = False