MoveWhenInTheWay, eigenschap

Deze eigenschap is True als het venster van de Office-assistent automatisch wordt verplaatst wanneer dit het werkgebied van de gebruiker bedekt. Zo wordt de assistent bijvoorbeeld verplaatst als deze in de weg staat bij slepen en neerzetten of als deze toetsaanslagen hindert. Boolean, Lezen-schrijven.

Aanvullende informatie

De eigenschap MoveWhenInTheWay komt overeen met de optie Verplaatsen indien nodig onder Mogelijkheden van assistent op het tabblad Opties in het dialoogvenster Office-assistent.


Voorbeeld van de eigenschap MoveWhenInTheWay

In dit voorbeeld wordt de Office-assistent weergegeven op een bepaalde locatie en worden enkele opties ingesteld voordat de assistent zichtbaar wordt gemaakt.

With Assistant

    .Reduced = True

    .Left = 400

    .MoveWhenInTheWay = True

    .TipOfDay = True

    .Visible = True

    .Animation = msoAnimGreeting

End With


NewBalloon, eigenschap

Deze eigenschap maakt een nieuwe tekstballon voor de Office-assistent. De retourwaarde is een Balloon-object.


Voorbeeld van de eigenschap NewBalloon

In dit voorbeeld wordt een tekstballon gemaakt met een koptekst, tekst en drie keuzemogelijkheden. Vervolgens wordt de tekstballon weergegeven.

With Assistant.NewBalloon

    .Button = msoButtonSetOK

    .Heading = "Verkoopgegevens per regio"

    .Text = "Selecteer een regio"

    For i = 1 To 3

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

    Next

    .Show

End With


Reduced, eigenschap

Deze eigenschap is True als het venster van de Office-assistent kleiner wordt weergegeven. Boolean, Lezen-schrijven.


Voorbeeld van de eigenschap Reduced

In dit voorbeeld wordt de Office-assistent weergegeven op een bepaalde locatie en worden enkele opties ingesteld voordat de assistent zichtbaar wordt gemaakt.

With Assistant

    .Reduced = True

    .Left = 400

    .MoveWhenInTheWay = True

    .TipOfDay = True

    .Visible = True

    .Animation = msoAnimationGreeting

End With


SearchWhenProgramming, eigenschap

Deze eigenschap is True als de Office-assistent zowel Help-onderwerpen bij de toepassing als bij het programmeren weergeeft wanneer de gebruiker met Visual Basic werkt. Boolean, Lezen-schrijven.

Aanvullende informatie

De eigenschap SearchWhenProgramming komt overeen met de optie Zoeken naar product- en programmeer-Help tijdens het programmeren onder Mogelijkheden van assistent op het tabblad Opties in het dialoogvenster Office-assistent.


Voorbeeld van de eigenschap SearchWhenProgramming

In dit voorbeeld wordt u in staat gesteld om zowel bij de toepassing als bij het programmeren Help-informatie op te vragen, terwijl u met Visual Basic werkt.

Assistant.SearchWhenProgramming = True


Show, methode

Balloon-object: met dit object wordt het opgegeven balloon-object weergegeven. Geeft als resultaat een msoBalloonType-constante die aangeeft op welke ballon de gebruiker klikt.

FileFind-object: met dit object worden het dialoogvenster Bestand zoeken en de huidige zoekcriteria weergegeven. Alleen Macintosh.

Syntaxis

expressie.Show

expressie  Vereist. Een expressie die een Balloon-object of een FileFind-object als retourwaarde geeft.

Aanvullende informatie

Voor het Balloon-object kunt u de retourwaarde van de methode Show gebruiken om de door een gebruiker geselecteerde knop weer te geven. De methode Show geeft als retourwaarde een van de volgende msoBalloonType-constanten:

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


Voorbeeld van de methode Show

In dit voorbeeld wordt een tekstballon gemaakt die drie keuzemogelijkheden bevat. De variabele x wordt ingesteld op de retourwaarde van de methode Show. Deze is 1, 2 of 3, afhankelijk van het label waarop de gebruiker klikt. In het voorbeeld wordt de waarde van de variabele x weergegeven in een klein berichtvenster, maar u kunt deze waarde ook doorgeven aan een andere procedure of gebruiken in een instructie Select Case.

Set b = Assistant.NewBalloon

With b

    .Heading = "Dit is mijn koptekst"

    .Text = "Selecteer een van de volgende opties:"

    .Labels(1).Text = "Keuze een"

    .Labels(2).Text = "Keuze twee"

    .Labels(3).Text = "Keuze drie"

    x = .Show

End With

MsgBox x


Sounds, eigenschap

Deze eigenschap is True als de Office-assistent geluiden maakt die passen bij de animaties. Boolean, Lezen-schrijven.

Aanvullende informatie

Als er geen geluidskaart is geïnstalleerd, heeft deze eigenschap geen effect.


Voorbeeld van de eigenschap Sounds

In dit voorbeeld wordt een Office-assistent weergegeven die beweegt en geluiden maakt.

With Assistant

    .Visible = True

    .Sounds = True

    .Animation = msoAnimationBeginSpeaking

End With


TipOfDay, eigenschap

Deze eigenschap is True als de Office-assistent een speciale tip weergeeft wanneer de Office-toepassing wordt geopend. Boolean, Lezen-schrijven.

Aanvullende informatie

De eigenschap TipOfDay komt overeen met de optie Tip van de dag weergeven bij starten onder Overige tipopties op het tabblad Opties in het dialoogvenster Office-assistent.


Voorbeeld van de eigenschap TipOfDay

In dit voorbeeld wordt de Office-assistent weergegeven op een bepaalde locatie en worden enkele opties ingesteld voordat de assistent zichtbaar wordt gemaakt.

With Assistant

    .Reduced = True

    .Left = 400

    .MoveWhenInTheWay = True

    .TipOfDay = True

    .Visible = True

    .Animation = msoAnimGreeting

End With


Animation, eigenschap

Deze eigenschap geeft als resultaat het type animatie voor de Office-assistent of stelt dit in. Wanneer deze eigenschap wordt toegepast op het Assistant-object, wordt de animatie meteen geactiveerd voor de assistent (als deze zichtbaar is). Wanneer deze eigenschap wordt toegepast op het Balloon-object, wordt de animatie voor de assistent alleen geactiveerd als de tekstballon wordt weergegeven. Long, Lezen-schrijven.

De waarde van deze eigenschap kan een van de volgende MsoAnimationType-constanten zijn:

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
Aanvullende informatie

Clippit is de standaardassistent en msoAnimationIdle is het standaard-animatietype voor de assistent.

Afhankelijk van de geselecteerde assistent kan de instelling van de eigenschap Animation al of niet resulteren in een voor de hand liggende animatie. Alle MsoAnimationType-constanten zijn echter geldig voor alle assistenten.

De volgende MsoAnimationType-constanten geven animaties weer waarbij de opgegeven actie wordt herhaald totdat de assistent wordt uitgeschakeld of totdat een andere animatie wordt ingesteld voor de eigenschap Animation.

msoAnimationCheckingSomething msoAnimationGetArtsy msoAnimationGetTechy msoAnimationSaving	msoAnimationSearching msoAnimationThinking msoAnimationWorkingAtSomething msoAnimationWritingNotingSomething


Voorbeeld van de eigenschap Animation

In dit voorbeeld wordt de Office-assistent weergegeven op een bepaalde locatie en worden enkele opties ingesteld voordat de assistent zichtbaar wordt gemaakt.

With Assistant

    .Reduced = True

    .Move xLeft:= 400, yTop:= 300

    .MoveWhenInTheWay = True

    .TipOfDay = True

    .Visible = True

    .Animation = msoAnimationGreeting

End With


FileName, eigenschap

Assistant-object: Deze eigenschap geeft als resultaat de naam van het bestand voor de actieve Office-assistent of stelt deze in. String, Lezen-schrijven.

FileSearch-object: Deze eigenschap geeft als resultaat de naam van het bestand waarnaar wordt gezocht tijdens een zoekopdracht, of stelt deze in. De bestandsnaam kan de jokertekens * (sterretje) of ? (vraagteken) bevatten. Gebruik het vraagteken ter vervanging van een enkel teken. Met gr?en vindt u bijvoorbeeld zowel "groen" als "green". Gebruik het sterretje ter vervanging van een willekeurig aantal tekens. Met *.txt vindt u bijvoorbeeld alle bestanden met de extensie .txt. String, Lezen-schrijven.

Aanvullende informatie

In Windows is .act de extensie voor bestanden van de assistent. De bestanden worden geïnstalleerd in de map \Program Files\Microsoft Office\Office\Actors in Win95, in de map \Windows\MsApps\Actors in Windows NT en in de map Microsoft:Assistants op de Macintosh.

De volgende bestandsnamen horen bij de assistenten in Office 97.

Assistent	Bestandsnaam
Office Logo	Logo.act
Superpup	Powerpup.act
De professor	Genius.act
Rob Robot	Hoverbot.act
Krabbel	Scribble.act
De Stip	Dot.act
Clippit	Clippit.act
Moeder Natuur	MNature.act
Willem	Will.act


Voorbeeld van de eigenschap FileName

In dit voorbeeld wordt de eigenschap FileName gebruikt om de ballontekst voor specifieke Office-assistenten aan te passen. De variabele btext kan worden gebruikt voor de waarde van de eigenschap Text in een ballon van de wizard Afdrukken.

Select Case Assistant.FileName

Case "will.act"

    btext = "Afdrukken of niet afdrukken, dat is de vraag."

Case "genius.act"

    btext = "De som van de selectievakjes is gelijk aan het document dat wordt afgedrukt."

Case Else

    btext = "Kies het document dat u wilt afdrukken."

End Select

In dit voorbeeld wordt gezocht naar alle bestanden die zich bevinden in de map Mijn documenten en die beginnen met 'cmd'. In het voorbeeld worden de naam en de locatie van elk gevonden bestand weergegeven in een berichtvenster.

Set fs = Application.FileSearch

With fs

    .LookIn = "C:\Mijn documenten"

    .FileName = "cmd*"

    If .Execute > 0 Then

        MsgBox "Er zijn " & .FoundFiles.Count & _

            " bestand(en) gevonden."

        For i = 1 To .FoundFiles.Count

            MsgBox .FoundFiles(i)

        Next i

    Else

        MsgBox "Er zijn geen bestanden gevonden."

    End If

End With


BalloonType, eigenschap

Deze eigenschap geeft als resultaat het type tekstballon voor de Office-assistent of stelt dit in. Dit kan een van de volgende MsoBalloonType-constanten zijn: msoBalloonTypeButtons, msoBalloonTypeBullets of msoBalloonTypeNumbers. Wanneer u een nieuwe ballon maakt met de methode NewBalloon, wordt deze eigenschap ingesteld op msoBalloonTypeButtons. Long, Lezen-schrijven.


Voorbeeld van de eigenschap BalloonType

In dit voorbeeld wordt een tekstballon gemaakt met instructies voor het selecteren van een printer. De ballon is niet-modusgebonden, zodat deze zichtbaar kan blijven terwijl de gebruiker de instructies uitvoert.

Set bln = Assistant.NewBalloon

With bln

    .Heading = "Instructies voor het kiezen van een printer."

    .Text = "Klik op OK wanneer u een printer hebt gekozen."

    .Labels(1).Text = "Kies in het menu Bestand de opdracht Afdrukken."

    .Labels(2).Text = "Klik op Instellingen."

    .Labels(3).Text = "Selecteer de naam van de printer."

    .BalloonType = msoBalloonTypeNumbers

    .Mode = msoModeModeless

    .Callback = "ProcessPrinter"

    .Button = msoButtonSetOK

    .Show

End With


Button, eigenschap

Deze eigenschap geeft als resultaat het type knop dat wordt weergegeven onder in de tekstballon van de Office-assistent, of stelt dit in. Wanneer u een nieuwe ballon maakt met de methode NewBalloon, wordt deze eigenschap ingesteld op msoButtonSetOK. Long, Lezen-schrijven.

De waarde van deze eigenschap kan een van de volgende MsoButtonSetType-constanten zijn:

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


Voorbeeld van de eigenschap Button

In dit voorbeeld wordt een tekstballon gemaakt met een koptekst, een tekst en drie keuzemogelijkheden. Vervolgens wordt de ballon weergegeven.

With Assistant.NewBalloon

    .Heading = "Verkoopgegevens per regio"

    .Text = "Selecteer een regio"

    For i = 1 To 3

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

    Next

    .Button = msoButtonSetOkCancel

    .Show

End With


Checkboxes, eigenschap

Deze eigenschap geeft als resultaat de BalloonCheckboxes-collectie die alle selectievakjes in de opgegeven ballon vertegenwoordigt. Alleen-lezen.

Zie Een object uit een collectie als resultaat geven voor informatie over het opvragen van een afzonderlijk lid van een collectie.


Voorbeeld van de eigenschap Checkboxes

In dit voorbeeld wordt een tekstballon gemaakt met een koptekst, een tekst en drie keuzemogelijkheden. Wanneer de gebruiker een selectievakje inschakelt en vervolgens in de ballon op OK klikt, wordt de desbetreffende procedure uitgevoerd.

With Assistant.NewBalloon

    .Heading = "Verkoopgegevens per regio"

    .Text = "Selecteer een regio"

    For i = 1 To 3

        .CheckBoxes(i).Text = "Regio " & 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


Checked, eigenschap

Deze eigenschap is True als het opgegeven selectievakje in de ballon van de Office-assistent is ingeschakeld. Boolean, Lezen-schrijven.


Voorbeeld van de eigenschap Checked

In dit voorbeeld wordt een tekstballon gemaakt met een koptekst, een tekst en drie keuzemogelijkheden. Wanneer de gebruiker een selectievakje inschakelt en vervolgens in de ballon op OK klikt, wordt de desbetreffende procedure uitgevoerd.

With Assistant.NewBalloon

    .Heading = "Verkoopgegevens per regio"

    .Text = "Selecteer een regio"

    For i = 1 To 3

        .CheckBoxes(i).Text = "Regio " & 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


FeatureTips, eigenschap

Deze eigenschap is True als de Office-assistent informatie geeft om gebruikers effectiever te leren werken met de voorzieningen van een toepassing.Boolean, Lezen-schrijven.

Aanvullende informatie

De eigenschap FeatureTips komt overeen met het selectievakje Functies effectiever gebruiken op het tabblad Opties in het dialoogvenster Office-assistent.


Voorbeeld van de eigenschap FeatureTips

In dit voorbeeld wordt de Office-assistent zodanig ingesteld dat de gebruiker informatie krijgt over een effectiever gebruik van de functies van de toepassing.

Assistant.FeatureTips = True


GuessHelp, eigenschap

Deze eigenschap is True als de Office-assistent een lijst met relevante Help-onderwerpen weergeeft op basis van de context vlak voordat de gebruiker op het venster van de assistent klikt of op F1 drukt. Boolean, Lezen-schrijven.

Aanvullende informatie

De eigenschap GuessHelp komt overeen met de optie Help-onderwerpen raden onder Mogelijkheden van assistent op het tabblad Opties in het dialoogvenster Office-assistent.


Voorbeeld van de eigenschap GuessHelp

In dit voorbeeld wordt ingesteld dat de Office-assistent Help-onderwerpen weergeeft op grond van zijn eigen inschatting.

Assistant.GuessHelp = True


Heading, eigenschap

Deze eigenschap geeft als resultaat de koptekst die wordt weergegeven in de tekstballon van de Office-assistent of stelt deze in. String, Lezen-schrijven.

Aanvullende informatie

U kunt met de volgende syntaxis opgeven welke afbeelding moet worden: {type locatie grootte_factor}, waarbij type staat voor bmp (bitmap), wmf (Windows-metabestand) of pict (Macintosh PICT-bestand); locatie de bron-id of het pad en de bestandsnaam weergeeft en grootte_factor de breedte van de wmf of pict aangeeft (blijft achterwege voor bmp).


Voorbeeld van de eigenschap Heading

In dit voorbeeld wordt een tekstballon gemaakt met een koptekst, een tekst en drie keuzemogelijkheden. Vervolgens wordt de ballon weergegeven.

With Assistant.NewBalloon

    .Button = msoButtonSetOkCancel

    .Heading = "Verkoopgegevens per regio"

    .Text = "Selecteer een regio"

    For i = 1 To 3

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

    Next

    .Show

End With


Help, methode

Deze methode geeft de Office-assistent en de ingebouwde tekstballon van de assistent weer.

Syntaxis

expressie.Help

expressie   Vereist. Een expressie die een Assistant-object als retourwaarde geeft.


Voorbeeld van de methode Help

In dit voorbeeld wordt de ingebouwde tekstballon van de assistent weergegeven wanneer de gebruiker het selectievakje "Ik heb meer informatie nodig" inschakelt.

Set b = Assistant.NewBalloon

With b

    .Heading = "Gebruikersinformatie"

    .Text = "Selecteer uw kennisniveau"

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

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

    .CheckBoxes(3).Text = "Ik heb meer informatie nodig."

    .Show

End With

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

    Assistant.Help

End If


AssistWithWizards, eigenschap

Deze eigenschap is True als de Office-assistent Help-informatie geeft over wizards. Boolean, Lezen-schrijven.

Aanvullende informatie

De eigenschap AssistWithWizards komt overeen met de optie Help bij wizards onder Mogelijkheden van assistent op het tabblad Opties in het dialoogvenster Office-assistent.


Voorbeeld van de eigenschap AssistWithWizards

In dit voorbeeld wordt ingesteld dat de Office-assistent Help-informatie geeft over wizards.

Assistant.AssistWithWizards = True


HighPriorityTips, eigenschap

Deze eigenschap is True als de Office-assistent tips met een hoge prioriteit weergeeft. Boolean, Lezen-schrijven.

Aanvullende informatie

De eigenschap HighPriorityTips komt overeen met de optie Alleen tips met hoge prioriteit weergeven onder Overige tipopties op het tabblad Opties in het dialoogvenster Office-assistent.


Voorbeeld van de eigenschap HighPriorityTips

In dit voorbeeld wordt ingesteld dat de Office-assistent tips met een hoge prioriteit weergeeft.

Assistant.HighPriorityTips = True


Icon, eigenschap

Deze eigenschap geeft als resultaat het type pictogram dat linksboven in de tekstballon van de Office-assistent verschijnt, of stelt dit in. Dit kan een van de volgende MsoIconType-constanten zijn: msoIconAlert, msoIconNone of msoIconTip. String, Lezen-schrijven.


Voorbeeld van de eigenschap Icon

In dit voorbeeld wordt een tekstballon gemaakt met een waarschuwingspictogram, om de gebruiker erop te wijzen dat deze een printer moet selecteren.

With Assistant.NewBalloon

    .Heading = "Selecteer een printer"

    .Text = "U moet een printer selecteren voordat u gaat afdrukken."

    .Icon = msoIconAlert

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

    .CheckBoxes(2).Text = "Netwerkprinter"

    .Show

End With


KeyboardShortcutTips, eigenschap

Deze eigenschap is True als de Office-assistent Help-informatie geeft over sneltoetsen. Boolean, Lezen-schrijven.

Aanvullende informatie

De eigenschap FeatureShortcutTips komt overeen met de optie Sneltoetsen onder Tips weergeven op het tabblad Opties in het dialoogvenster Office-assistent.


Voorbeeld van de eigenschap KeyboardShortcutTips

In dit voorbeeld wordt ingesteld dat de Office-assistent Help-informatie geeft over sneltoetsen.

Assistant.KeyboardShortcutTips = True


Labels, eigenschap

Deze eigenschap geeft als resultaat een BalloonLabels-collectie die de knoplabels, nummerlabels en bulletlabels vertegenwoordigt in de opgegeven tekstballon van de Office-assistent. Alleen-lezen.

Zie Een object uit een collectie als resultaat geven voor informatie over het opvragen van een afzonderlijk lid van een collectie.


Voorbeeld van de eigenschap Labels

In dit voorbeeld wordt een tekstballon gemaakt die drie keuzemogelijkheden bevat. De variabele x wordt ingesteld op de retourwaarde van de methode Show. Deze retourwaarde is 1, 2 of 3, afhankelijk van de label waarop de gebruiker klikt. In het voorbeeld wordt de waarde van de variabele x weergegeven in een eenvoudig berichtvenster. U kunt deze waarde echter ook doorgeven aan een andere procedure of gebruiken in een instructie Select Case.

Set b = Assistant.NewBalloon

With b

    .Heading = "Dit is mijn koptekst"

    .Text = "Selecteer een van de volgende opties:"

    .Labels(1).Text = "Keuze een"

    .Labels(2).Text = "Keuze twee"

    .Labels(3).Text = "Keuze drie"

    x = .Show

End With

MsgBox x


BalloonError, eigenschap

Deze eigenschap geeft als resultaat een waarde die de laatst geregistreerde ballonfout aangeeft. String, Alleen-lezen.

Dit kan een van de volgende MsoBalloonErrorType-constanten zijn.

Constante	Beschrijving
msoBalloonErrorBadPictureRef	De ballon bevat een bitmap die niet kan worden weergegeven, omdat het bestand niet bestaat of omdat de bitmap geen geldig bmp- of wmf-bestand is (of pict-bestand op de Macintosh).
msoBalloonErrorBadReference	De ballon bevat een verwijzing die niet wordt herkend of ondersteund.
msoBalloonErrorButtonlessModal	De ballon die u probeert weer te geven is modaal, maar bevat geen knoppen. De ballon wordt niet weergegeven, omdat deze niet kan worden uitgeschakeld.
msoBalloonErrorButtonModeless	De ballon die u probeert weer te geven is niet-modusgebonden, bevat geen knoppen en er is geen procedure toegewezen aan de eigenschap Callback. De ballon wordt niet weergegeven, omdat een procedure is vereist om de knop waarop wordt geklikt in de ballon te evalueren.
msoBalloonErrorNone	De eigenschap is erin geslaagd de ballon weer te geven, zonder dat daarbij een fout is opgetreden.
msoBalloonErrorBadCharacter	De ballon bevat een ASCII-stuurcode die niet CR of LF is en groter is dan 32.
msoBalloonErrorOutOfMemory	De ballon wordt niet weergegeven omdat er onvoldoende geheugen is.
msoBalloonErrorTooBig	De ballon is te groot om te kunnen worden weergegeven op het scherm.
msoBalloonErrorOther	De ballon wordt niet weergegeven omdat er een andere fout is opgetreden, bijvoorbeeld doordat al een andere modale ballon actief is.


Voorbeeld van de eigenschap BalloonError

In dit voorbeeld wordt een tekstballon gemaakt die een fout tot gevolg heeft. De fout wordt veroorzaakt doordat er geen manier is om de ballon uit te schakelen. Het knoptype is ingesteld op msoButtonSetNone en de standaard-ballonmodus is msoModeModal, hetgeen een ballon zonder knoppen oplevert. Er is geen manier om een modale ballon zonder knoppen uit te schakelen.

With Application.Assistant

With .NewBalloon

    .Heading = "Dit wordt nooit weergegeven."

    .Text = "Stel u op deze plaats een ballon voor."

    .Button = msoButtonSetNone

    .Show

End With

.Visible = True

If .BalloonError = msoBalloonErrorButtonlessModal Then

    MsgBox "U hebt een knop nodig om de ballon uit te schakelen."

End If

End With


Mode, eigenschap

Deze eigenschap geeft als resultaat het type tekstballon dat wordt weergegeven, of stelt dit in. Dit kan een van de volgende MsoModeType-constanten zijn: msoModeAutoDown, msoModeModal of msoModeModeless. Wanneer u een nieuwe tekstballon maakt met de methode NewBalloon, wordt deze eigenschap ingesteld op msoModeModal. Long, Lezen-schrijven.

Aanvullende informatie

Als de eigenschap Mode voor een ballon is ingesteld op msoModeModeless, kan de gebruiker in de toepassing werken terwijl de ballon zichtbaar blijft. Als de eigenschap is ingesteld op msoModeModal, moet de gebruiker de ballon uitschakelen voordat deze weer verder kan werken in de toepassing. Als de eigenschap is ingesteld op msoModeAutoDown, wordt de ballon meteen uitgeschakeld zodra de gebruiker ergens op het scherm klikt.

Als de eigenschap Mode voor een ballon is ingesteld op msoModeModeless, moet de eigenschap Callback een waarde hebben. De methode Close kan alleen worden gebruikt als de eigenschap is ingesteld op msoModeModeless.


Voorbeeld van de eigenschap Mode

In dit voorbeeld wordt een tekstballon gemaakt met een waarschuwingspictogram, om de gebruiker erop te wijzen dat deze een printer moet selecteren. Omdat de ballon niet-modusgebonden is, kan de gebruiker printeropdrachten kiezen terwijl de ballon zichtbaar is.

With Assistant.NewBalloon

    .Heading = "Selecteer een printer"

    .Text = "U moet een printer selecteren voordat u gaat afdrukken."

    .Icon = msoIconAlert

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

    .CheckBoxes(2).Text = "Netwerkprinter"

    .Mode = msoModeModeless

    .Callback = "ProcessPrinter"

    .Show

End With


MouseTips, eigenschap

Deze eigenschap is True als de Office-assistent suggesties geeft voor een effectiever gebruik van de muis. Boolean, Lezen-schrijven.

Aanvullende informatie

De eigenschap MouseTips komt overeen met de optie Muis effectiever gebruiken onder Tips weergeven op het tabblad Opties in het dialoogvenster Office-assistent.


Voorbeeld van de eigenschap MouseTips

In dit voorbeeld wordt ingesteld dat de Office-assistent suggesties geeft voor een effectiever gebruik van de muis.

Assistant.MouseTips = True


Assistant, object

Vertegenwoordigt de Microsoft Office-assistent.

Werken met het Assistant-object

Met de eigenschap Assistant kunt u het Assistant-object als resultaat geven. Het Assistant-object behoort niet tot een collectie; er kan slechts één Assistant-object tegelijk actief zijn. U kunt de Office-assistent weergeven met de eigenschap Visible.

Aanvullende informatie

De standaard-Assistent is Clippit. Met de eigenschap FileName kunt u een andere Assistent selecteren.

In het volgende voorbeeld wordt een eerder geselecteerde Assistent weergegeven en het bijbehorende geluid ingeschakeld. Als uw computer niet over een geluidskaart beschikt, treedt er geen fout op. Het geluid is in dat geval echter niet hoorbaar.

With Assistant

    .Visible = True

    .Sounds = True

    .Animation = msoAnimationBeginSpeaking

End With


Balloon, object

Vertegenwoordigt de ballon waarin de Office-assistent titels en tekst weergeeft. Een ballon kan besturingselementen bevatten (bijvoorbeeld selectievakjes of labels).

Werken met het Balloon-object

Met de methode NewBalloon kunt u een Balloon-object als resultaat geven. Het Balloon-object behoort niet tot een collectie; er kan slechts één ballon tegelijk zichtbaar zijn. Wel kunt u meerdere ballonnen definiëren en elk van deze ballonnen oproepen wanneer u dat nodig vindt. Zie voor meer informatie 'Ballonnen definiëren en opnieuw gebruiken' verderop in dit onderwerp.

Met de eigenschap Show maakt u de opgegeven ballon zichtbaar. Gebruik de eigenschap Callback om procedures uit te voeren die gebaseerd zijn op selecties in niet-modusgebonden ballonnen (ballonnen die zichtbaar blijven wanneer de gebruiker in de toepassing werkt). Niet-modusgebonden ballonnen worden gesloten met de methode Close.

In het volgende voorbeeld wordt een ballon gemaakt die tips voor het opslaan van ingevoerde gegevens bevat.

With Assistant.NewBalloon

    .BalloonType = msoBalloonTypeBullets

    .Icon = msoIconTip

    .Button = msoButtonSetOkCancel

    .Heading = "Tips voor het opslaan van gegevens."

    .Labels(1).Text = "Sla uw werk geregeld op."

    .Labels(2).Text = "Installeer een piekspanningsbeveiliging."

    .Labels(3).Text = "Sluit uw toepassing op de juiste wijze af."

    .Show

End With

Ballonnen definiëren en opnieuw gebruiken

Als u ballonnen opnieuw wilt gebruiken, wijst u ze toe aan objectvariabelen. U kunt de ballonnen dan op elk gewenst moment tijdens de procedure oproepen. In het volgende voorbeeld worden ballon1, ballon2 en ballon3 gedefinieerd als afzonderlijke ballonnen. De ballonnen worden tijdens de procedure op verschillende momenten weergegeven.

Set ballon1 = Assistant.NewBalloon

ballon1.Heading = "Eerste ballon"

Set ballon2 = Assistant.NewBalloon

ballon2.Heading = "Tweede ballon"

Set ballon3 = Assistant.NewBalloon

ballon3.Heading = "Derde ballon"

ballon1.Show

ballon3.Show

ballon2.Show

U kunt ballon-objectvariabelen ook combineren in een matrix en in de matrix van een index voorzien.


BalloonCheckboxes, collectieobject

Een collectie van BalloonCheckbox-objecten die alle selectievakjes in de ballon van de Office-assistent vertegenwoordigen.

Werken met de BalloonCheckboxes-collectie

Met de eigenschap Checkboxes kunt u de BalloonCheckboxes-collectie als resultaat geven.

Met Checkboxes(index), waarbij index een getal van 1 tot en met 5 is, kunt u een afzonderlijk BalloonCheckbox-object als resultaat geven. Een ballon kan maximaal vijf selectievakjes bevatten. Een selectievakje wordt weergegeven wanneer aan zijn eigenschap Text een waarde is toegekend.

In het volgende voorbeeld wordt de tekst van alle zichtbare selectievakjes in een bestaande ballon naar het venster Foutopsporing geschreven.

For Each box In .CheckBoxes

    If box.Text <> "" Then

        Debug.Print box.Text

    End If

Next

U kunt geen selectievakjes toevoegen aan of verwijderen uit de BalloonCheckBoxes-collectie.

Aanvullende informatie

Een selectievakje in een ballon geeft de keuze van de gebruiker weer totdat de ballon wordt gesloten. Een label in een ballon registreert de keuze van de gebruiker zodra deze op de knop naast de label klikt.


BalloonCheckbox, object

Vertegenwoordigt een selectievakje in de ballon van de Office-assistent. Het BalloonCheckbox-object maakt deel uit van de BalloonCheckboxes-collectie.

Werken met het BalloonCheckbox-object

Met Checkboxes(index), waarbij index een getal van 1 tot en met 5 is, kunt u een afzonderlijk BalloonCheckbox-object weergeven. Een ballon kan maximaal vijf selectievakjes bevatten. Een selectievakje wordt weergegeven wanneer aan zijn eigenschap Text een waarde is toegekend.

In het volgende voorbeeld wordt een ballon met een titel, een tekstregel en drie regio-opties gemaakt. Wanneer de gebruiker een selectievakje inschakelt en vervolgens op OK klikt, wordt de bijbehorende procedure uitgevoerd.

With Assistant.NewBalloon

    .Heading = "Omzetgegevens per regio"

    .Text = "Kies de regio"

    For i = 1 To 3

        .CheckBoxes(i).Text = "Regio " & 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

Aanvullende informatie

Een selectievakje in een ballon geeft de keuze van de gebruiker weer totdat de ballon wordt gesloten. Een label in een ballon registreert de keuze van de gebruiker zodra deze op de knop naast de label klikt.


BalloonLabels, collectieobject

Een collectie van BalloonLabel-objecten die alle labels in de ballon van de Office-assistent vertegenwoordigen.

Werken met de BalloonLabels-collectie

Met de eigenschap Labels kunt u de BalloonLabels-collectie als resultaat geven.

Met Labels(index), waarbij index een getal van 1 tot en met 5 is, kunt u een BalloonLabel-object als resultaat geven. Een ballon kan maximaal vijf labels bevatten. Een label wordt weergegeven wanneer aan zijn eigenschap Text een waarde is toegekend.

In het volgende voorbeeld wordt een ballon gemaakt met drie keuzemogelijkheden. De variabele x wordt ingesteld op de retourwaarde van de methode Show, die 1, 2 of 3 is, overeenkomstig de label waarop de gebruiker klikt. Het voorbeeld geeft de waarde van variabele x weer, maar u kunt de waarde overbrengen naar een andere procedure of de waarde gebruiken in een Select Case-statement.

Set b = Assistant.NewBalloon

With b

    .Heading = "Dit is mijn koptekst"

    .Text = "Selecteer een van de volgende:"

    .Labels(1).Text = "Keuze 1"

    .Labels(2).Text = "Keuze 2"

    .Labels(3).Text = "Keuze 3"

    x = .Show

End With

MsgBox x

Aanvullende informatie

Een selectievakje in een ballon geeft de keuze van de gebruiker weer totdat de ballon wordt gesloten. Een label in een ballon registreert de keuze van de gebruiker zodra deze op de knop naast de label klikt.


BalloonLabel, object

Vertegenwoordigt een label in de ballon van de Office-assistent. Het BalloonLabel-object maakt deel uit van de BalloonLabels-collectie.

Werken met het BalloonLabel-object

Met Labels(index), waarbij index een getal van 1 tot en met 5 is, kunt u een BalloonLabel-object als resultaat geven. Een ballon kan maximaal vijf labels bevatten. Een label wordt weergegeven wanneer aan zijn eigenschap Text een waarde is toegekend.

In het volgende voorbeeld wordt een ballon gemaakt die de gebruiker vraagt op de label te klikken die overeenkomt met zijn of haar leeftijdsgroep.

With Assistant.NewBalloon

    .Heading = "Selecteer uw leeftijdsgroep."

    .Labels(1).Text = "Jonger dan dertig."

    .Labels(2).Text = "Dertig of ouder."

    .Labels(3).Text = "Gaat je niets aan."

    .Text = "Welke van de volgende " _

        & .Labels.Count & " opties heeft betrekking op u?"

    .Show

End With

Aanvullende informatie

Een selectievakje in een ballon geeft de keuze van de gebruiker weer totdat de ballon wordt gesloten. Een label in een ballon registreert de keuze van de gebruiker zodra deze op de knop naast de label klikt.


Add, methode

Deze methode voegt een object toe aan een collectie. Selecteer een van de volgende collecties als u een gedetailleerde beschrijving wilt van de methode Add van een collectie.

CommandBarControls

CommandBars

DocumentProperties

PropertyTests


Add, methode (CommandBarControls-collectie)

Deze methode maakt een nieuw besturingselement op een opdrachtbalk en voegt het toe aan de collectie met besturingselementen op de opgegeven opdrachtbalk. Deze methode geeft een CommandBarButton-, CommandBarComboBox- of CommandBarPopup-object als resultaat.

Syntaxis

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

expressie   Vereist. Een expressie die een CommandBarControls-object als resultaat geeft.

Type   Variant, optioneel. Het type van het besturingselement dat moet worden toegevoegd aan de opgegeven opdrachtbalk. Dit kan een van de volgende MsoControlType-constanten zijn: msoControlButton, msoControlEdit, msoControlDropdown, msoControlComboBox of msoControlPopup.

Id   Variant, optioneel. Een geheel getal waarmee een ingebouwd besturingselement wordt opgegeven. Als de waarde van dit argument 1 is of als het argument wordt weggelaten, wordt een leeg aangepast besturingselement van het opgegeven type toegevoegd aan de opdrachtbalk.

Parameter   Variant, optioneel. Voor ingebouwde besturingselementen wordt dit argument door de containertoepassing gebruikt om de opdracht uit te voeren. Voor aangepaste besturingselementen kunt u dit argument gebruiken om informatie te verzenden naar Visual Basic-procedures of kunt u het gebruiken om informatie op te slaan over het besturingselement (net als een tweede Tag-eigenschapswaarde).

Before   Variant, optioneel. Een getal dat de positie van het nieuwe besturingselement op de opdrachtbalk aangeeft. Het nieuwe besturingselement wordt ingevoegd vóór het besturingselement op deze positie. Als dit argument wordt weggelaten, wordt het besturingselement toegevoegd aan het einde van de opgegeven opdrachtbalk.

Temporary   Variant, optioneel. True maakt het nieuwe besturingselement tijdelijk. Tijdelijke besturingselementen worden automatisch verwijderd als de containertoepassing wordt gesloten. De standaardwaarde is False.


Voorbeeld van de methode Add (CommandBarControls-collectie)

Dit voorbeeld voegt een knop met een afbeelding van een grafiek toe aan de opdrachtbalk 'Aangepast' en wijst vervolgens aan de knop de procedure 'Analyseren' toe.

Set custBar = CommandBars("Aangepast")

custBar.Visible = True

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

graphBtn.FaceId = 17

graphBtn.OnAction = "Analyseren"


Add, methode (CommandBars-collectie)

Deze methode maakt een nieuwe opdrachtbalk en voegt deze toe aan de collectie met opdrachtbalken. Deze methode geeft een CommandBar-object als resultaat.

Syntaxis

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

expressie   Vereist. Een expressie die een CommandBars-object als resultaat geeft.

Name   Variant, optioneel. De naam van de nieuwe opdrachtbalk. Als dit argument wordt weggelaten, wijst Word een standaardnaam aan de opdrachtbalk toe (bijvoorbeeld 'Aangepast 1').

Position   Variant, optioneel. De positie van de nieuwe opdrachtbalk. Dit kan een van de volgende MsoBarPosition-constanten zijn.

Constante	Beschrijving
msoBarLeft, msoBarTop, msoBarRight, msoBarBottom	Geeft de coördinaten van alle vier de hoekpunten van de opdrachtbalk aan
msoBarFloating	Geeft aan dat de nieuwe opdrachtbalk zweeft
msoBarPopup	Geeft aan dat de nieuwe werkbalk een snelmenu is
msoBarMenuBar	Geeft aan dat de nieuwe werkbalk de systeemmenubalk op de Macintosh vervangt
MenuBar   Variant, optioneel. True vervangt de actieve menubalk door de nieuwe opdrachtbalk. De standaardwaarde is False.

Temporary  Variant, optioneel. True maakt de nieuwe opdrachtbalk tijdelijk. Tijdelijke opdrachtbalken worden verwijderd als de containertoepassing wordt gesloten. De standaardwaarde is False.


Voorbeeld van de methode Add (CommandBars-collectie)

Dit voorbeeld voegt een opdrachtbalk van het hoogste niveau met de naam 'Aangepast' toe, die niet wordt opgeslagen als de sessie wordt beëindigd. Het voorbeeld voegt ook een ingebouwde knop voor spellingcontrole toe aan de opdrachtbalk.

Set myBar = CommandBars _

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

    Temporary:=True)

With myBar

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

    .Visible = True

End With


Add, methode (DocumentProperties-collectie)

Deze methode maakt een nieuwe aangepaste documenteigenschap. U kunt deze methode alleen gebruiken met de collectie aangepaste documenteigenschappen.

Syntaxis

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

expressie   Vereist. Het aangepaste DocumentProperties-object.

Name   String, vereist. De naam van de eigenschap.

LinkToContent   Boolean, vereist. Geeft aan of de eigenschap is gekoppeld met de inhoud van het containerdocument. Als dit argument True is, is het argument LinkSource vereist. Als het argument False is, is het Value-argument vereist.

Type   Long, vereist. Het gegevenstype van de eigenschap. Dit kan een van de volgende MsoDocProperties-constanten zijn: msoPropertyTypeBoolean, msoPropertyTypeDate, msoPropertyTypeFloat, msoPropertyTypeNumber of msoPropertyTypeString.

Value   Variant, optioneel. De waarde van de eigenschap als deze niet is gekoppeld met de inhoud van het containerdocument. De waarde wordt, indien mogelijk, geconverteerd naar het gegevenstype dat wordt opgegeven door het typeargument. Als dat niet kan, treedt er een fout op. Als LinkToContent True is, wordt het Value-argument genegeerd en krijgt de nieuwe documenteigenschap een standaardwaarde totdat gekoppelde eigenschapswaarden worden bijgewerkt door de containertoepassing (meestal wanneer het document wordt opgeslagen).

LinkSource   Boolean, optioneel. Wordt genegeerd als LinkToContent False is. De bron van de gekoppelde eigenschap. De containertoepassing bepaalt welk type bronkoppeling u kunt gebruiken.


Voorbeeld van de methode Add (DocumentProperties-collectie)

Dit voorbeeld voegt een nieuwe aangepaste documenteigenschap met de naam 'Voltooid' toe. U moet de aangepaste DocumentProperties-collectie doorgeven aan de procedure.

Sub AddCustomProperty(dp As DocumentProperties)

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

    type:=msoPropertyTypeBoolean, value:=False

End Sub


Add, methode (PropertyTests-collectie)

Deze methode voegt een PropertyTest-object toe aan de PropertyTests-collectie.

Syntaxis

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

expressie   Een expressie die een PropertyTests-object als resultaat geeft.

Name   String, vereist. De naam van het eigenschapscriterium. De naam correspondeert met een waarde in de lijst Property in het dialoogvenster Zoekcriteria.

Condition   Variant, vereist. De voorwaarde van het zoekcriterium. Dit kan een van de volgende MsoCondition-constanten zijn:

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   Variant, optioneel. De waarde van het zoekcriterium waarop moet worden getest.

SecondValue   Variant, optioneel. Een bovenwaarde voor het zoekbereik. U kunt dit argument alleen gebruiken als Condition msoConditionAnyTimeBetween of msoConditionAnyNumberBetween is.

Connector   Variant, optioneel. Geeft aan hoe de twee zoekcriteria worden gecombineerd. Dit kan een van de volgende msoConnector-constanten zijn: msoConnectorAnd of msoConnectorOr.


Voorbeeld van de methode Add (PropertyTests-collectie)

Dit voorbeeld voegt twee eigenschapstests toe aan de zoekcriteria. De eerste test bestaat hierin dat de gevonden bestanden Word-documenten moeten zijn. De tweede test bestaat hierin dat de bestanden moeten zijn gewijzigd tussen 1 januari 1996 en 30 juni 1996.

Set fs = Application.FileSearch

fs.NewSearch

With fs.PropertyTests

    .Add Name:="Bestandstype", _

        Condition:=msoConditionFileTypeWordDocuments, _

        Connector:=msoConnectorOr

    .Add Name:="Laatst gewijzigd", _

        Condition:=msoConditionAnytimeBetween, _

        Value:="1-1-96", SecondValue:="30-6-96", _

        Connector:=msoConnectorAnd

End With


Copy, methode

Deze methode kopieert het opgegeven besturingselement op een opdrachtbalk naar een bestaande opdrachtbalk.

Syntaxis

expressie.Copy(Bar, Before)

expressie   Vereist. Een expressie die een CommandBarControl-, CommandBarButton-, CommandBarPopup- of CommandBarComboBox-object als resultaat geeft.

Bar   Variant, optioneel. Een CommandBar-object dat de bestemmingsopdrachtbalk vertegenwoordigt. Als dit argument wordt weggelaten, wordt het besturingselement naar dezelfde opdrachtbalk gekopieerd (de opdrachtbalk waar deze zich al bevond).

Before   Variant, optioneel. Een getal dat de positie aangeeft voor het nieuwe besturingselement op de opgegeven opdrachtbalk. Het nieuwe besturingselement wordt ingevoegd vóór het besturingselement op deze positie. Als dit argument wordt weggelaten, wordt het besturingselement naar het einde van de opdrachtbalk gekopieerd.


Voorbeeld van de methode Copy

Dit voorbeeld kopieert het eerste besturingselement van de opdrachtbalk met de naam 'Standaard' naar de opdrachtbalk met de naam 'Aangepast' en plaatst het daar als het eerste besturingselement. Er wordt een nieuwe parameter aan het besturingselement toegewezen en de nieuwe knop krijgt de focus.

Set myCustomBar = CommandBars("Aangepast")

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

With myControl

.Copy Bar:=myCustomBar, Before:=1

.Parameter = "2"

.SetFocus

End With


Count, eigenschap

Deze methode geeft als resultaat het aantal items in de opgegeven collectie. Long, Alleen-lezen.

Aanvullende informatie

Voor de CommandBars-collectie omvat de telling alleen menubalken, werkbalken en snelmenu's. Menu's en vervolgmenu's worden niet meegeteld.


Voorbeeld van de eigenschap Count

Dit voorbeeld gebruikt de eigenschap Count om het aantal opdrachten in de collectie weer te geven.

MsgBox "Uw collectie bevat " & CommandBars.Count & " balken."

Dit voorbeeld gebruikt de eigenschap Count om het aantal selectievakjes weer te geven in de ballon van de Office-assistent.

With Assistant.NewBalloon

    .CheckBoxes(1).Text = "Eerste keuze"

    .CheckBoxes(2).Text = "Tweede keuze"

    .Text = "U hebt de volgende " _

    & .CheckBoxes.Count & " keuzen."

    .Show

End With

Dit voorbeeld gebruikt de eigenschap Count om het aantal labels in de ballon van de Office-assistent weer te geven.

With Assistant.NewBalloon

    .Heading = "Selecteer uw leeftijdsgroep."

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

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

    .Labels(3).Text = "40 of ouder"

    .Text = "Welke van de volgende " _

    & .Labels.Count & " mogelijkheden is op u van toepassing?"

    .Show

End With

Dit voorbeeld geeft het aantal documenteigenschappen weer in de DocumentProperties-collectie die is doorgegeven aan de procedure.

Sub CountDocumentProperties(dp As DocumentProperties)

    MsgBox "De collectie bevat " & dp.Count & " eigenschappen."

End Sub


Delete, methode

Deze methode verwijdert het opgegeven object uit de collectie waarin het zich bevindt.

Syntaxis 1

expressie.Delete

Syntaxis 2

expressie.Delete(Temporary)

Syntaxis 3

expressie.Delete(BstrQueryName)

expressie   Vereist. Een expressie die een CommandBar- of een DocumentProperty-object (syntaxis 1), een CommandBarControl-object (syntaxis 2) of een FileFind-object (syntaxis 3) als resultaat geeft.

Temporary   Variant, optioneel. True verwijdert het besturingselement voor de huidige sessie. De toepassing geeft het besturingselement in de volgende sessie opnieuw weer.

BstrQueryName   String, vereist. Een tekenreeks die maximaal 31 tekens bevat en die de naam bevat van het opgeslagen zoekcriterium dat moet worden verwijderd.

Aanvullende informatie

U kunt een ingebouwde documenteigenschap niet verwijderen.


Voorbeeld van de methode Delete

Dit voorbeeld verwijdert alle aangepaste opdrachtbalken die niet zichtbaar zijn.

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 "Er zijn geen opdrachtbalken verwijderd."

Else

    MsgBox delBars & " aangepaste balken verwijderd."

End If

Dit voorbeeld verwijdert een aangepaste documenteigenschap. U moet een DocumentProperty-object doorgeven aan de procedure.

Sub DeleteCustomDocumentProperty(dp As DocumentProperty)

    dp.Delete

End Sub


Execute, methode

Deze methode voert een procedure uit die is gekoppeld aan een besturingselement van een opdrachtbalk of die begint te zoeken naar bestanden. Selecteer een van de volgende objecten als u een gedetailleerde beschrijving wilt van de methode Execute van een object.

CommandBarButton

CommandBarControl

CommandBarPopup

CommandBarComboBox

FileSearch

FileFind


Execute, methode (besturingselementen van opdrachtbalk)

Deze methode voert de macro of de ingebouwde opdracht uit die is toegewezen aan het opgegeven besturingselement op een opdrachtbalk. Voor aangepaste besturingselementen gebruikt u de eigenschap OnAction om op te geven welke macro moet worden gestart.

Syntaxis

expressie.Execute

expressie   Vereist. Een expressie die een CommandBarControl-, CommandBarButton-, CommandBarPopup- of CommandBarComboBox-object als resultaat geeft.


Voorbeeld van de methode Execute (besturingselementen van opdrachtbalk)

Dit voorbeeld controleert de waarde van de keuzelijst met invoervak op de aangepaste opdrachtbalk 'Mijn aangepaste opdrachtbalk'. Als de waarde 'Eerste' is, wordt de macro gestart die wordt opgegeven door de eigenschap OnAction van het besturingselement van de opdrachtbalk.

Set mycontrol = CommandBars("Mijn aangepaste opdrachtbalk").Controls(1)

With mycontrol

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

mycontrol.Execute

   End If

End With


Execute, methode (FileSearch- en FileFind-object)

FileSearch-object: Begint te zoeken naar de opgegeven bestanden.

FileFind-object: Begint te zoeken naar de opgegeven bestanden en werkt de FindFileResults-collectie bij. Alleen Macintosh.

Syntaxis 1

expressie.Execute(SortBy, SortOrder, AlwaysAccurate)

Syntaxis 2

expressie.Execute

expressie   Vereist. Een expressie die een FileSearch-object (syntaxis 1) of een FileFind-object (syntaxis 2) als resultaat geeft.

SortBy   Variant, optioneel. Deze methode wordt gebruikt om de als resultaat gegeven bestanden te sorteren. Dit kan een van de volgende MsoSortBy-constanten zijn: msoSortbyFileName, msoSortbyFileType, msoSortbyLastModified of msoSortbySize.

SortOrder   Variant, optioneel. De volgorde waarin de als resultaat gegeven bestanden worden gesorteerd. Dit kan een van de volgende MsoSortOrder-constanten zijn: msoSortOrderAscending of msoSortOrderDescending.

AlwaysAccurate   Boolean, optioneel. True als moet worden gezocht naar bestanden die zijn toegevoegd, gewijzigd of verwijderd sinds de bestandsindex voor het laatst is bijgewerkt. De standaardwaarde is True.


Voorbeeld van de methode Execute (FileSearch- en FileFind-object)

Dit voorbeeld zoekt naar alle bestanden die beginnen met 'cmd' in de map Mijn documenten en geeft de locatie en de naam van elk gevonden bestand weer. Het voorbeeld sorteert de lijst met als resultaat gegeven bestanden in oplopende alfabetische volgorde op bestandsnaam.

Set fs = Application.FileSearch

With fs

    .LookIn = "C:\Mijn documenten"

    .FileName = "cmd*"

    If .Execute(SortBy:=msoSortbyFileName, _

            SortOrder:=msoSortOrderAscending) > 0 Then

        MsgBox "Er zijn " & .FoundFiles.Count & _

            " bestanden gevonden."

        For i = 1 To .FoundFiles.Count

            MsgBox .FoundFiles(i)

        Next i

    Else

        MsgBox "Er zijn geen bestanden gevonden."

    End If

End With


SetFocus, methode

Deze methode verplaatst de toetsenbordfocus naar het opgegeven besturingselement op een opdrachtbalk, zodat het besturingselement toetsenbordinvoer kan ontvangen. Wat voor soort toetsenbordinvoer u naar het besturingselement kunt sturen, is afhankelijk van het type besturingselement.

Opmerking Als het besturingselement is uitgeschakeld of vanuit de huidige status niet zichtbaar is, mislukt deze methode.

Syntaxis

expressie.SetFocus

expressie   Vereist. Een expressie die een CommandBarControl-, CommandBarButton-, CommandBarPopup- of CommandBarComboBox-object als resultaat geeft.


Voorbeeld van de methode SetFocus

Dit voorbeeld kopieert het vierde besturingselement van de aangepaste opdrachtbalk Mijn aangepaste balk en plakt het als het eerste besturingselement in dezelfde opdrachtbalk. Er wordt ook een nieuwe parameter aan het besturingselement toegewezen en de focus wordt ingesteld op de nieuwe knop.

Set mycontrol = CommandBars("Mijn aangepaste balk") _

    .Controls(4)

With mycontrol

.Copy Before:=1

.Parameter = "2"

.SetFocus

End With


Text, eigenschap

CommandBarComboBox-object: Met dit object wordt de tekst als resultaat gegeven of ingesteld in het weergavegebied of het bewerkgebied van de keuzelijst met invoervak van de opdrachtbalk. String, Lezen-schrijven.

BalloonLabel- of BalloonCheckbox-object: Met dit object wordt de tekst als resultaat gegeven of ingesteld die wordt weergegeven naast het opgegeven selectievakje of de opgegeven label in de ballon van de Office-assistent. String, Lezen-schrijven.

Balloon-object: Met dit object wordt de tekst als resultaat gegeven of ingesteld die wordt weergegeven na de kop, maar voor de labels of selectievakjes in de ballon van de Office-assistent. String, Lezen-schrijven.

FileFind-object: Met dit object wordt de tekenreeks van maximaal tachtig tekens als resultaat gegeven of ingesteld waarnaar moet worden gezocht in de tekst van een document. Alleen Macintosh. String, Lezen-schrijven.

Aanvullende informatie

Voor de Balloon-, BalloonLabel- en BalloonCheckbox-objecten kunt u met de volgende syntaxis een afbeelding opgeven die moet worden weergegeven: {type locatie breedtefactor}. Hier is type bmp (bitmap), wmf (Windows-metabestand) of pict (Macintosh PICT-bestand); locatie is de resource-id of het pad en de bestandsnaam en breedtefactor geeft de breedte van de wmf of pict op (weglaten voor bmp).


Voorbeeld van de eigenschap Text

Dit voorbeeld controleert het aantal items in de keuzelijst met invoervak op de opdrachtbalk met de naam 'Aangepast'. Als de lijst meer dan drie items bevat, wordt de lijst gewist en wordt er een nieuw eerste item aan toegevoegd. Het nieuwe standaarditem van dit besturingselement is 'Flip'.

Set myBar = CommandBars("Aangepast")

Set myControl = myBar.Controls(2)

With myControl

    If .ListCount > 3 Then

        .Clear

        .AddItem "Flip", 1

        .Text = "Flip"

    End If

End With

Dit voorbeeld maakt een nieuwe ballon van de Office-assistent met een kop, tekst en drie regiokeuzen. De eigenschap Text wordt gebruikt om een label op te geven voor elk selectievakje.

With Assistant.NewBalloon

    .Heading = "Regionale verkoopcijfers"

    .Text = "Selecteer een regio"

    For i = 1 To 3

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

    Next

    .Show

End With

Dit voorbeeld maakt een nieuwe ballon van de Office-assistent met een kop, tekst en drie regiokeuzen. De eigenschap Text wordt gebruikt om balloninstructies te geven aan de gebruiker.

With Assistant.NewBalloon

    .Heading = "Regionale verkoopcijfers"

    .Text = "Selecteer een regio"

    For i = 1 To 3

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

    Next

    .Show

End With


Top, eigenschap

CommandBar- of CommandBarControl-object: Met dit object wordt de afstand (in pixels) als resultaat gegeven of ingesteld van de bovenrand van de opgegeven opdrachtbalk of van het opgegeven besturingselement op een opdrachtbalk tot de bovenrand van het scherm. Voor opdrachtbalken in een dok wordt de afstand van de opdrachtbalk tot de bovenzijde van het dokgebied als resultaat gegeven of ingesteld. Long, Lezen-schrijven voor CommandBar-, Long, Alleen-lezen voor CommandBarControl.

Assistant-object: Met dit object wordt de verticale positie van het venster Office-assistent (in punten) ten opzichte van het scherm als resultaat gegeven of ingesteld. Integer, Lezen-schrijven.


Voorbeeld van de eigenschap Top

Dit voorbeeld plaatst de linkerbovenhoek van de zwevende opdrachtbalk met de naam 'Aangepast' 140 pixels van de linkerrand van het scherm en 100 van de bovenrand van het scherm.

Set myBar = CommandBars("Aangepast")

myBar.Position = msoBarFloating

With myBar

    .Left = 140

    .Top = 100

End With

Dit voorbeeld verplaatst de Office-assistent naar de opgegeven coördinaat.

Assistant.Top = 500


HelpContextId, eigenschap

Met deze eigenschap wordt de Help-context-id als resultaat gegeven of ingesteld van het Help-onderwerp dat is gekoppeld aan het besturingselement op een opdrachtbalk. Long, Lezen-schrijven.

Aanvullende informatie

Als u deze eigenschap wilt gebruiken, moet u ook de eigenschap HelpFile instellen.


Voorbeeld van de eigenschap HelpContextId

Dit voorbeeld voegt een aangepaste knop voor rapportbeheer toe aan het menu Bestand en geeft een Help-onderwerp op dat moet worden weergegeven als de contextafhankelijke Help van die knop.

Set fileMenu = CommandBars _

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

Set fileMenuDropdown = fileMenu.CommandBar

Set nweKnop = fileMenuDropdown.Controls _

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

With nweKnop

    .Caption = "Rapport openen"

    .DescriptionText = "Een kwartaalrapport openen"

    .OnAction = "Rapportbeheer"

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

    .HelpContextID = 47

End With


HelpFile, eigenschap

Met deze eigenschap wordt het Help-bestand als resultaat gegeven of ingesteld van het Help-onderwerp dat is gekoppeld aan het besturingselement op een opdrachtbalk. String, Lezen-schrijven.

Aanvullende informatie

Als u deze eigenschap wilt gebruiken, moet u ook de eigenschap HelpContextID instellen.


Voorbeeld van de eigenschap HelpFile

Dit voorbeeld voegt een aangepaste knop voor rapportbeheer toe aan het menu Bestand en geeft een Help-onderwerp op dat moet worden weergegeven als de contextafhankelijke Help van die knop.

Set fileMenu = CommandBars _

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

Set fileMenuDropdown = fileMenu.CommandBar

Set nweKnop = fileMenuDropdown.Controls _

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

With nweKnop

    .Caption = "Rapport openen"

    .DescriptionText = "Opent een kwartaalrapport"

    .OnAction = "Rapportbeheer"

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

    .HelpContextID = 47

End With


LargeButtons, eigenschap

True als grote werkbalkknoppen worden weergegeven. Boolean, Lezen-schrijven.


Voorbeeld van de eigenschap LargeButtons

Dit voorbeeld geeft grote werkbalkknoppen en Schermtips weer voor alle opdrachtbalken als de actieve hoofdmenubalk 'Aangepast' heet.

Set allBars = CommandBars

If allBars.ActiveMenuBar.Name = "Aangepast" Then

    allBars.LargeButtons = True

    allBars.ShowToolTips = True

End If


List, eigenschap

Met deze eigenschap wordt de waarde  als resultaat gegeven of ingesteld van een lijstitem in de keuzelijst met invoervak van een opdrachtbalk. String, Lezen-schrijven.

Opmerking   Deze eigenschap is alleen-lezen voor ingebouwde keuzelijsten met invoervak.

Syntaxis

expressie.List(Index)

expressie   Vereist. Een expressie die een CommandBarComboBox-object als resultaat geeft.

Index   Long, vereist. Het lijstitem dat moet worden ingesteld.


Voorbeeld van de eigenschap List

Dit voorbeeld controleert de waarde van het vierde lijstitem in de keuzelijst met invoervak met de naam 'Groente' op de opdrachtbalk met de naam 'Aangepast'. Als de waarde 'Tomaat' is, wordt de code uitgevoerd die wordt opgegeven door de eigenschap OnAction van het besturingselement van de opdrachtbalk.

Set myBar = CommandBars("Aangepast")

Set myControl = myBar.Controls("Groente")

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


ListCount, eigenschap

Deze eigenschap geeft als resultaat het aantal lijstitems in de opgegeven keuzelijst met invoervak. Long, Alleen-lezen.


Voorbeeld van de eigenschap ListCount

Dit voorbeeld controleert het aantal items in de keuzelijst met invoervak op de opdrachtbalk 'Aangepast'. Als de lijst meer dan drie items bevat, wordt de lijst gewist en wordt een nieuw eerste item toegevoegd en weergegeven als de standaard voor de keuzelijst met invoervak.

Set myBar = CommandBars("Aangepast")

Set myControl = myBar.Controls(2)

With myControl

    If .ListCount > 3 Then

        .Clear

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

        .ListIndex = 1

    End If

End With


ListHeaderCount, eigenschap

Met deze eigenschap wordt het aantal lijstitems als resultaat gegeven of ingesteld in de keuzelijst met invoervak van de opdrachtbalk dat boven de scheidingslijn wordt weergegeven. Long, Lezen-schrijven.

Opmerking   Deze eigenschap is alleen-lezen voor ingebouwde keuzelijsten met invoervak.

Aanvullende informatie

Als de eigenschap ListHeaderCount de waarde  – 1 heeft, geeft dat aan dat de keuzelijst met invoervak geen scheidingslijn bevat.


Voorbeeld van de eigenschap ListHeaderCount

Het volgende voorbeeld voegt een keuzelijst met invoervak toe aan de opdrachtbalk met de naam 'Aangepast'. Vervolgens worden twee items toegevoegd aan de keuzelijst. Het voorbeeld stelt ook het aantal items, de breedte van de keuzelijst en een lege standaard voor de keuzelijst in.

Set myBar = CommandBars("Aangepast")

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

With myControl

    .AddItem Text:="Eerste item", Index:=1

    .AddItem Text:="Tweede item", Index:=2

    .DropDownLines = 3

    .DropDownWidth = 75

    .ListHeaderCount = 1

End With


ListIndex, eigenschap

Met deze eigenschap wordt het indexnummer als resultaat gegeven of ingesteld van het geselecteerde item in het lijstgedeelte van de keuzelijst met invoervak op de opdrachtbalk. Als niets in de lijst is geselecteerd, geeft deze eigenschap nul als resultaat. Long, Lezen-schrijven.

Opmerking   Deze eigenschap mislukt als deze wordt toegepast op andere besturingselementen dan lijsten.

Aanvullende informatie

Als de eigenschap ListIndex wordt ingesteld, wordt in het opgegeven besturingselement het opgegeven item geselecteerd en wordt de bijbehorende actie uitgevoerd in de toepassing.


Voorbeeld van de eigenschap ListIndex

Dit voorbeeld voert een bestaande procedure uit op basis van de selectie in de keuzelijst met invoervak. De tekst in de keuzelijst met invoervak kan van alles zijn, omdat in het voorbeeld de eigenschap ListIndex of het indexnummer van het tekstitem wordt gebruikt om te bepalen welke procedure wordt uitgevoerd.

With myControl

    Select Case .ListIndex

        Case 1

            chartcourse

        Case 2

            displaygraph

        Case Else

           MsgBox "Ongeldige keuze"

    End Select

End With


NameLocal, eigenschap

Deze eigenschap geeft als resultaat de naam van de ingebouwde opdrachtbalk zoals deze wordt weergegeven in de taalversie van de containertoepassing of geeft de naam van een aangepaste opdrachtbalk als resultaat of stelt deze in. String, Lezen-schrijven.

Opmerking   Als u probeert deze eigenschap in te stellen voor een ingebouwde opdrachtbalk, treedt een fout op.

Aanvullende informatie

De lokale naam van een ingebouwde opdrachtbalk wordt weergegeven op de titelbalk (als de opdrachtbalk zich niet in een dok bevindt) en in de lijst met beschikbare opdrachtbalken, als die lijst wordt weergegeven in de containertoepassing.

Als u de waarde verandert van de eigenschap LocalName van een aangepaste opdrachtbalk, verandert de waarde van Name ook en vice versa.


Voorbeeld van de eigenschap NameLocal

Dit voorbeeld geeft de naam en de lokale naam weer van de eerste opdrachtbalk in de containertoepassing.

With CommandBars(1)

    MsgBox "De naam van de opdrachtbalk is " & .Name

    MsgBox "De lokale naam van de opdrachtbalk is " & .NameLocal

End With


OLEMenuGroup, eigenschap

Met deze eigenschap wordt de menugroep als resultaat gegeven of ingesteld waartoe de opgegeven popup van de opdrachtbalk behoort als de menugroepen van het OLE-bronprogramma zijn samengevoegd met de menugroepen van een OLE-client (dat wil zeggen: als een object van de containertoepassing is ingesloten in een andere toepassing). Dit kan een van de volgende MsoOLEMenuGroup-constanten zijn: msoOleMenuGroupNone, msoOleMenuGroupFile, msoOleMenuGroupEdit, msoOleMenuGroupContainer, msoOleMenuGroupObject, msoOleMenuGroupWindow of msoOleMenuGroupHelp. Long, Lezen-schrijven.

Opmerking   Deze eigenschap is alleen-lezen voor ingebouwde besturingselementen.

Aanvullende informatie

Met deze eigenschap kunnen invoegtoepassingen bepalen hoe de besturingselementen van de opdrachtbalken van deze toepassingen in de Office-toepassing worden vertegenwoordigd. Als de container of het bronprogramma geen opdrachtbalken implementeert, vindt normale OLE-menusamenvoeging plaats: de menubalk en alle werkbalken van het bronprogramma worden samengevoegd en de werkbalken van de container niet. Deze eigenschap is alleen van belang voor popup-besturingselementen op de menubalk, omdat menu's worden samengevoegd op basis van de menugroepcategorie.

Als beide samenvoegende toepassingen opdrachtbalken implementeren, worden de opdrachtbalken samengevoegd volgens de eigenschap OLEUsage.


Voorbeeld van de eigenschap OLEMenuGroup

Dit voorbeeld controleert de eigenschap OLEMenuGroup van een nieuwe aangepaste popup op de actieve menubalk en stelt deze in op msoOLEMenuGroupNone.

Set myControl = ActiveMenuBar.Controls _

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

myControl.OLEMenuGroup = msoOLEMenuGroupNone


OLEUsage, eigenschap

Met deze eigenschap worden de OLE-client- en OLE-bronprogrammarollen als resultaat gegeven of ingesteld waarin een besturingselement op een opdrachtbalk wordt gebruikt als twee Microsoft Office-toepassingen worden samengevoegd. Dit kan een van de volgende MsoControlOLEUsage-constanten zijn: msoControlOLEUsageNeither, msoControlOLEUsageServer, msoControlOLEUsageClient of msoControlOLEUsageBoth. Long, Lezen-schrijven.

Aanvullende informatie

Met deze eigenschap kunt u opgeven hoe besturingselementen van opdrachtbalken van afzonderlijke invoegtoepassingen in een Office-toepassing worden vertegenwoordigd als deze wordt samengevoegd met een andere Office-toepassing. Als zowel de client als het bronprogramma opdrachtbalken implementeren, worden de besturingselementen van opdrachtbalken één voor één in de client ingesloten. Aangepaste besturingselementen die zijn gemarkeerd als alleen-client (of als noch client noch bronprogramma), worden in het bronprogramma achterwege gelaten. Besturingselementen die zijn gemarkeerd als alleen-bronprogramma (of als noch client noch bronprogramma), worden in de client achterwege gelaten. De resterende besturingselementen worden samengevoegd.

Als een van de samenvoegende toepassingen geen Office-toepassing is, wordt normale OLE-menusamenvoeging gebruikt, volgens de eigenschap OLEMenuGroup.


Voorbeeld van de eigenschap OLEUsage

Dit voorbeeld voegt een nieuwe knop toe aan de opdrachtbalk Knoppen en stelt de eigenschap OLEUsage in.

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

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

myControl.OLEUsage = msoControlOLEUsageNeither


OnAction, eigenschap

Met deze eigenschap wordt de naam als resultaat gegeven of ingesteld van de Visual Basic-macro die wordt uitgevoerd als de gebruiker op een besturingselement op een opdrachtbalk klikt of de waarde ervan wijzigt. String, Lezen-schrijven.

Opmerking   De containertoepassing bepaalt of de waarde een geldige macronaam is.


Voorbeeld van de eigenschap OnAction

Dit voorbeeld voegt een besturingselement van een opdrachtbalk toe aan de opdrachtbalk 'Aangepast' en zorgt ervoor dat de macro 'MijnSub' wordt gestart als op de knop wordt geklikt.

Set myBar = .CommandBars("Aangepast")

Set myControl = myBar.Controls _

    .Add(Type:=msocontrolButton)

With myControl

    .FaceId = 2

    .OnAction = "MijnSub"

End With

myBar.Visible = True


Parameter, eigenschap

Met deze eigenschap wordt een tekenreeks als resultaat gegeven of ingesteld die een toepassing kan gebruiken om een opdracht uit te voeren die is verbonden met een besturingselement op een opdrachtbalk. String, Lezen-schrijven.

Aanvullende informatie

Als de opgegeven parameter is ingesteld voor een ingebouwd besturingselement, kan de toepassing het standaardgedrag wijzigen als de toepassing de nieuwe waarde kan analyseren en gebruiken. Als de parameter is ingesteld voor aangepaste besturingselementen, kan deze worden gebruikt om informatie te sturen naar Visual Basic-procedures of om informatie over het besturingselement op te slaan (net als een tweede Tag-eigenschapswaarde).


Voorbeeld van de eigenschap Parameter

Dit voorbeeld kopieert het vierde besturingselement van de aangepaste opdrachtbalk 'Aangepast' en plakt deze als het nieuwe eerste besturingselement in dezelfde opdrachtbalk. Er wordt een nieuwe parameter toegewezen en de nieuwe knop krijgt de focus.

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

With myControl

    .Copy , 1

    .Parameter = "2"

    .SetFocus

End With


PasteFace, methode

Deze methode plakt de inhoud van het Klembord op het opgegeven knopbesturingselement van de opdrachtbalk.

Syntaxis

expressie.PasteFace

expressie   Vereist. Een expressie die een CommandBarButton-object als resultaat geeft.


Voorbeeld van de methode PasteFace

Dit voorbeeld zoekt de ingebouwde knop FileOpen en plakt er een aangepast knopvlak op vanaf het Klembord, waar de gebruiker het knopvlak eerder heeft gewijzigd. Dit voorbeeld mislukt als het Klembord geen aangepast knopvlak bevat. U gebruikt de methode CopyFace om een opgegeven knopvlak naar het Klembord te kopiëren.

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

myControl.PasteFace


Position, eigenschap

Met deze eigenschap wordt de positie als resultaat gegeven of ingesteld van de opgegeven opdrachtbalk. Dit kan een van de volgende MsoBarPosition-constanten zijn: msoBarLeft, msoBarTop, msoBarRight, msoBarBottom, msoBarFloating, msoBarPopup of msoBarMenu. Long, Lezen-schrijven


Voorbeeld van de eigenschap Position

Dit voorbeeld gaat de collectie opdrachtbalken af. De aangepaste opdrachtbalken worden onder in het toepassingsvenster in een dok geplaatst. De ingebouwde opdrachtbalken worden boven in het venster in een dok geplaatst.

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


Priority, eigenschap

Met deze eigenschap wordt de prioriteit van het opgegeven besturingselement op een opdrachtbalk als resultaat gegeven of ingesteld. De prioriteit van een besturingselement bepaalt of het uit een opdrachtbalk in een dok kan wegvallen als de besturingselementen van de opdrachtbalk niet in één rij passen. Long, Lezen-schrijven.

Aanvullende informatie

Een prioriteit van 1 betekent dat het besturingselement niet kan wegvallen. Besturingselementen met de hoogste prioriteitsgetallen vallen het eerst weg.

Een prioriteit van 0 duidt op een 'automatische' waarde, waarmee een geschikte prioriteit wordt gekozen op basis van het type besturingselement. Een prioriteit van 1 betekent dat het besturingselement nooit wegvalt. De andere geldige prioriteiten lopen van 2 tot en met 7. Deze besturingselementen vallen in volgorde van prioriteit (te beginnen met de hoogste waarde) weg.


Voorbeeld van de eigenschap Priority

Dit voorbeeld verplaatst de eerste keuzelijst met invoervak van de aangepaste opdrachtbalk met de naam 'Aangepast' naar de positie voor het zevende besturingselement op de opdrachtbalk. De eigenschap Tag wordt ingesteld op 'Selectiekader' en er wordt een hoge prioriteit aan het besturingselement toegewezen, zodat het waarschijnlijk uit de opdrachtbalk wegvalt als de besturingselementen niet op één rij passen.

Set allcontrols = CommandBars("Aangepast").Controls

For Each ctrl In allcontrols

    If ctrl.Type = msoControlComboBox Then

        With ctrl

            .Move Before:=7

            .Tag = "Selectiekader"

            .Priority = 5

        End With

    Exit For

End If

Next


Protection, eigenschap

Met deze eigenschap wordt de manier als resultaat gegeven of ingesteld waarop de opgegeven opdrachtbalk wordt beveiligd tegen aanpassing door de gebruiker. Dit kan een of meer van de volgende MsoBarProtection-constanten zijn: msoBarNoProtection, msoBarNoCustomize, msoBarNoResize, msoBarNoMove, msoBarNoChangeVisible, msoBarNoChangeDock, msoBarNoVerticalDock of msoBarNoHorizontalDock. Long, Lezen-schrijven.


Voorbeeld van de eigenschap Protection

Dit voorbeeld gaat de collectie met opdrachtbalken af en zoekt naar de opdrachtbalk met de naam 'Formulieren'. Als deze opdrachtbalk wordt gevonden, wordt deze zichtbaar gemaakt en wordt de dokstatus beveiligd.

foundFlag = False

For i = 1 To .CommandBars.Count

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

            .CommandBars(i).Protection = msoBarNoChangeDock

            .CommandBars(i).Visible = True

            foundFlag = True

    End If

Next

If Not foundFlag Then

    MsgBox "De opdrachtbalk 'Formulieren' bevindt zich niet in de collectie."

End If


ReleaseFocus, methode

Deze methode verwijdert de focus van de gebruikersinterface van alle opdrachtbalken.

Syntaxis

expressie.ReleaseFocus

expressie   Vereist. Een expressie die een CommandBars-object als resultaat geeft.


Voorbeeld van de methode ReleaseFocus

Dit voorbeeld verwijdert de focus van de gebruikersinterface van alle opdrachtbalken.

CommandBars.ReleaseFocus


RemoveItem, methode

Deze methode verwijdert een lijstitem van de opgegeven keuzelijst met invoervak van een opdrachtbalk.

Opmerking   Deze eigenschap mislukt als deze wordt toegepast op andere besturingselementen dan lijsten.

Syntaxis

expressie.RemoveItem(Index)

expressie   Vereist. Een expressie die een CommandBarComboBox-object als resultaat geeft.

Index  Long, vereist.Het item dat uit de lijst moet worden verwijderd.


Voorbeeld van de methode RemoveItem

Het volgende voorbeeld bepaalt of de keuzelijst met invoervak 'Lijstvak1' op de aangepaste opdrachtbalk 'Aangepast' meer dan drie items bevat. Als dat zo is, wordt het tweede item verwijderd, wordt het opmaakprofiel zo gewijzigd dat de label van de keuzelijst met invoervak niet meer wordt weergegeven en wordt een nieuwe waarde ingesteld. Bovendien wordt de eigenschap Tag van het hoofdobject (het CommandBarControl-object) ingesteld om aan te geven dat de lijst is gewijzigd.

Set myBar = CommandBars("Aangepast")

Set myControl = myBar.Controls("Lijstvak1")

With myControl

    If .ListCount > 3 Then

        .RemoveItem 2

        .Style = msoComboNormal

        .Text = "Nieuwe standaard"

         Set ctrl = .Parent

         ctrl.Tag = "Inhoud gewijzigd"

    End If

End With


Reset, methode

Deze methode herstelt voor de opgegeven, ingebouwde opdrachtbalk de standaardconfiguratie met besturingselementen of herstelt voor het opgegeven, ingebouwde besturingselement op een opdrachtbalk de standaardfunctie en het standaardknopvlak.

Syntaxis

expressie.Reset

expressie   Vereist. Een expressie die een CommandBar-, CommandBarControl-, CommandBarButton-, CommandBarPopup- of CommandBarComboBox-object als resultaat geeft.

Aanvullende informatie

Als u een ingebouwd besturingselement de beginwaarden geeft, herstelt u de acties die oorspronkelijk voor het besturingselement waren bedoeld en stelt u de eigenschappen van het besturingselement weer in op de oorspronkelijke status. Als u een ingebouwde opdrachtbalk de beginwaarden geeft, verwijdert u aangepaste besturingselementen en herstelt u ingebouwde besturingselementen.


Voorbeeld van de methode Reset

Dit voorbeeld gebruikt de waarde van gebruiker om de opdrachtbalken aan te passen aan het gebruikersniveau. Als gebruiker 'Niveau 1' is, wordt de opdrachtbalk 'Aangepast' weergegeven. Als gebruiker een andere waarde heeft, krijgt de ingebouwde Visual Basic-opdrachtbalk weer de standaardstatus en wordt de opdrachtbalk 'Aangepast' uitgeschakeld.

Set myBar = CommandBars("Aangepast")

If user = "Niveau 1" Then

    myBar.Visible = True

Else

    .CommandBars("Visual Basic").Reset

    myBar.Enabled = False

End If


RowIndex, eigenschap

Met deze eigenschap wordt de dokvolgorde als resultaat gegeven of ingesteld van de opgegeven opdrachtbalk, in verhouding tot andere opdrachtbalken in hetzelfde dokgebied. Dit kan een geheel getal groter dan 0 zijn of een van de volgende msoBarRow-constanten: msoBarRowFirst of msoBarRowLast. Long, Lezen-schrijven.

Aanvullende informatie

Opdrachtbalken met lage nummers worden het eerst in een dok geplaatst. Meerdere opdrachtbalken kunnen dezelfde rij-index hebben. Als twee of meer opdrachtbalken dezelfde rij-index hebben, wordt de opdrachtbalk die het laatst is toegewezen, het eerst weergegeven in de groep.


Voorbeeld van de eigenschap RowIndex

Dit voorbeeld past de positie van de opdrachtbalk 'Aangepast' aan door deze 110 pixels meer dan standaard naar links te verplaatsen. Bovendien wordt dit de eerste werkbalk die in een dok wordt geplaatst doordat de rij-index wordt veranderd in 1.

Set myBar = CommandBars("Aangepast")

With myBar

    .RowIndex = 1

    .Left = 140

End With


ShowPopup, methode

Deze methode geeft de opgegeven opdrachtbalk als een snelmenu weer op de opgegeven coördinaten of op de huidige coördinaten van de aanwijzer.

Opmerking   Als de eigenschap Position van de opdrachtbalk niet is ingesteld op msoBarPopup, mislukt deze methode.

Syntaxis

expressie.ShowPopup(x, y)

expressie   Vereist. Een expressie die een CommandBar-object als resultaat geeft.

x   Variant, optioneel. De x-coördinaat van de locatie van het snelmenu. Als dit argument wordt weggelaten, wordt de huidige x-coördinaat van de aanwijzer gebruikt.

y   Variant, optioneel. De y-coördinaat van de locatie van het snelmenu. Als dit argument wordt weggelaten, wordt de huidige y-coördinaat van de aanwijzer gebruikt.


Voorbeeld van de methode ShowPopup

Dit voorbeeld maakt een snelmenu met twee besturingselementen. De methode ShowPopup wordt gebruikt om het snelmenu zichtbaar te maken.

Set myBar = CommandBars _

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

With myBar

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

    .Controls.Add Type:=msoControlComboBox

End With

myBar.ShowPopup


State, eigenschap

Met deze eigenschap wordt de weergave als resultaat gegeven of ingesteld van het opgegeven knopbesturingselement van een opdrachtbalk. Dit kan een van de volgende MsoButtonState-constanten zijn: msoButtonUp, msoButtonDown of msoButtonMixed. Long, Lezen-schrijven.


Voorbeeld van de eigenschap State

Dit voorbeeld bepaalt of het eerste besturingselement op de opdrachtbalk 'Aangepast' een ingebouwd knopvlak heeft. Als dat zo is, wordt dat knopvlak naar het Klembord gekopieerd, zodat het kan worden aangepast met een toepassing zoals Microsoft Paint. Vervolgens wordt de knopstatus ingesteld op msoButtonUp.

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

With myControl

    If .BuiltInFace = True Then

        .CopyFace

    End If

    .State = msoButtonUp

End With


Style, eigenschap

CommandBarButton-object: met dit object wordt de manier als resultaat gegeven of ingesteld waarop het opgegeven knopbesturingselement van een opdrachtbalk wordt weergegeven. Dit kan een van de volgende MsoButtonStyle-constanten zijn: msoButtonAutomatic, msoButtonIcon, msoButtonCaption of msoButtonIconandCaption. Long, Lezen-schrijven.

CommandBarComboBox-object: met dit object wordt de manier als resultaat gegeven of ingesteld waarop de opgegeven keuzelijst met invoervak van een opdrachtbalk wordt weergegeven. Dit kan een van de volgende MsoComboStyle-constanten zijn: msoComboLabel of msoComboNormal. Long, Lezen-schrijven.


Voorbeeld van de eigenschap Style

Dit voorbeeld maakt een snelmenu dat een knop en een keuzelijst met invoervak bevat en stelt de stijl van beide besturingselementen in.

Set myBar = CommandBars _

    .Add(Name:="Aangepast1", 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 "vanille"

        .AddItem "chocola"

        .AddItem "koekjesdeeg"

    End With

End With

myBar.ShowPopup


Tag, eigenschap

Met deze eigenschap wordt informatie over het besturingselement op een opdrachtbalk als resultaat gegeven of ingesteld, zoals gegevens die als een argument kunnen worden gebruikt in procedures of informatie die het besturingselement aanduidt. String, Lezen-schrijven.


Voorbeeld van de eigenschap Tag

Dit voorbeeld verplaatst de eerste keuzelijst met invoervak van de aangepaste opdrachtbalk 'Mijn aangepaste balk' naar de positie vóór het zevende besturingselement op de opdrachtbalk. De eigenschap Tag wordt ingesteld op 'Selectiekader' en er wordt een hoge prioriteit aan het besturingselement toegewezen, zodat het waarschijnlijk uit de opdrachtbalk wegvalt als de besturingselementen niet op één rij passen.

Set allControls = CommandBars("Mijn aangepaste balk").Controls

For Each ctrl In allControls

    If ctrl.Type = msoControlComboBox Then

        With ctrl

            .Move Before:=7

            .Tag = "Selectiekader"

            .Priority = 5

        End With

        Exit For

    End If

Next


TooltipText, eigenschap

Met deze eigenschap wordt de tekst als resultaat gegeven of ingesteld die wordt weergegeven in de Scherminfo van het opgegeven besturingselement van een opdrachtbalk. String, Lezen-schrijven.

Aanvullende informatie

De waarde van de eigenschap Caption wordt standaard gebruikt als Scherminfo.


Voorbeeld van de eigenschap TooltipText

Dit voorbeeld stelt het laatste besturingselement in de actieve menubalk zo in dat het een eigen groep begint. Daarna wordt er Scherminfo aan toegevoegd.

Set myMenuBar = CommandBars.ActiveMenuBar

Set lastCtrl = myMenuBar _

   .Controls(myMenuBar.Controls.Count)

lastCtrl.BeginGroup = True

lastCtrl.TooltipText = "Klik hier voor Help"

End With


ActiveMenuBar, eigenschap

Deze eigenschap geeft als resultaat een CommandBar-object dat de actieve menubalk in de containertoepassing vertegenwoordigt. Alleen-lezen.


Voorbeeld van de eigenschap ActiveMenuBar

Dit voorbeeld voegt een tijdelijke popup met de naam 'Aangepast' toe aan het einde van de actieve menubalk. Vervolgens wordt de knop 'Importeren' toegevoegd aan de opdrachtbalk die door het besturingselement wordt weergegeven.

Set myMenuBar = CommandBars.ActiveMenuBar

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

newMenu.Caption = "Aangepast"

Set ctrl1 = newMenu.CommandBar.Controls _

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

With ctrl1

    .Caption = "Importeren"

    .TooltipText = "Importeren"

    .Style = msoButtonCaption

End With


AddItem, methode

Deze methode voegt een item toe aan de opgegeven keuzelijst met invoervak van een opdrachtbalk. De keuzelijst met invoervak moet een aangepast besturingselement zijn en moet een vervolgkeuzelijst of een keuzelijst met invoervak zijn

Opmerking   Deze methode mislukt als deze wordt toegepast op een keuzelijst met invoervak die een invoervak of een ingebouwde keuzelijst met invoervak is.

Syntaxis

expressie.AddItem(Text, Index)

expressie   Vereist. Een expressie die een CommandBarComboBox-object als resultaat geeft.

Text   String, vereist. Het item dat moet worden toegevoegd aan het opgegeven besturingselement.

Index   Variant, optioneel. De positie van het opgegeven item in de lijst met items. Als dit argument wordt weggelaten, wordt het item aan het einde van de lijst toegevoegd.


Voorbeeld van de methode AddItem

Dit voorbeeld voegt een keuzelijst met invoervak toe aan de opdrachtbalk 'Aangepast' en voegt vervolgens twee items aan de lijst toe. Verder worden het aantal items, de breedte van de keuzelijst met invoervak en een lege standaard ingesteld.

Set myBar = CommandBars("Aangepast")

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

With myControl

    .AddItem "Eerste Item", 1

    .AddItem "Tweede Item", 2

    .DropDownLines = 3

    .DropDownWidth = 75

    .ListHeaderCount = 0

End With


BeginGroup, eigenschap

Deze eigenschap is True als het opgegeven besturingselement op een opdrachtbalk zich aan het begin van een groep met besturingselementen op de opdrachtbalk bevindt. Boolean, Lezen-schrijven.


Voorbeeld van de eigenschap BeginGroup

Dit voorbeeld stelt het laatste besturingselement op de actieve menubalk in aan het begin van een eigen groep.

Set myMenuBar = CommandBars.ActiveMenuBar

Set lastMenu = myMenuBar _

    .Controls(myMenuBar.Controls.Count)

lastMenu.BeginGroup = True


BuiltIn, eigenschap

Deze eigenschap is True als de opgegeven opdrachtbalk of het opgegeven besturingselement op een opdrachtbalk een ingebouwde opdrachtbalk of een ingebouwd besturingselement van de containertoepassing is. Deze eigenschap is False als het een aangepaste opdrachtbalk of een aangepast besturingselement is waarvan de eigenschap OnAction is ingesteld. Boolean, Alleen-lezen.


Voorbeeld van de eigenschap BuiltIn

Dit voorbeeld verwijdert alle aangepaste opdrachtbalken die niet zichtbaar zijn.

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 "Er zijn geen opdrachtbalken verwijderd."

Else

    MsgBox verwijderdeBalken & " aangepaste opdrachtbalken verwijderd."

End If


BuiltInFace, eigenschap

Deze eigenschap is True als het vlak van het opgegeven knopbesturingselement van een opdrachtbalk een ingebouwd vlak is. Deze eigenschap kan alleen worden ingesteld op True. De knop krijgt dan een ingebouwd vlak. Boolean, Lezen-schrijven.


Voorbeeld van de eigenschap BuiltInFace

Dit voorbeeld bepaalt of het vlak van het eerste besturingselement op de opdrachtbalk 'Aangepast' een ingebouwd knopvlak is. Als dat zo is, wordt het knopvlak naar het Klembord gekopieerd.

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

With myControl

    If .BuiltInFace = True Then .CopyFace

End With


Caption, eigenschap

Met deze eigenschap wordt het titelbalkbijschrift van het opgegeven besturingselement op een opdrachtbalk als resultaat gegeven of ingesteld. String, Lezen-schrijven.

Opmerking   Het bijschrift van een besturingselement wordt ook weergegeven als standaard-Scherminfo.


Voorbeeld van de eigenschap Caption

Dit voorbeeld voegt een besturingselement met een knopvlak voor spellingcontrole toe aan een aangepaste opdrachtbalk en stelt het bijschrift in op 'Spellingcontrole'.

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

Position:=msoBarTop, Temporary:=True)

myBar.Visible = True

Set myControl = myBar.Controls _

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

With myControl

    .DescriptionText = "Hiermee start u de spellingcontrole"

    .Caption = "Spellingcontrole"

End With


Clear, methode

Deze methode verwijdert alle items uit de opgegeven keuzelijst met invoervak van een opdrachtbalk (vervolgkeuzelijst of keuzelijst met invoervak) en wist het tekstvak (invoervak of keuzelijst met invoervak).

Opmerking   Deze methode mislukt als deze wordt toegepast op een ingebouwd besturingselement van een opdrachtbalk.

Syntaxis

expressie.Clear

expressie   Vereist. Een expressie die een CommandBarComboBox-object als resultaat geeft.


Voorbeeld van de methode Clear

Dit voorbeeld controleert het aantal items in de keuzelijst met invoervak 'Namen' op de opdrachtbalk 'Aangepast'. Als de lijst meer dan drie items bevat, wordt de lijst gewist, wordt een nieuw eerste item aan de lijst toegevoegd en wordt het nieuwe item als de standaard weergegeven voor de keuzelijst met invoervak.

Set myBar = CommandBars("Aangepaste balk")

Set myControl = myBar.Controls("Namen")

With myControl

    If .ListCount > 3 Then

        .Clear

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

        .ListIndex = 1

    End If

End With


CommandBar, eigenschap

Deze eigenschap geeft een CommandBar-object als resultaat dat het menu vertegenwoordigt dat wordt weergegeven door de opgegeven popup. Alleen-lezen.


Voorbeeld van de eigenschap CommandBar

Dit voorbeeld stelt thirdLevel in op het vierde besturingselement op de opdrachtbalk 'Tekenen'.

Set thirdLevel = CommandBars("Tekenen") _

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


Controls, eigenschap

Deze eigenschap geeft een CommandBarControls-object als resultaat dat alle besturingselementen op de opgegeven opdrachtbalk of in de opgegeven popup vertegenwoordigt. Alleen-lezen.

Zie Een object uit een collectie als resultaat geven voor informatie over hoe u één lid van een collectie als resultaat geeft.


Voorbeeld van de eigenschap Controls

Dit voorbeeld voegt een keuzelijst met invoervak toe aan de opdrachtbalk 'Aangepast' en voegt twee items toe aan de keuzelijst. Verder worden het aantal items, de breedte van de keuzelijst met invoervak en een lege standaard van de keuzelijst met invoervak ingesteld.

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

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

With myControl

    .AddItem Text:="Eerste item", Index:=1

    .AddItem Text:="Tweede item", Index:=2

    .DropDownLines = 3

    .DropDownWidth = 75

    .ListHeaderCount = 0

End With


CopyFace, methode

Deze methode kopieert het vlak van het opgegeven knopbesturingselement van een opdrachtbalk naar het Klembord.

Syntaxis

expressie.CopyFace

expressie   Vereist. Een expressie die een CommandBarButton-object als resultaat geeft.

Aanvullende informatie

U gebruikt de methode PasteFace om de inhoud van het Klembord op een knopvlak te plakken.


Voorbeeld van de methode CopyFace

Dit voorbeeld zoekt de ingebouwde knop Openen en kopieert het knopvlak naar het Klembord.

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

myControl.CopyFace


DescriptionText, eigenschap

Met deze eigenschap wordt de beschrijving van het opgegeven besturingselement op een opdrachtbalk als resultaat gegeven of ingesteld. De beschrijving wordt op de statusbalk van de containertoepassing weergegeven als de gebruiker de aanwijzer boven een besturingselement op de opdrachtbalk plaatst. String, Lezen-schrijven.

Aanvullende informatie

Niet alle toepassingen hebben een statusbalk. Deze eigenschap wordt ook gebruikt voor ballonhelp op de Macintosh.


Voorbeeld van de eigenschap DescriptionText

Dit voorbeeld voegt een besturingselement met een knopvlak voor spellingcontrole toe aan een aangepaste opdrachtbalk. Dit voorbeeld laat ook de tekst 'Hiermee start u de spellingcontrole' op de statusbalk verschijnen als de gebruiker de aanwijzer boven de knop plaatst.

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

myBar.Visible = True

Set myControl = myBar.Controls _

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

With myControl

    .DescriptionText = "Hiermee start u de spellingcontrole"

    .Caption = "Spellingcontrole"

End With


DisplayTooltips, eigenschap

Deze eigenschap is True als Scherminfo wordt weergegeven als de gebruiker de aanwijzer plaatst boven besturingselementen op een opdrachtbalk. Boolean, Lezen-schrijven.

Aanvullende informatie

Als u de eigenschap DisplayTooltips in een containertoepassing instelt, heeft dat direct invloed op alle opdrachtbalken in die toepassing, in andere Office 97-toepassingen die op dat moment actief zijn en op alle Office 97-toepassingen die daarna worden geopend, totdat de eigenschap opnieuw wordt ingesteld.


Voorbeeld van de eigenschap DisplayTooltips

Dit voorbeeld geeft grote besturingselementen en Scherminfo op alle opdrachtbalken weer als de menubalk 'Aangepaste menubalk' de actieve menubalk is.

Set allBars = CommandBars

If allBars.ActiveMenuBar.Name = "Aangepaste menubalk" Then

    allBars.LargeButtons = True

    allBars.DisplayTooltips = True

End If


DropDownLines, eigenschap

Met deze eigenschap wordt het aantal lijnen in de opgegeven keuzelijst met invoervak van een opdrachtbalk als resultaat gegeven of ingesteld. De keuzelijst met invoervak moet een aangepast besturingselement zijn en moet een vervolgkeuzelijst of een keuzelijst met invoervak zijn. Long, Lezen-schrijven.

Opmerking   Als deze eigenschap wordt ingesteld voor een keuzelijst met invoervak die een invoervak of een ingebouwde keuzelijst met invoervak is, treedt een fout op.

Aanvullende informatie

Als deze eigenschap wordt ingesteld op 0 (nul), wordt het aantal lijnen in het besturingselement gebaseerd op het aantal items in de lijst.


Voorbeeld van de eigenschap DropDownLines

Dit voorbeeld voegt een keuzelijst met invoervak toe aan de opdrachtbalk 'Aangepast' en voegt vervolgens twee items toe aan de keuzelijst met invoervak. Verder worden het aantal items, de breedte van de keuzelijst met invoervak en een lege standaard ingesteld.

Set myBar = CommandBars("Aangepast")

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

With myControl

    .AddItem Text:="Eerste item", Index:=1

    .AddItem "Tweede item", 2

    .DropDownLines = 3

    .DropDownWidth = 75

    .ListHeaderCount = 0

End With


DropDownWidth, eigenschap

Met deze eigenschap wordt de breedte (in pixels) van de lijst van de opgegeven keuzelijst met invoervak van een opdrachtbalk als resultaat gegeven of ingesteld. Long, Lezen-schrijven.

Opmerking   Als deze eigenschap wordt ingesteld voor een ingebouwde keuzelijst met invoervak, treedt een fout op.

Aanvullende informatie

Als deze eigenschap wordt ingesteld op  -1, wordt de breedte van de lijst gebaseerd op de lengte van het langste item in de keuzelijst met invoervak. Als deze eigenschap wordt ingesteld op 0, wordt de breedte van de lijst gebaseerd op de breedte van het besturingselement.


Voorbeeld van de eigenschap DropDownWidth

Dit voorbeeld voegt een keuzelijst met invoervak toe aan de opdrachtbalk 'Aangepast' en voegt vervolgens twee items toe aan de keuzelijst. Verder worden het aantal items, de breedte van de keuzelijst met invoervak en een lege standaard ingesteld.

Set myBar = CommandBars("Aangepast")

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

With myControl

    .AddItem "Eerste item", 1

    .AddItem "Tweede item", 2

    .DropDownLines = 3

    .DropDownWidth = 75

    .ListHeaderCount = 0

End With


Enabled, eigenschap

Deze eigenschap is True als de opgegeven opdrachtbalk of het opgegeven besturingselement op een opdrachtbalk is ingeschakeld. Boolean, Lezen-schrijven.

Aanvullende informatie

Als u deze eigenschap voor een opdrachtbalk instelt op True, wordt de naam van de opdrachtbalk weergegeven in de lijst met beschikbare opdrachtbalken.

Als u de eigenschap Enabled van een ingebouwd besturingselement instelt op True, bepaalt de toepassing de status. Als de eigenschap wordt ingesteld op False, is het besturingselement altijd uitgeschakeld.


Voorbeeld van de eigenschap Enabled

Dit voorbeeld past de opdrachtbalken aan het gebruikersniveau aan dat wordt opgegeven met user. Als user 'Niveau 1' is, wordt de opdrachtbalk 'Aangepaste VB-balk' weergegeven. Als user een andere waarde heeft, krijgt de ingebouwde opdrachtbalk 'Visual Basic' de standaardstatus en wordt de opdrachtbalk 'Aangepaste VB-balk' uitgeschakeld.

Set myBar = CommandBars("Aangepaste VB-balk")

If user = "Niveau 1" Then

    myBar.Visible = True

Else

    CommandBars("Visual Basic").Reset

    myBar.Enabled = False

End If

Dit voorbeeld voegt twee opdrachtbalkknoppen toe aan de opdrachtbalk die wordt vertegenwoordigd door de variabele myBar. Het eerste besturingselement wordt uitgeschakeld en lichter gekleurd weergegeven. Het tweede besturingselement is standaard ingeschakeld.

With myBar

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

    .Controls(1).Enabled = False

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

End With

myBar.Visible = True


FaceId, eigenschap

Met deze eigenschap wordt het id-nummer als resultaat gegeven of ingesteld van het knopvlak dat op het moment is toegewezen aan het opgegeven besturingselement op een opdrachtbalk. Long, Lezen-schrijven.

Aanvullende informatie

De eigenschap FaceId bepaalt de weergave, maar niet de functie van een knop van een opdrachtbalk. De eigenschap Id van het CommandBarControl-object bepaalt de functie van de knop.

De waarde van de eigenschap FaceId van een opdrachtknop met een aangepast vlak is 0 (nul).


Voorbeeld van de eigenschap FaceId

Dit voorbeeld voegt een knop toe aan een aangepaste opdrachtbalk. Klikken op deze knop heeft hetzelfde effect als klikken op de opdracht Openen in het menu Bestand, omdat het id-nummer 23 is, maar de knop heeft hetzelfde knopvlak als de ingebouwde knop Grafieken. Als u op deze knop klikt, wordt het dialoogvenster Openen geopend.

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

     Position:=msoBarTop, Temporary:=True)

newBar.Visible = True

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

con.FaceId = 17


FindControl, methode

Deze methode geeft een CommandBarControl-object als resultaat dat voldoet aan de opgegeven criteria.

Syntaxis

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

expressie   Vereist. Een expressie die een CommandBars-object als resultaat geeft.

Type   Variant, optioneel. Het type van het besturingselement waarnaar wordt gezocht. Dit kan een van de volgende MsoControlType-constanten zijn:

msoControlCustom msoControlButton msoControlEdit msoControlDropdown msoControlComboBox msoControlButtonDropdown msoControlSplitDropdown msoControlGenericDropdown msoControlGraphicCombo msoControlSplitButtonMRUPopup msoControlSplitExpandingGrid	msoControlGraphicDropdown msoControlPopup msoControlGraphicPopup msoControlButtonPopup msoControlGauge msoControlLabel msoControlExpandingGrid msoControlGrid msoControlOCXDropDown msoControlSplitButtonPopup
Id   Variant, optioneel. De identificatie van het besturingselement dat moet worden gezocht.

Tag   Variant, optioneel. De Tag-waarde van het besturingselement dat moet worden gezocht.

Visible    Variant, optioneel. True geeft aan dat alleen moet worden gezocht naar zichtbare besturingselementen van opdrachtknoppen. De standaardwaarde is False.

Recursive    Boolean, optioneel. True geeft aan dat de opdrachtbalk en alle bijbehorende vervolgwerkbalken moeten worden opgenomen in de zoekbewerking. De standaardwaarde is False.

Aanvullende informatie

Als de CommandBars-collectie twee of meer besturingselementen bevat die aan de zoekcriteria voldoen, geeft FindControl het eerste gevonden besturingselement als resultaat. Als geen besturingselement wordt gevonden dat aan de criteria voldoet, geeft FindControl als resultaat Nothing. Geen van de argumenten van de methode FindControl heeft een standaardwaarde.


Voorbeeld van de methode FindControl

Dit voorbeeld voegt de knop Opslaan toe aan het menu Help van de menubalk. Met de methode FindControl wordt ervoor gezorgd dat het menu Help ook wordt gevonden als de gebruiker de menubalk heeft aangepast.

Set helpMenu = CommandBars.FindControl _

    (Type:=msoControlPopup, Id:=helpId)

Set helpMenuDrop = helpMenu.Control.CommandBar

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


opdrachtbalk

Een programmeerbaar object waarmee u binnen Visual Basic een menu of een werkbalk bestuurt. De volgende elementen worden door CommandBar-objecten vertegenwoordigd:

•	Menubalken, werkbalken en snelmenu's

•	Menu's in menubalken en werkbalken

•	Vervolgmenu's in menu's, vervolgmenu's en snelmenu's


besturingselement op een opdrachtbalk

Een ingebouwd of aangepast besturingselement in een menubalk, werkbalk, menu, vervolgmenu of snelmenu. Aan opdrachtbalken kunnen de volgende aangepaste besturingselementen worden toegevoegd: knoppen, invoervakken, keuzelijsten, keuzelijsten met invoervak en pop-up besturingselementen (besturingselementen die een menu of vervolgmenu weergeven).


knop

Een knop in een werkbalk of een component in een menu, vervolgmenu of snelmenu, die een opdracht uitvoert wanneer de gebruiker erop klikt. Werkbalkknoppen en menucomponenten maken gebruik van dezelfde eigenschappen en methoden.

Een knop in een werkbalk kan worden weergeven als een pictogram, als een pictogram met tekst en als tekst. Een menucomponent kan worden weergegeven als tekst en als een pictogram met tekst.


keuzelijst met invoervak

Een aangepast invoervak, een aangepaste keuzelijst of een keuzelijst met invoervak in een menubalk, werkbalk, menu, vervolgmenu of snelmenu. Een aangepaste keuzelijst met invoervak kan met of zonder label worden weergegeven. Wanneer een werkbalk in een verticaal dok is geplaatst, zijn eventuele aangepaste keuzelijsten met invoervak op de werkbalk niet zichtbaar.

Veel andere ingebouwde besturingselementen, zoals de knop Ongedaan maken, worden eveneens tot de keuzelijsten met invoervak gerekend, maar de meeste eigenschappen en methoden voor het wijzigen van keuzelijsten met invoervak zijn voor deze ingebouwde besturingselementen niet beschikbaar.


pop-up besturingselement

Een ingebouwd of aangepast besturingselement in een menubalk of werkbalk dat een menu weergeeft wanneer de gebruiker erop klikt, of een ingebouwde of aangepaste component in een menu, vervolgmenu of snelmenu die een menu weergeeft wanneer de gebruiker de muisaanwijzer erop plaatst.

Veel andere ingebouwde besturingselementen, zoals de knop Tekstkleur, worden eveneens tot de pop-up besturingselementen gerekend, maar de meeste eigenschappen en methoden voor het wijzigen van pop-up besturingselementen zijn voor deze ingebouwde besturingselementen niet beschikbaar.


CommandBars, collectieobject

Een collectie van CommandBar-objecten die de opdrachtbalken in de toepassing van het hoofdobject vertegenwoordigen.

Werken met de CommandBars-collectie

Met de eigenschap CommandBars kunt u de CommandBars-collectie als resultaat geven. In het volgende voorbeeld wordt in het venster Direct zowel de naam als de lokale naam van iedere menubalk en werkbalk weergegeven. Tevens wordt een waarde weergegeven die aanduidt of de menubalk of werkbalk zichtbaar is.

For Each cbar in CommandBars

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

Next

Met de methode Add kunt u een nieuwe opdrachtbalk toevoegen aan de collectie. In het volgende voorbeeld wordt een aangepaste werkbalk gemaakt die de naam 'Aangepast1' krijgt. De werkbalk wordt vervolgens zwevend weergegeven.

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

cbar1.Visible = True

Met CommandBars(index), waarbij index de naam of het indexnummer van een opdrachtbalk is, kunt u een afzonderlijk CommandBar-object als resultaat geven. In het volgende voorbeeld wordt de werkbalk 'Aangepast1' in een dok aan de onderzijde van het toepassingsvenster geplaatst.

CommandBars("Aangepast1").Position = msoBarBottom

Opmerking   U kunt de naam of het indexnummer gebruiken om een menubalk of werkbalk op te geven in de lijst beschikbare menubalken en werkbalken in de toepassing van het hoofdobject. Als u een menu, vervolgmenu of snelmenu (alle vertegenwoordigd door CommandBar-objecten) wilt opgeven, moet u echter de naam gebruiken.

Als twee of meer aangepaste menu's of vervolgmenu's dezelfde naam hebben, geeft CommandBars(index) het eerst gevonden menu als resultaat. In dat geval kunt u het juiste menu of vervolgmenu als resultaat geven door gebruik te maken van het pop-up besturingselement dat het menu weergeeft. Als u de eigenschap CommandBar op dit pop-up element toepast, wordt de opdrachtbalk die het menu vertegenwoordigt als resultaat gegeven.


CommandBar, object

Vertegenwoordigt een opdrachtbalk in de toepassing van het hoofdobject. Het CommandBar-object maakt deel uit van de CommandBars-collectie.

Werken met het CommandBar-object

Met CommandBars(index), waarbij index de naam of het indexnummer van een opdrachtbalk is, kunt u een afzonderlijk CommandBar-object als resultaat geven. In het volgende voorbeeld wordt in de collectie opdrachtbalken gezocht naar de opdrachtbalk met de naam 'Formulieren'. Als deze opdrachtbalk wordt gevonden, wordt hij zichtbaar gemaakt en zijn dokstatus beschermd. In dit voorbeeld vertegenwoordigt de variabele cb een CommandBar-object.

foundFlag = False

For Each cb In CommandBars

    If cb.Name = "Formulieren" Then

        cb.Protection = msoBarNoChangeDock

        cb.Visible = True

        foundFlag = True

    End If

Next cb

If Not foundFlag Then

    MsgBox "De collectie bevat geen opdrachtbalk Formulieren."

End If

U kunt een naam of een indexnummer gebruiken om een menubalk of werkbalk op te geven in de lijst beschikbare menubalken en werkbalken in de toepassing van het hoofdobject. Als u een menu, vervolgmenu of snelmenu (alle vertegenwoordigd door CommandBar-objecten) wilt opgeven, moet u echter de naam gebruiken. In het voorbeeld hierna wordt onder aan het menu Extra een nieuwe menuopdracht toegevoegd. Als de gebruiker op de menuopdracht klikt, wordt de procedure 'ktlVerslag' uitgevoerd.

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

With newItem

    .BeginGroup = True

    .Caption = "Verslag maken"

    .FaceID = 0

    .OnAction = "ktlVerslag"

End With

Als twee of meer aangepaste menu's of vervolgmenu's dezelfde naam hebben, geeft CommandBars(index) het eerst gevonden menu als resultaat. In dat geval kunt u het juiste menu of vervolgmenu als resultaat geven door gebruik te maken van het pop-up besturingselement dat het menu weergeeft. Als u de eigenschap CommandBar op dit pop-up element toepast, wordt de opdrachtbalk die het menu vertegenwoordigt als resultaat gegeven.

In het volgende voorbeeld is het derde besturingselement op de werkbalk 'Aangepast' een pop-up besturingselement. Onder aan het menu van dat besturingselement wordt de opdracht Opslaan toegevoegd.

Set viewMenu = CommandBars("Aangepast").Controls(3).CommandBar

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


CommandBarControls, collectieobject

Een collectie van CommandBarControl-objecten die de opdrachtbalk-besturingselementen in een opdrachtbalk vertegenwoordigen.

Werken met de CommandBarControls-collectie

Met de eigenschap Controls kunt u de CommandBarControls-collectie als resultaat geven. In het volgende voorbeeld wordt het bijschrift van ieder besturingselement op de werkbalk 'Standaard' gewijzigd in de huidige waarde van de eigenschap Id voor dat besturingselement.

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

ctl.Caption = CStr(ctl.Id)

Next ctl

Met de methode Add kunt u een nieuw opdrachtbalk-besturingselement aan de CommandBarControls-collectie toevoegen. In het volgende voorbeeld wordt een nieuwe, lege knop aan de opdrachtbalk 'Aangepast' toegevoegd.

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

Met Controls(index), waarbij index het bijschrift of indexnummer van een besturingselement is, kunt u een CommandBarControl-object, CommandBarButton-object, CommandBarComboBox-object of CommandBarPopup-object als resultaat geven. In het volgende voorbeeld wordt het eerste besturingselement in de opdrachtbalk 'Standaard' gekopieerd naar de opdrachtbalk 'Aangepast'.

Set myCustomBar = CommandBars("Aangepast")

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

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


CommandBarControl, object

Vertegenwoordigt een opdrachtbalk-besturingselement. Het CommandBarControl-object maakt deel uit van de CommandBarControls-collectie. De eigenschappen en methoden van het CommandBarButton-object, CommandBarComboBox-object en CommandBarPopup-object zijn dezelfde als die van het CommandBarControl-object.

Opmerking   Als u Visual Basic-programmacode schrijft om met aangepaste opdrachtbalk-besturingselementen te werken, moet u het CommandBarButton-object, CommandBarComboBox-object en CommandBarPopup-object gebruiken. Schrijft u code om met ingebouwde besturingselementen in de toepassing van het hoofdobject te werken, die niet door een van de bovenstaande objecten kunnen worden vertegenwoordigd, dan gebruikt u het CommandBarControl-object.

Werken met het CommandBarControl-object

Met Controls(index), waarbij index het indexnummer van een besturingselement is, kunt u een CommandBarControl-object als resultaat geven. (De eigenschap Type van het besturingselement moet msoControlLabel, msoControlExpandingGrid, msoControlSplitExpandingGrid, msoControlGrid of msoControlGauge zijn.)

Opmerking   Aan variabelen die zijn gedeclareerd als CommandBarControl kunnen CommandBarButton-, CommandBarComboBox- en CommandBarPopup-waarden worden toegekend.

U kunt ook de methode FindControl gebruiken om een CommandBarControl-object als resultaat te geven. In het voorbeeld hieronder wordt gezocht naar een besturingselement van het type msoControlGauge. Als dit besturingselement wordt gevonden, worden zijn indexnummer en de naam van de opdrachtbalk die het besturingselement bevat, weergegeven. In dit voorbeeld vertegenwoordigt de variabele lbl een CommandBarControl-object.

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

If lbl Is Nothing Then

    MsgBox "Een besturingselement van het type msoControlGauge is niet gevonden."

Else

    MsgBox "Besturingselement " & lbl.Index & " in opdrachtbalk " _

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

End If


CommandBarButton, object

Vertegenwoordigt een knop in een opdrachtbalk.

Werken met het CommandBarButton-object

Met Controls(index), waarbij index het indexnummer van het besturingselement is, kunt u een CommandBarButton-object als resultaat geven. (De eigenschap Type van het besturingselement moet msoControlButton zijn.)

In het volgende voorbeeld is het tweede besturingselement in de opdrachtbalk 'Aangepast' een knop. De stijl van deze knop wordt gewijzigd.

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

With c

If .Type = msoControlButton Then

    If .Style = msoButtonIcon Then

        .Style = msoButtonIconAndCaption

    Else

        .Style = msoButtonIcon

    End If

End If

End With

U kunt ook de methode FindControl gebruiken om een CommandBarButton-object als resultaat te geven.


CommandBarComboBox, object

Vertegenwoordigt een keuzelijst met invoervak in een opdrachtbalk.

Werken met het CommandBarComboBox-object

Met Controls(index), waarbij index het indexnummer van het besturingselement is, kunt u een CommandBarComboBox-object als resultaat geven. (De eigenschap Type van het besturingselement moet msoControlEdit, msoControlDropdown, msoControlComboBox, msoControlButtonDropdown, msoControlSplitDropdown, msoControlOCXDropdown, msoControlGraphicCombo of msoControlGraphicDropdown zijn.)

In het volgende voorbeeld worden twee elementen toegevoegd aan het tweede besturingselement in de opdrachtbalk 'Aangepast'. Vervolgens wordt het formaat van het besturingselement aangepast.

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

With combo

    .AddItem "Eerste element", 1

    .AddItem "Tweede element", 2

    .DropDownLines = 3

    .DropDownWidth = 75

    .ListIndex = 0

End With

U kunt ook de methode FindControl gebruiken om een CommandBarComboBox-object als resultaat te geven. In het volgende voorbeeld wordt in alle opdrachtbalken gezocht naar een zichtbaar CommandBarComboBox-object met de Tag (Extra info) 'opdrachtenblad'.

Set myControl = CommandBars.FindControl _

(Type:=msoControlComboBox, Tag:="opdrachtenblad", Visible:=True)


CommandBarPopup, object

Vertegenwoordigt een pop-up besturingselement in een opdrachtbalk.

Werken met het CommandBarPopup-object

Met Controls(index), waarbij index het nummer van het besturingselement is, kunt u een CommandBarPopup-object als resultaat geven. (De eigenschap Type van het besturingselement moet msoControlPopup, msoControlGraphicPopup, msoControlButtonPopup, msoControlSplitButtonPopup of msoControlSplitButtonMRUPopup zijn.)

U kunt ook de methode FindControl gebruiken om een CommandBarPopup-object als resultaat te geven. In het volgende voorbeeld wordt in alle opdrachtbalken gezocht naar een CommandBarPopup-object met de Tag (Extra info) 'Grafiek'.

Set myControl = Application.CommandBars.FindControl _

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

Aanvullende informatie

Ieder pop-up besturingselement bevat een CommandBar-object. Als u de opdrachtbalk via een pop-up besturingselement als resultaat wilt geven, moet u de eigenschap CommandBar toepassen op het CommandBarPopup-object..


FileType, eigenschap

FileSearch-object: Geeft het bestandstype als resultaat of stelt het bestandstype in dat tijdens een zoekbewerking moet worden gezocht. Kan een van de volgende MsoFileType-constanten zijn: msoFileTypeAllFiles, msoFileTypeBinders, msoFileTypeDatabases, msoFileTypeExcelWorkbooks, msoFileTypeOfficeFiles, msoFileTypePowerPointPresentations, msoFileTypeTemplates of msoFileTypeWordDocuments. De standaardwaarde is msoFileTypeOfficeFiles. Variant, Lezen-schrijven.

FileFind-object: Geeft het bestandstype als resultaat of stelt het bestandstype in dat moet worden gezocht. Kan worden ingesteld op een getal dat de functie MacId als resultaat geeft. Alleen Macintosh. Long, Lezen-schrijven.

Aanvullende informatie

Gebruik bij de functie MacID de volgende argumenten om het juiste type Macintosh-bestand als resultaat te geven.

Bestandstype	Argument
Word-document	MSWD
Microsoft Excel-werkmap	XCEL
PowerPoint-presentatie	PPT3 (bruikbaar bij alle versies van PowerPoint)
Tekstbestand	TTXT


Voorbeeld van de eigenschap FileType

In dit voorbeeld wordt gezocht naar alle binderbestanden in de map Mijn documenten. De naam en de locatie van ieder gevonden bestand worden weergegeven in een berichtvenster.

Set fs = Application.FileSearch

With fs

    .LookIn = "C:\Mijn documenten"

    .FileType = msoFileTypeBinders

    If .Execute > 0 Then

        MsgBox "Er is/zijn " & .FoundFiles.Count & _

            " binderbestand(en) gevonden."

        For i = 1 To .FoundFiles.Count

            MsgBox .FoundFiles(i)

        Next i

    Else

        MsgBox "Er zijn geen binderbestanden gevonden."

    End If

End With


FoundFiles, eigenschap

Geeft een FoundFiles-object als resultaat dat de namen bevat van alle bestanden die tijdens een zoekbewerking zijn gevonden. Alleen-lezen.


Voorbeeld van de eigenschap FoundFiles

In dit voorbeeld wordt het pad van ieder bestand in de lijst met gevonden bestanden weergegeven.

With Application.FileSearch

For i = 1 To .FoundFiles.Count

    MsgBox .FoundFiles(i)

Next I

End With


LastModified, eigenschap

Geeft een constante als resultaat of stelt een constante in die aangeeft wanneer het opgegeven bestand voor het laatst is gewijzigd en opgeslagen. Kan een van de volgende msoLastModified-constanten zijn: msoLastModifiedAnyTime, msoLastModifiedLastMonth, msoLastModifiedLastWeek, msoLastModifiedThisMonth, msoLastModifiedThisWeek, msoLastModifiedToday of msoLastModifiedYesterday. De standaardwaarde is msoLastModifiedAnyTime. Variant, Lezen-schrijven.


Voorbeeld van de eigenschap LastModified

In dit voorbeeld worden opties voor een zoekbewerking ingesteld. De zoekbewerking resulteert in bestanden die recent zijn gewijzigd en die zich in de map C:\Mijn documenten of in een submap van deze map bevinden.

Set fs = Application.FileSearch

With fs

    .LookIn = "C:\Mijn documenten"

    .SearchSubFolders = True

    .LastModified = msoLastModifiedYesterday

End With


LookIn, eigenschap

Geeft de map als resultaat of stelt de map in die tijdens de opgegeven zoekbewerking moet worden doorzocht. String, Lezen-schrijven.


Voorbeeld van de eigenschap LookIn

In dit voorbeeld wordt in de map Mijn documenten gezocht naar alle bestanden waarvan de naam begint met 'Cmd'. Vervolgens worden de naam en de locatie van ieder gevonden bestand weergegeven.

Set fs = Application.FileSearch

With fs

    .LookIn = "C:\Mijn documenten"

    .FileName = "cmd.*"

    If .Execute > 0 Then

        MsgBox "Er is/zijn " & .FoundFiles.Count & _

        " bestand(en) gevonden."

        For i = 1 To .FoundFiles.Count

            MsgBox .FoundFiles(i)

        Next i

    Else

        MsgBox "Er zijn geen bestanden gevonden."

    End If

End With


MatchAllWordForms, eigenschap

True als de opgegeven zoekbewerking ook alle vormen van het opgegeven woord in de tekst van het bestand of in de bestandseigenschappen moet omvatten. Boolean, Lezen-schrijven.

Aanvullende informatie

Deze eigenschap is alleen beschikbaar als het bestand Mswds_en.lex geïnstalleerd en geregistreerd is. Als u tijdens de installatieprocedure voor de Standaardinstallatie hebt gekozen, is dit bestand niet geïnstalleerd.


Voorbeeld van de eigenschap MatchAllWordForms

In dit voorbeeld worden alle bestanden gevonden waarvan de tekst of de eigenschappen een of meer van de woordvormen 'rennen', 'ren', 'rent', 'rende', 'renden', 'rennend', 'rennende' of 'gerend' bevatten. Met de eigenschap TextOrProperty stelt u het te zoeken woord in en beperkt u de zoekbewerking tot de tekst van het bestand of de bestandseigenschappen.

With Application.FileSearch

    .NewSearch

    .LookIn = "C:\Mijn documenten"

    .SearchSubFolders = True

    .TextOrProperty = "rennen"

    .MatchAllWordForms = True

    .FileType = msoFileTypeAllFiles

End With


MatchTextExactly, eigenschap

True als de opgegeven zoekbewerking alleen bestanden zoekt waarvan de tekst of de eigenschappen exact hetzelfde woord of exact dezelfde woordgroep bevatten als u hebt opgegeven. Boolean, Lezen-schrijven.


Voorbeeld van de eigenschap MatchTextExactly

In dit voorbeeld wordt in de map C:\Mijn documenten gezocht naar alle bestanden waarvan de tekst of de eigenschappen het woord "Rennen" bevatten.

With Application.FileSearch

    .NewSearch

    .LookIn = "C:\Mijn documenten"

    .TextOrProperty = "Rennen"

    .MatchTextExactly = True

    .FileType = msoFileTypeAllFiles

End With


NewSearch, methode

Stelt alle zoekcriteria op de standaardwaarden in.

Syntaxis

expressie.NewSearch

expressie   Vereist. Een expressie die een FileSearch-object als resultaat geeft.

Aanvullende informatie

De instellingen van zoekcriteria blijven gedurende een toepassingssessie intact. U hoeft deze methode dus alleen te gebruiken wanneer u zoekcriteria wilt wijzigen. De methode heeft geen effect op de waarde van de eigenschap LookIn.


Voorbeeld van de methode NewSearch

In dit voorbeeld worden de zoekcriteria met de methode NewSearch ingesteld op de standaardwaarden voordat een nieuwe zoekbewerking wordt gestart.

With Application.FileSearch

    .NewSearch

    .LookIn = "C:\Mijn documenten"

    .SearchSubFolders = True

    .FileName = "rennen"

    .MatchAllWordForms = True

    .FileType = msoFileTypeAllFiles

    If .Execute() > 0 Then

        MsgBox "Er is/zijn " & .FoundFiles.Count & _

        " bestand(en) gevonden."

        For i = 1 To .FoundFiles.Count

            MsgBox .FoundFiles(i)

        Next i

    Else

        MsgBox "Er zijn geen bestanden gevonden."

    End If

End With


PropertyTests, eigenschap

Geeft een PropertyTests-collectie als resultaat die alle zoekcriteria voor een zoekbewerking vertegenwoordigt. Alleen-lezen.

Zie Een object uit een collectie als resultaat geven voor meer informatie over de wijze waarop u een afzonderlijk lid van een collectie als resultaat geeft.


Voorbeeld van de eigenschap PropertyTests

In dit voorbeeld worden alle zoekcriteria voor de eerste eigenschapstest in de collectie weergegeven.

With Application.FileSearch.PropertyTests(1)

myString = "Dit zijn de zoekcriteria: " _

    & " De naam is: " & .Name & ". De voorwaarde is: " _

    & .Condition

If .Value <> "" Then

    myString = myString & ". De waarde is: " & .Value

    If .SecondValue <> "" Then

        myString = myString _

            & ". De tweede waarde is: " _

            & .SecondValue & ", en de verbindingslijn is " _

            & .Connector

    End If

End If

MsgBox myString

End With


SearchSubFolders, eigenschap

True als de opgegeven zoekbewerking ook de submappen van de map omvat die met de eigenschap LookIn is opgegeven. Boolean, Lezen-schrijven.


Voorbeeld van de eigenschap SearchSubFolders

In dit voorbeeld wordt in de map Mijn documenten en in alle submappen van deze map gezocht naar bestanden waarvan de naam begint met 'Cmd'. Vervolgens worden de naam en de locatie van ieder gevonden bestand aangegeven.

Set fs = Application.FileSearch

With fs

    .LookIn = "C:\Mijn documenten"

    .SearchSubFolders = True

    .FileName = "cmd*"

    If .Execute() > 0 Then

        MsgBox "Er is/zijn " & .FoundFiles.Count & _

     " bestand(en) gevonden."

        For i = 1 To .FoundFiles.Count

            MsgBox .FoundFiles(i)

        Next i

    Else

        MsgBox "Er zijn geen bestanden gevonden."

    End If

End With


TextOrProperty, eigenschap

Geeft het woord of de woordgroep als resultaat of stelt het woord of de woordgroep in waarnaar tijdens de opgegeven zoekbewerking in de tekst of in de bestandseigenschappen van een bestand moet worden gezocht. Het woord of de woordgroep kan de jokertekens * (sterretje) of ? (vraagteken) bevatten. String, Lezen-schrijven.

Aanvullende informatie

Het jokerteken ? vervangt één willekeurig teken in het woord of de woordgroep. Als u bijvoorbeeld boer? typt, worden alle bestanden gevonden waarin 'boers' of 'boert' tenminste één maal voorkomt.

Het jokerteken * vervangt een willekeurig aantal tekens in het woord of de woordgroep. Als u bijvoorbeeld San* typt, worden alle bestanden gevonden waarin ten minste één maal een woord voorkomt dat met 'San' begint.


Voorbeeld van de eigenschap TextOrProperty

In dit voorbeeld wordt in de map C:\Mijn documenten en in alle submappen van deze map gezocht naar bestanden waarvan de tekst of de eigenschappen een of meerdere woorden bevatten die met 'San' beginnen. Met de eigenschap TextOrProperty stelt u het te zoeken woord in en beperkt u de zoekbewerking tot de tekst van het bestand of de bestandseigenschappen.

With Application.FileSearch

    .NewSearch

    .LookIn = "C:\Mijn documenten"

    .SearchSubFolders = True

    .TextOrProperty = "San*"

    .FileType = msoFileTypeAllFiles

End With


Connector, eigenschap

Geeft de verbindingslijn tussen twee soortgelijke eigenschapstestwaarden als resultaat. Kan een van de volgende MsoConnector-constanten zijn: msoConnectorAnd of msoConnectorOr. De standaardwaarde is msoConnectorAnd. Variant, Alleen-lezen.

Aanvullende informatie

Een verbindingslijn geeft aan of twee soortgelijke zoekcriteria worden gecombineerd tot één eigenschapstest (msoConnectorAnd) of afzonderlijk worden afgehandeld (msoConnectorOr).


Voorbeeld van de eigenschap Connector

In dit voorbeeld wordt een bericht weergegeven dat beschrijft op welke wijze de zoekcriteria in een zoekbewerking worden geëvalueerd.

With Application.FileSearch.PropertyTests(1)

If .Connector = msoConnectorAnd Then

   MsgBox "Alle zoekcriteria worden gecombineerd."

Else

    MsgBox "De criteria worden afzonderlijk afgehandeld."

End If

End With


Condition, eigenschap

Geeft de voorwaarde van de opgegeven zoekcriteria als resultaat. Variant, Alleen-lezen.

Kan een van de volgende MsoCondition-constanten zijn:

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


Voorbeeld van de eigenschap Condition

In dit voorbeeld wordt de verbindingswaarde van zoekcriteria voor de eerste eigenschapstest als resultaat gegeven.

With Application.FileSearch.PropertyTests(1)

    MsgBox "U hebt als voorwaarde ingesteld: " & .Condition

End With


SecondValue, eigenschap

Geeft voor de opgegeven zoekbewerking een eigenschapstest van een optionele tweede waarde (in een bereik) als resultaat. Variant, Alleen-lezen.

Aanvullende informatie

Deze eigenschap stelt u in staat om een bereik op te geven. De eigenschap kan alleen worden gebruikt met de MsoCondition-constanten msoConditionAnyTimeBetween of msoConditionAnyNumberBetween.


Voorbeeld van de eigenschap SecondValue

In dit voorbeeld wordt de tweede waarde van het zoekcriterium (indien aanwezig) weergegeven in een berichtvenster. Als er geen tweede waarde is, verschijnt er een ander bericht.

With Application.FileSearch.PropertyTests(1)

If .SecondValue = "" Then

   MsgBox "U hebt geen tweede waarde opgegeven."

Else

    MsgBox "U hebt als tweede waarde ingesteld: " _

    & .SecondValue

End If

End With


Remove, methode

Verwijdert een PropertyTest-object uit de PropertyTests-collectie.

Syntaxis

expressie.Remove(lndex)

expressie   Vereist. Een expressie die een PropertyTest-object als resultaat geeft.

lndex   Long, vereist. Het indexnummer van de te verwijderen eigenschapstest.


Voorbeeld van de methode Remove

In dit voorbeeld wordt het eerste zoekcriterium uit de collectie verwijderd.

Application.FileSearch.PropertyTests.Remove(1)


FileSearch, object

Vertegenwoordigt de functionaliteit van het dialoogvenster Openen (menu Bestand).

Werken met het FileSearch-object

U kunt het FileSearch-object met de eigenschap FileSearch als resultaat geven. In het volgende voorbeeld wordt gezocht naar de opgegeven bestanden. Een berichtvenster geeft het aantal gevonden bestanden en de naam van elk gevonden bestand weer.

With Application.FileSearch

    If .Execute() > 0 Then

        MsgBox "Er is/zijn " & .FoundFiles.Count & _

            " bestand(en) gevonden."

        For i = 1 To .FoundFiles.Count

            MsgBox .FoundFiles(i)

        Next i

    Else

        MsgBox "Er zijn geen bestanden gevonden."

    End If

End With

Met de methode NewSearch kunt u de zoekcriteria instellen op de standaardwaarden. Als een zoekbewerking is voltooid, blijven de eigenschapswaarden behouden. De methode NewSearch stelt u in staat om de eigenschappen voor de volgende zoekbewerking selectief in te stellen. U hoeft de eigenschapswaarden dan niet handmatig te herstellen. In het volgende voorbeeld worden de zoekcriteria voor het begin van een nieuwe zoekbewerking ingesteld op de standaardwaarden.

With Application.FileSearch

    .NewSearch

    .LookIn = "C:\Mijn documenten"

    .SearchSubFolders = True

    .FileName = "Rennen"

    .MatchTextExactly = True

    .FileType = msoFileTypeAllFiles

End With


PropertyTest, object

Vertegenwoordigt een afzonderlijk zoekcriterium. De zoekcriteria worden weergegeven in het dialoogvenster Zoekcriteria (menu Bestand, opdracht Openen, knop Zoekcriteria). Het PropertyTest-object maakt deel uit van de PropertyTests-collectie.

Werken met het PropertyTest-object

Met PropertyTests(index), waarbij index het indexnummer is, kunt u een afzonderlijk PropertyTest-object als resultaat geven. In het volgende voorbeeld worden alle zoekcriteria voor de eerste eigenschapstest in de PropertyTests-collectie weergegeven.

With Application.FileSearch.PropertyTests(1)

myString = "Dit zijn de zoekcriteria: " _

    & " De naam is: " & .Name & ". De voorwaarde is: " _

    & .Condition

If .Value <> "" Then

    myString = myString & ". De waarde is: " & .Value

    If .SecondValue <> "" Then

        myString = myString _

            & ". De tweede waarde is: " _

            & .SecondValue & ", en de verbindingslijn is" _

            & .Connector

    End If

End If

MsgBox myString

End With


PropertyTests, collectieobject

Een collectie van PropertyTest-objecten die alle zoekcriteria van een zoekbewerking vertegenwoordigen. De zoekcriteria worden weergegeven in het dialoogvenster Zoekcriteria (menu Bestand, opdracht Openen, knop Zoekcriteria).

Werken met de PropertyTests-collectie

Met de eigenschap PropertyTests kunt u de PropertyTests-collectie als resultaat geven. In het volgende voorbeeld wordt het aantal zoekcriteria weergegeven dat bij een afzonderlijke zoekbewerking wordt gebruikt.

FileSearch.PropertyTests.Count

Met de methode Add kunt u een nieuw PropertyTest-object aan de PropertyTests-collectie toevoegen. In het volgende voorbeeld worden twee eigenschapstests aan de zoekcriteria toegevoegd. Met het eerste criterium wordt opgegeven dat de gezochte bestanden Word-documenten moeten zijn. Het tweede criterium stelt de voorwaarde dat de gezochte bestanden tussen 1 januari 1996 en 30 juni 1996 zijn gewijzigd.

Set fs = Application.FileSearch

fs.NewSearch

With fs.PropertyTests

    .Add Name:="Bestanden van het type", _

    Condition:=msoConditionFileTypeWordDocuments, _

 Connector:=msoConnectorOr

    .Add Name:="Laatst gewijzigd", _

    Condition:=msoConditionAnytimeBetween, _

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

    Connector:=msoConnectorAnd

End With

Met PropertyTests(index), waarbij index het indexnummer is, kunt u een afzonderlijk PropertyTest-object als resultaat geven. In het volgende voorbeeld worden alle zoekcriteria voor de eerste eigenschapstest in de PropertyTests-collectie weergegeven.

With Application.FileSearch.PropertyTests(1)

myString = "Dit zijn de zoekcriteria: " _

    & " De naam is: " & .Name & ". De voorwaarde is: " _

    & .Condition

If .Value <> "" Then

    myString = myString & ". De waarde is: " & .Value

    If .SecondValue <> "" Then

        myString = myString _

            & ". De tweede waarde is: " _

            & .SecondValue & ", en de verbindingslijn is" _

            & .Connector

    End If

End If

MsgBox myString

End With


FoundFiles, object

Vertegenwoordigt de lijst met bestanden die het resultaat van een zoekbewerking is.

Werken met het FoundFiles-object

Met de eigenschap FoundFiles kunt u het FoundFiles-object als resultaat geven. In het volgende voorbeeld worden het pad en de naam van elk bestand in de lijst met gevonden bestanden weergegeven.

With Application.FileSearch

    For i = 1 To .FoundFiles.Count

        MsgBox .FoundFiles(i)

    Next I

End With

Met FoundFiles(index), waarbij index het indexnummer is, kunt u het pad en de naam van een gevonden bestand weergeven. In het volgende voorbeeld worden het pad en de naam van elk bestand in de verzameling gevonden bestanden weergegeven.

With Application.FileSearch

For i = 1 To .FoundFiles.Count

    MsgBox .FoundFiles(i)

Next I

End With

Met de methode Execute kunt u de zoekbewerking beginnen en het FoundFiles-object bijwerken. In het volgende voorbeeld wordt in de map Mijn documenten gezocht naar alle bestanden waarvan de naam begint met 'Cmd'. De namen van de gevonden bestanden worden vervolgens in oplopende volgorde alfabetisch gesorteerd.

Set fs = Application.FileSearch

With fs

    .LookIn = "C:\Mijn documenten"

    .FileName = "cmd*"

    If .Execute(SortBy:=msoSortbyFileName, _

    SortOrder:=msoSortOrderAscending) > 0 Then

        MsgBox "Er is/zijn " & .FoundFiles.Count & _

            " bestand(en) gevonden."

        For i = 1 To .FoundFiles.Count

            MsgBox .FoundFiles(i)

        Next i

    Else

        MsgBox "Er zijn geen bestanden gevonden."

    End If

End With


DocumentProperties, collectieobject

Een collectie van DocumentProperty-objecten. Elk DocumentProperty-object vertegenwoordigt een ingebouwde of aangepaste eigenschap van een hoofdobjectdocument.

Werken met de DocumentProperties-collectie

Met de eigenschap BuiltinDocumentProperties kunt u een DocumentProperties-collectie als resultaat geven die alle ingebouwde eigenschappen van een hoofdobjectdocument bevat. Met de eigenschap CustomDocumentProperties geeft u een DocumentProperties-collectie als resultaat die alle aangepaste eigenschappen van het document bevat.

Gebruik de methode Add om een nieuwe aangepaste eigenschap te maken en deze toe te voegen aan de DocumentProperties-collectie. U kunt met de methode Add geen ingebouwde documenteigenschappen maken.

Met BuiltinDocumentProperties(index), waarbij index het indexnummer van de ingebouwde documenteigenschap is, kunt u een afzonderlijk DocumentProperty-object als resultaat geven dat een bepaalde ingebouwde documenteigenschap vertegenwoordigt. Met CustomDocumentProperties(index), waarbij index het nummer van de aangepaste documenteigenschap is, geeft u een DocumentProperty-object als resultaat dat een bepaalde aangepaste documenteigenschap vertegenwoordigt.


DocumentProperty, object

Vertegenwoordigt een aangepaste of ingebouwde documenteigenschap van een hoofdobjectdocument. Het DocumentProperty-object maakt deel uit van de DocumentProperties-collectie.

Werken met het DocumentProperty-object

Met BuiltinDocumentProperties(index), waarbij index de naam of het indexnummer van de ingebouwde documenteigenschap is, kunt u een afzonderlijk DocumentProperty-object als resultaat geven dat een bepaalde ingebouwde documenteigenschap vertegenwoordigt. Met CustomDocumentProperties(index), waarbij index de naam of het indexnummer van de aangepaste documenteigenschap is, geeft u een DocumentProperty-object als resultaat dat een bepaalde aangepaste documenteigenschap vertegenwoordigt.

De volgende lijst bevat de namen van alle ingebouwde documenteigenschappen die beschikbaar zijn:

Titel Onderwerp Auteur Trefwoorden Aanvullende informatie Sjabloon Laatste auteur Revisienummer Naam toepassing Laatst afgedrukt op Gemaakt Laatste opslagtijd Totale bewerkingstijd Pagina's	Woorden Tekens Beveiling Categorie Opmaak Manager Bedrijf Bytes Regels Alinea's Dia's Notities Verborgen dia's Multimediafragmenten
Hoofdobjecttoepassingen definiëren niet in alle gevallen een waarde voor iedere ingebouwde documenteigenschap. Als een bepaalde toepassing voor een van de ingebouwde documenteigenschappen geen waarde definieert, treedt een fout op wanneer de eigenschap Value voor die documenteigenschap als resultaat wordt gegeven.


LinkToContent, eigenschap

True als de waarde van de opgegeven aangepaste documenteigenschap gekoppeld is aan de inhoud van het hoofdobjectdocument. False als de waarde statisch is. Boolean, Lezen-schrijven.

Aanvullende informatie

Deze eigenschap is alleen van toepassing op aangepaste documenteigenschappen. Voor ingebouwde documenteigenschappen is de eigenschap altijd False.

Met de eigenschap LinkSource kunt u de bron voor de opgegeven gekoppelde eigenschap instellen. Als de eigenschap LinkSource wordt ingesteld, krijgt de eigenschap LinkToContent de waarde True.


Voorbeeld van de eigenschap LinkToContent

In dit voorbeeld wordt de gekoppelde status van de aangepaste documenteigenschap weergegeven. Het element dp moet een geldig DocumentProperty-object zijn.

Sub DisplayLinkStatus(dp As DocumentProperty)

    Dim stat As String, tf As String

    If dp.LinkToContent Then

        tf = ""

    Else

        tf = "niet "

    End If

    stat = "Deze eigenschap is " & tf & "gekoppeld"

    If dp.LinkToContent Then

        stat = stat + Chr(13) & "De koppelingsbron is " & dp.LinkSource

    End If

    MsgBox stat

End Sub


LinkSource, eigenschap

Geeft de bron van de opgegeven gekoppelde aangepaste documenteigenschap als resultaat of stelt deze bron in. String, Lezen-schrijven.

Aanvullende informatie

Deze eigenschap is alleen van toepassing op aangepaste documenteigenschappen. U kunt de eigenschap niet gebruiken bij ingebouwde documenteigenschappen.

De bron van de opgegeven koppeling wordt gedefinieerd door de hoofdobjecttoepassing.

Als de eigenschap LinkSource wordt ingesteld, krijgt de eigenschap LinkToContent de waarde True.


Voorbeeld van de eigenschap LinkSource

In dit voorbeeld wordt de gekoppelde status van een aangepaste documenteigenschap weergegeven. Het element dp moet een geldig DocumentProperty-object zijn.

Sub DisplayLinkStatus(dp As DocumentProperty)

    Dim stat As String, tf As String

    If dp.LinkToContent Then

        tf = ""

    Else

        tf = "niet "

    End If

    stat = "Deze eigenschap is " & tf & "gekoppeld"

    If dp.LinkToContent Then

        stat = stat + Chr(13) & "De koppelingsbron is " & dp.LinkSource

    End If

    MsgBox stat

End Sub


Value, eigenschap

DocumentProperty-object: Geeft de waarde van de opgegeven documenteigenschap als resultaat of stelt deze waarde in. Variant, Lezen-schrijven.

PropertyTest-object: Geeft de waarde van een eigenschapstest voor een zoekbewerking als resultaat. Variant, Alleen-lezen.

Aanvullende informatie

Als de hoofdobjecttoepassing voor een van de ingebouwde documenteigenschappen geen waarde definieert, treedt een fout op wanneer de eigenschap Value voor die documenteigenschap wordt gelezen.


Voorbeeld van de eigenschap Value

In dit voorbeeld worden de naam, het type en de waarde van een documenteigenschap weergegeven. Het element dp moet een geldig DocumentProperty-object zijn.

Sub DisplayPropertyInfo(dp As DocumentProperty)

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

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

        "naam = " & dp.Name

End Sub

In het volgende voorbeeld wordt de waarde (indien aanwezig) van het zoekcriterium weergegeven in een berichtvenster. Als er geen tweede waarde is, verschijnt er een ander bericht.

With Application.FileSearch.PropertyTests(1)

If .Value = "" Then

   MsgBox "U hebt geen waarde opgegeven."

Else

    MsgBox "U hebt als waarde ingesteld: " _

    & .Value

End If

End With


Office-assistent: overzicht

Microsoft Office 97 introduceert een nieuw type Help-component: de Office-assistent. De Office-assistent, de ballon van de Office-assistent en alle elementen in deze ballon worden via de objecten, eigenschappen en methoden van het Assistant-object bestuurd.

De Office-assistent, de ballon van de Office-assistent en alle programmeerbare objecten in de ballon zijn weergegeven in de volgende afbeelding.

Zie de volgende onderwerpen voor meer informatie over het wijzigen van de Office-assistent, zowel in de ontwerpfase als tijdens het uitvoeren van toepassingen.

Werken met de Office-assistent

Ballonnen maken en wijzigen

Ballonnen wijzigen tijdens runtime


Werken met de Office-assistent

De Office-assistent in uw toepassing kan op specifieke terreinen ondersteuning bieden. Met de besturingselementen in de ballon van de Office-assistent kunt u uw eigen procedures uitvoeren.

Alles wat met de Office-assistent samenhangt wordt in Visual Basic vertegenwoordigd door het Assistant-object en de objecten die het bevat. Een groot deel van de wijzigingen die u tijdens runtime kunt aanbrengen aan de Office-assistent komt overeen met de wijzigingen die u tijdens designtime kunt aanbrengen als u met de rechtermuisknop in de Office-assistent klikt. Iedere optie op het tabblad Opties van het dialoogvenster Office-assistent correspondeert met een eigenschap van de assistent die u tijdens runtime kunt instellen. De eigenschappen in de volgende tabel worden vaak gebruikt om de Office-assistent te wijzigen.

Eigenschap	Beschrijving
Animation (Animatie)	Brengt de Office-assistent tot leven. Sommige animaties zijn permanent, andere slechts eenmalig.
FileName (Bestandsnaam)	Bepaalt de bestandsnaam voor de Office-assistent, met inbegrip van de extensie .act. De bestandsnaam voor de Office-assistent Clippit is bijvoorbeeld Clippit.act.
Name (Naam)	Geeft de naam van de Office-assistent als resultaat. Als u wilt bijhouden welk type Office-assistent de gebruiker selecteert, gebruikt u deze eigenschap.
Visible (Zichtbaar)	Bepaalt of de assistent zichtbaar of verborgen is.
In het volgende voorbeeld wordt Willy geselecteerd als Office-assistent. De assistent wordt zichtbaar gemaakt en krijgt een animatie. Ook worden verschillende Help-eigenschappen ingesteld. Deze maken deel uit van de aangepaste Help-eigenschappen die bij het ontwerpen beschikbaar zijn op het tabblad Opties van het dialoogvenster Office-assistent.

With Assistant

    .FileName = "Willy.act"

    .Animation = msoAnimationBeginSpeaking

    .AssistWithHelp = True

    .GuessHelp = True

    .FeatureTips = False

    .Visible = True

End With

De Office-assistent kan worden gebruikt met negen verschillende acteurs, die u samen met Microsoft Office kunt installeren. Er kan slechts één acteur tegelijk actief zijn. U kunt de gebruiker een assistent laten selecteren tijdens designtime of u selecteert een assistent voor de gebruiker tijdens runtime. Het is niet mogelijk om de geïnstalleerde acteurbestanden te wijzigen. Ook kunnen er in plaats van de geleverde bestanden geen eigen acteurbestanden worden gebruikt.


Ballonnen maken en wijzigen

U kunt de ballon van de Office-assistent gebruiken om informatie voor de gebruiker weer te geven. De informatie in de ballon kan bestaan uit een eenvoudig bericht, een verzoek om meer informatie of een lijst met keuzemogelijkheden. Wijzigingen aan de ballon van de Office-assistent zijn alleen mogelijk tijdens runtime.

De volgende tabel bevat veelgebruikte eigenschappen en methoden waarmee het uiterlijk of de functie van een pas gemaakte (lege) ballon of een bestaande ballon kan worden gewijzigd. De aangebrachte wijzigingen worden van kracht als de methode Show opnieuw wordt gebruikt.

Eigenschap of methode	Beschrijving
Heading (Titel)	Bepaalt de vet weergegeven tekst die boven aan de ballon van de Office-assistent verschijnt.
Text (Tekst)	Bepaalt de tekst die in de ballon van de Office-assistent wordt weergegeven. Deze tekst verschijnt na de titel en vóór eventuele selectievakjes, labels of knoppen.
Labels	Geeft de collectie labels in de ballon als resultaat. De opmaak van de labels wordt bepaald met de eigenschap BalloonType. Labels verschijnen na de ballontekst. De lijst met labels kan worden weergegeven met nummers of met opsommingstekens. De lijst kan ook bestaan uit knoppen. In tegenstelling tot selectievakjes worden keuzes bij een lijst met knoppen al geregistreerd wanneer de gebruiker op een knop klikt.
Checkboxes (Selectievakjes)	Geeft de collectie selectievakjes in de ballon als resultaat. Als de gebruiker in het selectievakje klikt en vervolgens op de juiste knop (bijvoorbeeld OK of Volgende) aan de onderzijde van de ballon klikt, wordt de keuze geregistreerd.
Close (Sluiten)	Sluit en beëindigt een niet-modusgebonden ballon zonder de objectvariabele vrij te geven. De aan de ballon toegewezen objectvariable blijft geldig. U kunt de ballon opnieuw weergegeven of deze wijzigen en later weergeven. De methode Close is alleen te gebruiken bij niet-modusgebonden ballonnen.
Show (Weergeven)	Maakt de ballon en alle objecten daarin zichtbaar voor de gebruiker. Pas deze methode alleen toe bij Balloon-objecten; Assistant-objecten worden weergegeven met de eigenschap Visible.
In het volgende voorbeeld wordt een ballon gemaakt die de gebruiker helpt bij het kiezen van een printer. Er wordt een selectievakje opgenomen waarmee gebruikers de informatie in de ballon kunnen overslaan.

Set bln = Assistant.NewBalloon

With bln

    .Heading = "Instructies voor de keuze van een printer."

    .Text = "Klik op OK als u een printer hebt gekozen."

    lblTxt = "Kies Afdrukken in het menu Bestand."

    .Labels(1).Text = lblTxt

    .Labels(2).Text = "Klik op Instellingen."

    .Labels(3).Text = "Selecteer de naam van de printer."

    .Checkboxes(1).Text = "Sla deze informatie over."

    .BalloonType = msoBalloonTypeNumbers

    .Mode = msoModeModal

    .Button = msoButtonSetOK

    .Show

End With

Ballonnen maken

Als u een nieuwe ballon wilt maken, gebruikt u de eigenschap NewBalloon van het Assistant-object. Een nieuwe ballon is leeg. U kunt de ballon voorzien van een titel met de eigenschap Heading. Tekst voegt u toe aan de ballon met de eigenschap Text. Als de gewenste eigenschappen van de ballon zijn ingesteld, kunt u de ballon weergeven met de methode Show. Aangezien deze methode de ballon weergeeft zoals hij op dat moment is, moet u deze methode pas toepassen als alle eigenschappen zijn ingesteld. In het volgende voorbeeld wordt een nieuwe ballon gemaakt. Vervolgens worden de titel en de ballontekst ingesteld, waarna drie selectievakjes worden toegevoegd die de gebruiker kan in- of uitschakelen.

With Assistant.NewBalloon

    .Button = msoButtonSetOkCancel

    .Heading = "Omzetgegevens per regio"

    .Text = "Kies een regio"

    For i = 1 To 3

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

    Next

    .Show

End With

Meerdere ballonnen beheren

De Office-assistent bezit geen Balloons-collectie. Als u meerdere ballonnen wilt beheren, kunt u voor iedere afzonderlijke ballon die u maakt een objectvariabele instellen en vervolgens naar deze objectvariabele verwijzen. U kunt ook een matrix met Balloon-objectvariabelen maken en aan elk van deze objectvariabelen een ballon toewijzen. In het volgende voorbeeld wordt een matrix gemaakt waaraan drie lege Balloon-objecten worden toegevoegd.

Dim myBalloonArray(3) As Balloon

With Assistant

    For i = 1 To 3

        Set myBalloonArray(i) = .NewBalloon

    Next

End With


Ballonnen wijzigen tijdens runtime

Nadat u een ballon voor de Office-assistent hebt gemaakt, kunt u deze aanpassen door bitmaps, pictogrammen, Windows-metabestanden of Macintosh PICT-bestanden toe te voegen aan de titel of de tekst van de ballon. Wellicht wilt u de ballon ook voorzien van besturingselementen, zoals selectievakjes of knoppen. In dat geval kunt u reageren wanneer de gebruiker op een element in de ballon klikt.

Pictogrammen en bitmaps toevoegen aan ballonnen

U kunt uw toepassing aanpassen door pictogrammen of bitmaps toe te voegen aan de ballonnen van de Office-assistent. U voegt een pictogram toe door een MsoIconType-constante toe te wijzen aan de eigenschap Icon van het Balloon-object. Als u een Windows- of Macintosh-bitmap, een Windows-metabestand of een Macintosh PICT-bestand wilt toevoegen aan de tekst van een ballon, geeft u het type, de locatie en de schaalfactor (indien van toepassing) op voor de eigenschap Text van een titel, tekst, selectievakje of label. In het volgende voorbeeld wordt in de tekst van een ballon een Windows-bitmapbestand ingevoegd.

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

myText1 = "Dit staat voor de afbeelding "

myText2 = " en dit staat na de afbeelding"

Set bln = Assistant.NewBalloon

With bln

    .Heading = "Instructies voor het selecteren van een bitmap."

    .Text = myText1 & myBmp & myText2

    .Show

End With

Besturingselementen aan ballonnen toevoegen

Aan een ballon kunnen twee soorten besturingselementen worden toegevoegd: selectievakjes en knoppen. Een nieuwe ballon bevat standaard vijf onzichtbare selectievakjes. U maakt een afzonderlijk selectievakje zichtbaar door tekst voor dit besturingselement op te geven. Nieuwe ballonnen (mits van het type msoBalloonTypeButtons) bevatten ook vijf onzichtbare labelknoppen, die u op dezelfde wijze zichtbaar maakt als selectievakjes. Probeert u meer dan vijf selectievakjes of meer dan vijf labelknoppen aan een ballon toe te voegen, dan treedt er een fout op.

U wijzigt het uiterlijk van een besturingselement in een ballon door de eigenschap Text van dit besturingselement te wijzigen. Ook de functie van een selectievakje of labelknop kan worden gewijzigd. In dat geval geeft u een andere procedure op die na het inschakelen van het selectievakje of het klikken op de labelknop moet worden uitgevoerd.

In het volgende voorbeeld wordt een ballon met een titel, tekst en drie regiokeuzes gemaakt. Wanneer de gebruiker een selectievakje inschakelt en vervolgens op OK klikt, wordt de bijbehorende procedure uitgevoerd.

With Assistant.NewBalloon

    .Heading = "Omzetgegevens per regio"

    .Text = "Kies uw regio"

    For i = 1 To 3

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

    Next

    .Button = msoButtonSetOkCancel

    .Show

Select Case True

    Case .CheckBoxes(1).Checked

        runregio1

    Case .CheckBoxes(2).Checked

        runregio2

    Case .CheckBoxes(3).Checked

        runregio3

End Select

End With


Opdrachtbalken: overzicht

In Microsoft Office 97 worden menubalken, werkbalken en snelmenu's binnen Visual Basic bestuurd als één type object: opdrachtbalken. Alle volgende elementen worden vertegenwoordigd door CommandBar-objecten:

•	Menubalken, werkbalken en snelmenu's

•	Menu's in menubalken en werkbalken

•	Vervolgmenu's in menu's, vervolgmenu's en snelmenu's

Iedere ingebouwde menu- of werkbalk kan worden gewijzigd. Ook kunt u aangepaste menubalken, werkbalken of snelmenu's maken of wijzigen voor uw Visual Basic-toepassing. U presenteert de voorzieningen van uw toepassing als afzonderlijke knoppen in werkbalken of als groepen opdrachtnamen in menu's. Aangezien menu's en werkbalken beide opdrachtbalken zijn, maken zij gebruik van dezelfde besturingselementen. De werkbalk hieronder, die in een dok is geplaatst, bevat bijvoorbeeld drie knoppen.

Het menu in de volgende afbeelding bevat dezelfde drie opdrachten als de bovenstaande werkbalk. Alleen zijn de opdrachten nu weergegeven als menuopdrachten.

In Microsoft Office 97 kunnen zowel menubalken als werkbalken menu's bevatten. De zwevende werkbalk in de volgende afbeelding bevat drie knoppen en een menu waarin dezelfde drie opdrachten als menuopdrachten zijn weergegeven.

In Visual Basic worden knoppen en menuopdrachten vertegenwoordigd door CommandBarButton-objecten. De pop-up besturingselementen, die menu's of vervolgmenu's weergeven, worden vertegenwoordigd door CommandBarPopup-objecten. De volgende afbeelding bevat twee pop-up besturingselementen, 'Menu' en 'Vervolgmenu' genaamd, die respectievelijk een menu en een vervolgmenu weergeven. Zowel het menu als het vervolgmenu is een uniek CommandBar-object met een eigen set besturingselementen.

In Microsoft Office 97 kunt u alle opdrachtbalken ook voorzien van tekstvakken, keuzelijsten en keuzelijsten met invoervak. Deze drie besturingselementtypen worden in Visual Basic vertegenwoordigd door CommandBarComboBox-objecten.

Opmerking   Opdrachtbalk-besturingselementen en ActiveX-besturingselementen hebben uiterlijke kenmerken en functies gemeen, maar zijn niet gelijk. ActiveX-besturingselementen kunnen niet worden toegevoegd aan opdrachtbalken; opdrachtbalkbesturingselementen kunnen niet worden toegevoegd aan documenten of formulieren.

De ingebouwde opdrachtbalk-besturingselementen in hoofdobjecttoepassingen worden in Visual Basic eveneens vertegenwoordigd door CommandBarButton-, CommandBarPopup- en CommandBarComboBox-objecten. Qua uiterlijk en functies kunnen deze besturingselementen echter complexer zijn dan de besturingselementen die u zelf kunt toevoegen. De locatie en het uiterlijk van ingebouwde besturingselementen kunnen worden gewijzigd, maar hun ingebouwd gedrag is niet veranderbaar. Wel kunt u een eigen macro aan een ingebouwd besturingselement toewijzen om het ingebouwde gedrag volledig te vervangen.


Werken met opdrachtbalken

Als u voor uw Visual Basic-toepassing menubalken, werkbalken en snelmenu's wilt maken of wijzigen, moet u over het algemeen de aanpassingsvoorzieningen van de hoofdobjecttoepassing gebruiken. Wijzigingen aan menubalken, werkbalken en snelmenu's die met de voorzieningen van de hoofdobjecttoepassing zijn gemaakt, worden wijzigingen tijdens 'designtime' genoemd. Zie de on line Help van de hoofdobjecttoepassing voor meer informatie over de manier waarop u met die toepassing wijzigingen tijdens designtime tot stand brengt.

U kunt menubalken, werkbalken en snelmenu's (plus hun onderdelen) toevoegen of wijzigen door het CommandBars-gedeelte van het Microsoft Office-objectmodel in Visual Basic-programmacode te gebruiken. U kunt code schrijven die eenmalig wordt uitgevoerd om werkbalken en menubalken te maken; in feite simuleert de code dat er wijzigingen tijdens designtime tot stand worden gebracht. In sommige hoofdobjecttoepassingen moet u wellicht een combinatie gebruiken van dergelijke Visual Basic-code en de aanpassingsinterface om uw Visual Basic-toepassing te ontwerpen. Hieronder vindt u enkele veelvoorkomende terreinen die een combinatie van code en de interface van de hoofdobjecttoepassing vereisen:

•	Als uw hoofdobjecttoepassing geen interface bevat voor het toevoegen of wijzigen van invoervakken, keuzelijsten of keuzelijsten met invoervak in werkbalken, moet u Visual Basic-code gebruiken om een van deze besturingselementen toe te voegen of te ontwerpen.

•	Als uw hoofdobjecttoepassing wel een interface voor het maken van werkbalken bevat, maar niet is toegerust met een interface voor het maken van menubalken, moet u Visual Basic gebruiken om een nieuwe menubalk te maken. Nadat u de menubalk in Visual Basic hebt gemaakt, kunt u de menu's voor de nieuwe menubalk ontwerpen met de interface van de hoofdobjecttoepassing.

•	Als uw hoofdobjecttoepassing geen voorziening bevat om tijdens de weergave van de aanpassingsinterface aangepaste snelmenu's weer te geven, moet u Visual Basic-code gebruiken om deze snelmenu's te wijzigen.

U kunt ook code schrijven waardoor menubalken en werkbalken in uw Visual Basic-toepassing kunnen worden gewijzigd terwijl de toepassing actief is (u kunt bijvoorbeeld code schrijven om een opdracht in een menubalk onder bepaalde omstandigheden niet-beschikbaar te maken of om knoppen toe te voegen aan een werkbalk als reactie op de acties van een gebruiker). Wijzigingen die via dergelijke code worden aangebracht terwijl uw Visual Basic-toepassing actief is, worden wijzigingen tijdens 'runtime' genoemd.

De volgende onderwerpen bevatten informatie over de manier waarop u tijdens runtime en designtime wijzigingen aan werkbalken en menubalken kunt aanbrengen vanuit Visual Basic-code.

Werkbalken toevoegen en wijzigen

Menubalken en menuopdrachten toevoegen en beheren

Snelmenu's toevoegen en weergeven


Werkbalken toevoegen en wijzigen

Alle hoofdtoepassingen bezitten een uitgebreide interface voor het toevoegen en ontwerpen van aangepaste werkbalken (ingebouwde knoppen toevoegen, macro's als knoppen toevoegen, zelfs pop-up besturingselementen toevoegen). Wijzigingen tijdens designtime via Visual Basic-code betreffen meestal het toevoegen of wijzigen van keuzelijsten met invoervak. Voor het overige beperkt het werken met werkbalken binnen code zich vrijwel geheel tot het aanbrengen van wijzigingen tijdens runtime (stand van knoppen wijzigen, uiterlijk van knoppen wijzigen, actie van knoppen wijzigen, enzovoort).

Werkbalken wijzigen tijdens runtime

Tijdens runtime kunnen er aan werkbalken verschillende wijzigingen worden aangebracht. Eén daarvan betreft het verzetten van de stand van een opdrachtbalkknop in een werkbalk. Iedere knop heeft twee actieve standen: ingedrukt (True) and niet-ingedrukt (False). Als u de stand van een knop wilt wijzigen, moet u de juiste constante voor de eigenschap State gebruiken. Zie de tabel verderop in dit onderwerp voor meer informatie.

Een andere mogelijke wijziging tijdens runtime betreft het uiterlijk of de actie van een knop. Als u het uiterlijk van een knop wilt wijzigen zonder de bijbehorende actie te veranderen, gebruikt u de eigenschappen CopyFace en PasteFace. Deze eigenschappen zijn handig als u het vlak van een bepaalde knop naar het Klembord wilt kopiëren of dit vlak in een andere toepassing wilt importeren om kenmerken ervan te wijzigen. Met de eigenschap PasteFace kunt u het knopvlak vanaf het Klembord op een andere knop plakken.

Als u de actie van een knop wilt wijzigen in een door u ontwikkelde functie, wijst u de naam van de aangepaste procedure toe aan de eigenschap OnAction van de knop.

De volgende tabel bevat veelgebruike eigenschappen en methoden waarmee de stand, het uiterlijk of de actie van knoppen kan worden gewijzigd.

Eigenschap of methode	Beschrijving
CopyFace, PasteFace	Kopieert of plakt de afbeelding op een knopvlak. Met de methode CopyFace kopieert u het vlak van de opgegeven knop naar het Klembord. Met de methode PasteFace plakt u de inhoud van het Klembord op het vlak van de opgegeven knop. De methode PasteFace levert geen resultaat op als het Klembord leeg is. Als de afbeelding op het Klembord te groot is voor het knopvlak, wordt het formaat van de afbeelding niet aangepast. Hoewel het meestal handiger is om een knopvlak tijdens designtime te kopiëren en te plakken, kunt u een knopvlak ook tijdens runtime wijzigen. Bovendien kan er met de eigenschap FaceId een ander ingebouwd knopvlak worden toegewezen aan een knop.
Id	Bepaalt de waarde die de ingebouwde functionaliteit van de knop vertegenwoordigt. Een knop waarmee u geselecteerde tekst naar het Klembord kunt kopiëren heeft bijvoorbeeld de Id-waarde 19.
State	Bepaalt het uiterlijk of de stand van de knop. Kan een van de volgende constanten zijn: msoButtonDown, msoButtonMixed of msoButtonUp.
Style	Bepaalt of het knopvlak zijn pictogram en/of zijn bijschrift weergeeft. Kan een van de volgende constanten zijn: msoButtonAutomatic, msoButtonIcon, msoButtonCaption of msoButtonIconandCaption.
OnAction	Bepaalt welke procedure moet worden uitgevoerd wanneer de gebruiker op een knop klikt, een menu weergeeft of de inhoud van een keuzelijst met invoervak wijzigt.
Visible	Bepaalt of het besturingselement voor de gebruiker zichtbaar of verborgen is.
Enabled	Schakelt een opdrachtbalk in of uit; de naam van een uitgeschakelde opdrachtbalk maakt geen deel uit van de lijst beschikbare opdrachtbalken.
In het volgende voorbeeld wordt ervan uitgegaan dat de eerste twee besturingselementen in de opdrachtbalk AangepasteKnoppen knoppen zijn. De procedure HideThem verbergt de eerste knop en wijst een procedure toe aan de eigenschap OnAction van de tweede knop. Wanneer de procedure van de eigenschap OnAction wordt uitgevoerd, wordt het eerste besturingselement zichtbaar gemaakt en het tweede besturingselement verborgen. Als de tweede knop wordt ingedrukt terwijl de procedure in uitvoering is, wordt de procedure stopgezet. Merk op dat u startBtn en stopBtn moet declareren als globale variabelen.

Sub HideThem()

Set v = CommandBars("AangepasteKnoppen")

Set startBtn = v.Controls(1)

With startBtn

    .Visible = False

    .Caption = "Stop de verwerking"

End With

Set stopBtn = v.Controls(2)

stopKnp.OnAction = "onActionKnoppen"

End Sub

Sub onActionKnoppen()

stopBtn.Visible = False

With startBtn

    .Visible = True

    .Style = msoButtonCaption

End With

Do While startBtn.State <> True

'Continue processing sub

Loop

End Sub

Keuzelijsten met invoervak toevoegen en wijzigen

Invoervakken, keuzelijsten en keuzelijsten met invoervak zijn krachtige besturingselementen die u kunt toevoegen aan werkbalken in uw Visual Basic-toepassing. Het ontwerp van deze besturingselementen vereist bij de meeste hoofdobjecttoepassingen echter het gebruik van Visual Basic-code. U moet in dat geval gebruik maken van de eigenschappen en methoden in de volgende tabel.

Eigenschap of methode	Beschrijving
Add	Voegt een invoervak, keuzelijst of keuzelijst met invoervak toe aan een opdrachtbalk door voor het argument Type een van de volgende MsoControlType-constanten op te geven: msoControlEdit, msoControlDropdown of msoControlComboBox.
AddItem	Voegt een item toe aan de vervolgkeuzelijst in een keuzelijst of keuzelijst met invoervak. U kunt het indexnummer van het nieuwe item opgeven in de bestaande lijst; als dit nummer een hoger getal is dan het aantal items in de lijst, geeft AddItem geen resultaat.
Caption	Bepaalt de label voor een invoervak, keuzelijst of keuzelijst met invoervak. Als u de eigenschap Style instelt op msoComboLabel, wordt de label weergegeven naast het besturingselement.
Style	Bepaalt of het bijschrift voor het opgegeven besturingselement wordt weergegeven naast het besturingselement. Kan een van de volgende constanten zijn: msoComboLabel (de label wordt weergegeven) of msoComboNormal (de label wordt niet weergegeven).
OnAction	Bepaalt welke procedure moet worden uitgevoerd wanneer de gebruiker de inhoud van een invoervak, keuzelijst of keuzelijst met invoervak wijzigt.
In het volgende voorbeeld wordt een keuzelijst met invoervak met de label 'Kwartaal' toegevoegd aan een aangepaste werkbalk. Vervolgens wordt de macro 'SchuifNaarKwartaal' aan het besturingselement toegewezen.

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

    .Add(Type:=msoControlComboBox)

With newCombo

    .AddItem "K1"

    .AddItem "K2"

    .AddItem "K3"

    .AddItem "K4"

    .Style = msoComboNormal

    .OnAction = "SchuifNaarKwartaal"

End With

Als uw toepassing actief is, wordt de aan de eigenschap OnAction toegewezen procedure aangeroepen wanneer de gebruiker het besturingselement wijzigt. In de procedure kunt u met de eigenschap ActionControl van het CommandBars-object nagaan welk besturingselement werd gewijzigd en de gewijzigde waarde als resultaat geven. De eigenschap ListIndex geeft het item als resultaat dat in de keuzelijst met invoervak wordt getypt of geselecteerd.


Menubalken en menuopdrachten toevoegen en beheren

Sommige hoofdobjecttoepassingen bevatten geen voorziening waarmee u nieuwe menubalken kunt maken. In dat geval moet u Visual Basic gebruiken om menubalken te maken. Nadat u de nieuwe menubalk hebt gemaakt, kunt u deze vervolgens aanpassen met de interface van de hoofdobjecttoepassing. U kunt ook doorgaan in Visual Basic.

Menubalken toevoegen tijdens runtime

Tijdens runtime voegt u een menubalk toe aan een toepassing door de methode Add van de CommandBars-collectie te gebruiken en voor het argument MenuBar de waarde True op te geven. In het volgende voorbeeld wordt een niet-verplaatsbare menubalk toegevoegd. De menubalk wordt in een dok aan de rechterzijde van het toepassingsvenster geplaatst. De nieuwe menubalk wordt actief wanneer de gebruiker op ALT drukt.

Set menubar = CommandBars.Add _

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

With menubar

    .Protection = msoBarNoMove

    .Visible = True

End With

Menubalken wijzigen tijdens runtime

Tijdens runtime kunt u zowel menubalken als besturingselementen in menubalken wijzigen. Mogelijke wijzigingen aan menubalken betreffen hun uiterlijk of positie; mogelijke wijzigingen aan besturingselementen in menubalken hangen af van het type besturingselement. De volgende tabel bevat de eigenschappen en methoden die bij het wijzigen van menubalken tijdens runtime het meest worden gebruikt.

Eigenschap of methode	Beschrijving
Add	Voegt een menubalk toe door de methode Add van de CommandBars-collectie te gebruiken en True op te geven als waarde voor het argument MenuBar.
Enabled	Als deze eigenschap de instelling True heeft, kan de gebruiker de opgegeven menubalk zichtbaar maken via Visual Basic-code. Als deze eigenschap op False is ingesteld, kan de gebruiker de menubalk niet zichtbaar maken. De menubalk maakt in dat geval wel deel uit van de lijst beschikbare opdrachtbalken.
Protection	Stelt u in staat de menubalk te beveiligen tegen bepaalde acties van gebruikers. Kan één of meerdere van de volgende constanten zijn: msoBarNoChangeDock, msoBarNoChangeVisible, msoBarNoCustomize, msoBarNoCustomize, msoBarNoHorizontalDock, msoBarNoMove, msoBarNoProtection, msoBarNoResize en msoBarNoVerticalDock.
Position	Bepaalt de positie van de nieuwe menubalk ten opzichte van het toepassingsvenster. Kan een van de volgende constanten zijn: msoBarLeft, msoBarTop, msoBarRight, msoBarBottom, msoBarFloating, msoBarPopup (gebruikt bij het maken van snelmenu's) of msoBarMenuBar (bepaalt een menubalk voor de Macintosh).
Visible	Bepaalt of het besturingselement voor de gebruiker zichtbaar of verborgen is. Als het besturingselement verborgen is, maakt de naam van de menubalk wel deel uit van de lijst beschikbare opdrachtbalken.
In het volgende voorbeeld wordt de actieve menubalk verborgen en vervangen door een tijdelijke menubalk die aan de rechterzijde van het toepassingsvenster in een dok wordt geplaatst en die wordt beveiligd tegen acties van de gebruiker.

Set oldMbar = CommandBars.ActiveMenuBar

Set newMbar = CommandBars.Add _

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

MenuBar:=True, temporary:=True)

With newMbar

    .Visible = True

    .Protection = msoBarNoMove

End With

Menubalken samenvoegen tijdens runtime

Als u een aangepaste menubalk in een toepassing hebt die als invoegtoepassing is bedoeld, wilt u mogelijk opgeven hoe de besturingselementen in de hoofdobjecttoepassing worden vertegenwoordigd. Met de eigenschap OLEMenuGroup van het CommandBarPopup-besturingselement kunt u bepalen op welke wijze menubalken worden samengevoegd.

Als óf de hoofdobjecttoepassing óf de brontoepassing opdrachtbalken niet implementeert, vindt er 'niet-Office-samenvoeging' plaats: de menubalk wordt samengevoegd, evenals alle werkbalken van de brontoepassing, terwijl geen van de werkbalken van de hoofdobjecttoepassing wordt samengevoegd. U kunt ook de eigenschap OLEUsage gebruiken om op te geven hoe menubalken worden samengevoegd.

Als zowel de hoofdobjecttoepassing als de brontoepassing opdrachtbalken implementeert, vindt er 'Office-in-Office-samenvoeging' plaats: de opdrachtbalkbesturingselementen worden ingesloten in de Office-toepassing, besturingselement voor besturingselement. De eigenschappen OLEMenuGroup en OLEUsage zijn alleen relevant voor pop-up besturingselementen in menubalken; menu's worden beschouwd op basis van de categorie van hun menugroep.

Menuopdrachten wijzigen tijdens runtime

De wijzigingen die u kunt aanbrengen in menuopdrachten verschillen per type besturingselement. Knoppen kunt u over het algemeen inschakelen of uitschakelen en weergeven of verbergen. Invoervakken, keuzelijsten en keuzelijsten met invoervak bieden meer mogelijkheden: u kunt opdrachten toevoegen aan of verwijderen uit de lijst en u kunt op basis van de geselecteerde waarde de uitgevoerde actie bepalen. De actie van ieder besturingselement kan worden gewijzigd in een ingebouwde of aangepaste functie.

De volgende tabel bevat eigenschappen en methoden die het meest worden gebruikt als de stand, actie of inhoud van een besturingselement wordt gewijzigd.

Eigenschap of methode	Doel
Add	Voegt een menuopdracht aan een opdrachtbalk toe. Kan een van de volgende MsoControlType-constanten voor het argument Type van een ingebouwd besturingselement zijn: msoControlButton, msoControlEdit, msoControlDropdown of msoControlComboBox.
AddItem	Voegt een item toe aan de vervolgkeuzelijst in een keuzelijst of keuzelijst met invoervak. U kunt het indexnummer van het nieuwe item opgeven in de bestaande lijst; als dit nummer een hoger getal is dan het aantal items in de lijst, levert AddItem geen resultaat op.
Style	Bepaalt of het knopvlak zijn pictogram of zijn bijschrift weergeeft. Kan een van de volgende constanten zijn: msoButtonAutomatic, msoButtonIcon, msoButtonCaption of msoButtonIconandCaption.
OnAction	Bepaalt welke procedure moet worden uitgevoerd wanneer de gebruiker de waarde van het opgegeven besturingselement wijzigt.
Visible	Bepaalt of het besturingselement voor de gebruiker zichtbaar of verborgen is.
In het volgende voorbeeld wordt een tijdelijk pop-up besturingselement met de naam 'Aangepast' toegevoegd aan het einde van de actieve menubalk. Vervolgens wordt een knop die 'Importeren' heet aan het pop-up besturingselement toegevoegd.

Set myMenuBar = CommandBars.ActiveMenuBar

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

newMenu.Caption = "Aangepast"

Set ctrl1 = newMenu.Controls

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

ctrl1.Caption = "Importeren"

ctrl1.TooltipText = "Importeren"

ctrl1.Style = msoButtonCaption


Snelmenu's toevoegen en weergeven

Snelmenu's zijn zwevende opdrachtbalken die de gebruiker kan weergeven door met de rechtermuisknop te klikken. Snelmenu's kunnen dezelfde typen besturingselement bevatten als opdrachtbalken. Die besturingselementen gedragen zich ook als besturingselementen van opdrachtbalken. De meeste toepassingen zijn echter niet uitgerust met een interface waarmee u snelmenu's kunt maken of wijzigen. Daarom moet u uw snelmenu's maken en wijzigen tijdens runtime.

Snelmenu's toevoegen tijdens runtime

Het enige verschil tussen snelmenu's en andere werkbalken is dat u msoBarPopUp moet opgeven als waarde voor Position wanneer u de methode Add gebruikt om een snelmenu te maken. In het volgende voorbeeld wordt een nieuw snelmenu gemaakt waaraan twee besturingselementen (met bijschrift) worden toegevoegd. Vervolgens wordt het nieuwe menu weergegeven met de methode ShowPopup.

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

Set y = x.Controls.Add

With y

    .FaceId = 26

    .Caption = "Maak een analyse van de gegevens"

End With

Set z = x.Controls.Add

With z

    .FaceId = 17

    .Caption = "Maak een grafiek van de gegevens"

End With

x.ShowPopup 200, 200

Snelmenu's weergeven

Snelmenu's worden weergegeven met de methode ShowPopup, zoals u in het voorbeeld hierboven kunt zien.

Als de hoofdobjecttoepassing het toewijzen van gebeurtenisprocedures aan acties van de gebruiker ondersteunt, kunt u een snelmenu weergeven als reactie op een gebeurtenis, zoals klikken met de rechtermuisknop. Gebeurtenisprocedures worden echter niet door alle toepassingen ondersteund. Stel aan de hand van de documentatie bij de hoofdobjecttoepassing vast of deze toepassing gebeurtenisprocedures ondersteunt.

Snelmenu's wijzigen tijdens runtime

Wijzigingen in snelmenu's moeten tijdens runtime tot stand worden gebracht. Over het algemeen beperken deze wijzigingen zich tot het uiterlijk of de actie van de besturingselementen in het menu. Zie Menubalken en menuopdrachten toevoegen en beheren voor meer informatie over het toevoegen en beheren van menuopdrachten.


Objecten van Microsoft Office


Een object uit een collectie als resultaat geven

De eigenschap Item geeft een afzonderlijk object uit een collectie als resultaat. In het volgende voorbeeld wordt de variabele cmdbar toegewezen aan een CommandBar-object dat de eerste opdrachtbalk in de collectie vertegenwoordigt.

Set cmdbar = CommandBars.Item(1)

De eigenschap Item is de standaardeigenschap van de meeste collecties, zodat u de bovenstaande instructie compacter kunt maken door het sleutelwoord Item weg te laten.

Set cmdbar = CommandBars(1)

Zoek voor meer informatie over een bepaalde collectie naar het Help-onderwerp over de collectie of naar het Help-onderwerp over de eigenschap Item voor de collectie.


Help-onderwerp niet beschikbaar

Het Help-onderwerp kan niet worden weergegeven omdat de Help-informatie bij Visual Basic for Applications niet is gevonden of geïnstalleerd.

De Help-informatie bij Visual Basic for Applications installeren

1.	Start het programma Setup van Microsoft Office 97 en klik op Toevoegen/Verwijderen.

2.	Klik op Microsoft Access, Microsoft Excel, Microsoft PowerPoint of Microsoft Word en klik vervolgens op Optie wijzigen.

3.	Klik op Help-onderwerpen en klik vervolgens op Optie wijzigen.

4.	Zorg ervoor dat de selectievakjes On line Help voor Visual Basic en VBA-gids (Microsoft Access) zijn ingeschakeld.

5.	Vervolg de installatie.


ActivateWizard, methode

Hervat of onderbreekt een wizardsessie met de Office-assistent.

Opmerking   Deze methode wordt gebruikt als onderdeel van het proces dat met de methode StartWizard in werking wordt gesteld.

Syntaxis

expressie.ActivateWizard(WizardID, Act, Animation)

expressie   Vereist. Een expressie die een Assistant-object als resultaat geeft.

WizardID   Long, vereist. Een unieke getalsaanduiding voor de wizardsessie met de Office-assistent die het resultaat is van de methode StartWizard.

Act   Variant, vereist. Geeft aan op welke wijze de wizardsessie met de Office-assistent verandert. Kan een van de volgende msoWizardActTypes-constanten zijn: msoWizardActActive, msoWizardActInactive, msoWizardActResume of msoWizardActSuspend.

Animation   Variant, optioneel. Het type animatie dat de Office-assistent uitvoert wanneer de wizardsessie wordt hervat of onderbroken.


Voorbeeld van de methode ActivateWizard

In dit voorbeeld wordt de wizardsessie met de Office-assistent, gestart met de methode StartWizard, onderbroken. De variabele helpForWiz werd ingesteld op de resultaatwaarde van de methode StartWizard.

Assistant.ActivateWizard WizardID:=helpForWiz, _

   Act:=msoWizardActSuspend, Animation:=msoAnimationGoodbye


Close, methode

Sluit de actieve niet-modusgebonden ballon.

Syntaxis

expressie.Close

expressie   Vereist. Een expressie die een Balloon-object als resultaat geeft.


Voorbeeld van de methode Close

In dit voorbeeld wordt een ballon weergegeven die instructies voor het selecteren van een printer bevat. Als de gebruiker op de knop OK in de ballon klikt, wordt de procedure Printerkeuze uitgevoerd en wordt de ballon gesloten.

Sub shar()

Set bln = Assistant.NewBalloon

With bln

    .Heading = "Instructies voor de keuze van een printer."

    .Text = "Klik op OK wanneer u een printer hebt gekozen."

    .Labels(1).Text = "Kies Bestand, Afdrukken."

    .Labels(2).Text = "Klik op Instellingen."

    .Labels(3).Text = "Selecteer de naam van de 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


EndWizard, methode

Sluit het venster van de Office-assistent en geeft de variabele af die een unieke aanduiding vormt voor de wizardsessie.

Opmerking   Met deze methode voltooit u het proces dat met de methode StartWizard in werking is gesteld.

Syntaxis

expressie.EndWizard(WizardID, varfSuccess, Animation)

expressie    Vereist. Een expressie die een Assistant-object als resultaat geeft.

WizardID   Long, vereist. Een unieke getalsaanduiding voor de wizardsessie met de Office-assistent die het resultaat is van de methode StartWizard.

varfSuccess   Boolean, vereist. Wanneer de methode resultaat geeft, is dit argument True indien de gebruiker de wizard met succes voltooit.

Animation   Variant, optioneel. Het type animatie dat de Office-assistent uitvoert wanneer de wizardsessie wordt beëindigd.


Voorbeeld van de methode EndWizard

In dit voorbeeld wordt de Office-assistent gesloten na een wizardsessie die de gebruiker met succes heeft voltooid. Aan de variabele helpForWiz werd de resultaatwaarde van de methode StartWizard toegekend.

Assistant.EndWizard WizardId:=helpForWiz, _

    varfSuccess:=True, Animation:=msoAnimationGoodbye


StartWizard, methode

Start de Office-assistent als onderdeel van een proces dat aanvullende uitleg over bestaande aangepaste wizardschermen verstrekt. Geeft een getal als resultaat dat een unieke aanduiding voor de wizardsessie met de Office-assistent vormt.

Syntaxis

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

expressie     Een expressie die een Assistant-object als resultaat geeft.

On   Boolean, vereist. De lokale status van de wizard. Wanneer de methode resultaat geeft, is dit argument True als de gebruiker hulp bij de wizard vraagt nadat de standaardballon hulp heeft aangeboden.

Callback   Vereist, String. De naam van de uit te voeren callback-procedure.

PrivateX   Long, vereist. De unieke aanduiding voor het ballonscherm van de Office-assistent dat de callback-procedure in gang zet.

Animation   Variant, optioneel. Het type animatie dat wordt uitgevoerd wanneer de Office-assistent verschijnt. De standaardwaarde is msoAnimationGetWizardy.

CustomTeaser   Variant, optioneel. True als de standaardballon die de gebruiker hulp aanbiedt, moet worden vervangen door een aangepaste ballon.

Top, Left, Bottom, Right   Variant, optioneel. De positie van de hoeken (in punten en ten opzichte van het scherm) van het aangepaste wizardscherm die de Office-assistent niet zal bedekken wanneer de gebruiker de Office-assistent start of naar de Office-assistent overschakelt.

Aanvullende informatie

Bij gebruik van de methode StartWizard hebt u de eigenschap Visible niet nodig om de Office-assistent weer te geven.


Voorbeeld van de methode StartWizard

In dit voorbeeld wordt de Office-assistent gestart als onderdeel van een proces dat aanvullende uitleg over bestaande aangepaste wizards verstrekt. Als de gebruiker om extra hulp verzoekt door op de selectie in de ballon te klikken, wordt de callback-procedure uitgevoerd. De variabele helpForWiz wordt ingesteld op de resultaatwaarde van de methode StartWizard.

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

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

    Animation:=msoAnimationGetAttentionMajor, _

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

    Bottom:=50, Right:=200)


AssistWithAlerts, eigenschap

True als de ballon van de Office-assistent waarschuwingsberichten van de toepassing weergeeft wanneer de Office-assistent zichtbaar is. Boolean, Lezen-schrijven.

Aanvullende informatie

De eigenschap AssistWithAlerts correspondeert met de optie Waarschuwingen weergeven. U vindt deze optie onder Mogelijkheden van assistent op het tabblad Opties van het dialoogvenster Office-assistent.

Als deze eigenschap False is, geeft de toepassing waarschuwingsberichten weer in dialoogvensters zonder de Office-assistent.


Voorbeeld van de eigenschap AssistWithAlerts

In dit voorbeeld wordt ingesteld dat de Office-assistent verschijnt wanneer een toepassing een waarschuwingsbericht genereert.

With Assistant

    .AssistWithHelp = True

    .AssistWithAlerts = True

    .Animation = msoAnimationGreeting

    .Visible = True

End With


AssistWithHelp, eigenschap

True als de Office-assistent wordt weergegeven wanneer de gebruiker op F1 drukt voor Help. Boolean, Lezen-schrijven.

Aanvullende informatie

De eigenschap AssistWithHelp correspondeert met de optie Reageren op F1. U vindt deze optie onder Mogelijkheden van assistent op het tabblad Opties van het dialoogvenster Office-assistent.

Als deze eigenschap op False is ingesteld, wordt in plaats van de Office-assistent het dialoogvenster Help-onderwerpen weergegeven.


Voorbeeld van de eigenschap AssistWithHelp

In dit voorbeeld wordt de Office-assistent weergegeven wanneer de gebruiker op F1 drukt voor Help.

With Assistant

    .AssistWithHelp = True

    .AssistWithAlerts = True

    .Animation = msoAnimationGreeting

    .Visible = True

End With


Callback, eigenschap

Stelt de naam in van de procedure die moet worden uitgevoerd wanneer een niet-modusgebonden ballon wordt weergegeven. String, Lezen-schrijven.

Opmerking   Als u een macro opgeeft die zich achter een Excel-werkblad bevindt, moet u de naam van het werkblad opnemen in de verwijzing, bijvoorbeeld: "Blad1.mijnCallback" in plaats van "mijnCallback".


Voorbeeld van de eigenschap Callback

In dit voorbeeld wordt een ballon weergegeven waarin u uit drie printers kunt kiezen. Als de gebruiker op de knop OK in de ballon klikt, wordt de procedure ProcessPrinter uitgevoerd en wordt de ballon gesloten.

Sub shar()

Set bln = Assistant.NewBalloon

With bln

    .Heading = "Selecteer een printer."

    .Text = "Klik op OK zodra u een printer hebt geselecteerd."

    .Labels(1).Text = "Netwerkprinter"

    .Labels(2).Text = "Lokale printer"

    .Labels(3).Text = "Lokale kleurenprinter"

    .BalloonType = msoBalloonTypeButtons

    .Mode = msoModeModeless

    .Callback = "ProcessPrinter"

    .Button = msoButtonSetOK

    .Show

End With

End Sub

(Aan elke procedure die is vastgelegd in de eigenschap Callback, worden drie argumenten doorgegeven: de ballon die de procedure heeft geactiveerd, de resultaatwaarde van de knop waarop de gebruiker heeft gedrukt, en een integer die de unieke identificatie vormt voor de ballon die de procedure heeft opgeroepen.)

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


Private, eigenschap

Geeft een integer als resultaat of stelt een integer in die een unieke aanduiding vormt voor de ballon van de Office-assistent waarmee de callback-procedure in werking wordt gesteld. Long, Lezen-schrijven.

Aanvullende informatie

Deze eigenschap kan handig zijn als u dezelfde callback-procedure in diverse omstandigheden gebruikt.


Voorbeeld van de eigenschap Private

In dit voorbeeld wordt de eigenschap Private ingesteld op 129, waarmee de ballon van de Office-assistent een unieke aanduiding toegewezen krijgt. De callback-procedure mijnCallback wordt in uiteenlopende omstandigheden gebruikt. Met de integer 129 beschikt de huidige omstandigheid over een unieke identificatie.

With myBalloon

    .Heading = "Selecteer een gebied"

    .Private = 129

    .Callback = "myCallback"

    .Show

End With


SetAvoidRectangle, methode

Voorkomt dat de ballon van de Office-assistent wordt weergegeven in een opgegeven gedeelte van het scherm.

Syntaxis

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

expressie   Vereist. Een expressie die een Assistant-object als resultaat geeft.

Left, Top, Right, Bottom   Long, vereist. De coördinaten (in punten en ten opzichte van het scherm) die het gedeelte van het scherm aangeven dat de Office-assistent niet zal bedekken.

Aanvullende informatie

Met deze eigenschap kan worden voorkomen dat de ballon van de Office-assistent aangepaste dialoogvensters en wizards aan het oog onttrekt.


Voorbeeld van de methode SetAvoidRectangle

In dit voorbeeld wordt voorkomen dat de ballon van de Office-assistent (de variabele myBalloon) in het schermgedeelte verschijnt dat met coördinaten (in pixels) wordt aangegeven.

With myBalloon

    .SetAvoidRectangle 300, 250, 700, 500

    .Show

End With


ResetTips, methode

Stelt de toepassingstips die worden weergegeven in de ballon van de Office-assistent op de beginwaarden in.

Syntaxis

expressie.ResetTips

expressie   Vereist. Een expressie die een Assistant-object als resultaat geeft.

Aanvullende informatie

De methode ResetTips correspondeert met de knop Mijn tips herstellen op het tabblad Opties van het dialoogvenster Office-assistent.


Voorbeeld van de methode ResetTips

In dit voorbeeld worden de toepassingstips op de beginwaarden ingesteld voordat de Office-assistent zichtbaar wordt gemaakt. Er verschijnt een bevestigingsballon met de mededeling dat de toepassingstips op de beginwaarden zijn ingesteld.

With Application.Assistant

    .Visible = True

    .Animation = msoAnimationGreeting

    .ResetTips

End With


DisplayKeysInTooltips, eigenschap

Deze eigenschap is True als sneltoetsen worden weergegeven in de Knopinfo van elk besturingselement op een opdrachtbalk. Boolean, Lezen-schrijven.

Aanvullende informatie

Als u sneltoetsen wilt weergeven in Knopinfo, moet u ook de eigenschap DisplayTooltips instellen op True.


Voorbeeld van de eigenschap DisplayKeysInTooltips

Dit voorbeeld stelt de opties in van alle opdrachtbalken in Microsoft Office.

With CommandBars

    .LargeButtons = True

    .DisplayTooltips = True

    .DisplayKeysInTooltips = True

    .MenuAnimationStyle = msoMenuAnimationUnfold

End With


MenuAnimationStyle, eigenschap

Met deze eigenschap wordt de manier waarop de opgegeven opdrachtbalk wordt geanimeerd, als resultaat gegeven of ingesteld. Dit kan een van de volgende msoMenuAnimation-typen zijn: msoMenuAnimationNone, msoMenuAnimationRandom, msoMenuAnimationUnfold of msoMenuAnimationSlide. Lezen-schrijven.


Voorbeeld van de eigenschap MenuAnimationStyle

Dit voorbeeld stelt de opties in van alle opdrachtbalken in Microsoft Office.

With CommandBars

    .LargeButtons = True

    .DisplayTooltips = True

    .DisplayKeysInTooltips = True

    .MenuAnimationStyle = msoMenuAnimationUnfold

End With


ActionControl, eigenschap

Deze eigenschap geeft als resultaat het CommandBarControl-object waarvan de eigenschap OnAction is ingesteld op de procedure die wordt uitgevoerd. Als de procedure die wordt uitgevoerd, niet is gestart door een besturingselement van een opdrachtbalk, geeft deze eigenschap Nothing als resultaat. Alleen-lezen.


Voorbeeld van de eigenschap ActionControl

Dit voorbeeld schakelt het besturingselement van een opdrachtbalk in dat de procedure heeft gestart die wordt uitgevoerd, terwijl een aantal instructies wordt uitgevoerd. Daarna wordt het besturingselement ingeschakeld.

Set theCtrl = CommandBars.ActionControl

theCtrl.Enabled = False

    'insert OnAction process here

theCtrl.Enabled = True


Context, eigenschap

Met deze eigenschap wordt een tekenreeks als resultaat gegeven of ingesteld die bepaalt waar de opgegeven opdrachtbalk wordt opgeslagen. De tekenreeks wordt gedefinieerd en geïnterpreteerd door de toepassing. String, Lezen-schrijven.

Aanvullende informatie

U kunt de eigenschap Context alleen instellen voor aangepaste opdrachtbalken. Deze eigenschap mislukt als de toepassing de contextreeks niet herkent of als de toepassing het via programmeren wijzigen van contextreeksen niet ondersteunt.


Author, eigenschap

Alleen Macintosh. Met deze eigenschap wordt een tekenreeks als resultaat gegeven of ingesteld (maximaal 80 tekens) die de auteur voorstelt die is opgenomen in de eigenschappen van het te zoeken document. String, Lezen-schrijven.


DateCreatedFrom, eigenschap

Alleen Macintosh. Met deze eigenschap wordt de datum waarop het te zoeken bestand werd gemaakt als resultaat gegeven of ingesteld; dit wordt de ondergrens voor de zoekactie. Variant, Lezen-schrijven.

Aanvullende informatie

U kunt de eigenschap DateCreatedTo gebruiken om een bovengrens in te stellen voor de zoekactie. Als u een zoekactie wilt uitvoeren zonder bovengrens, hoeft u bij deze eigenschap niets in te vullen.


DateCreatedTo, eigenschap

Alleen Macintosh. Met deze eigenschap wordt de datum waarop het te zoeken bestand werd gemaakt als resultaat gegeven of ingesteld; dit wordt de bovengrens voor de zoekactie. Variant, Lezen-schrijven.


DateSavedFrom, eigenschap

Alleen Macintosh. Met deze eigenschap wordt de datum waarop het te zoeken bestand voor het laatst werd opgeslagen als resultaat gegeven of ingesteld; dit wordt de ondergrens voor de zoekactie. Variant, Lezen-schrijven.

Aanvullende informatie

U kunt de eigenschap DateSavedTo gebruiken om een bovengrens in te stellen voor de zoekactie. Als u een zoekactie wilt uitvoeren zonder bovengrens, hoeft u bij deze eigenschap niets in te vullen.


DateSavedTo, eigenschap

Alleen Macintosh. Met deze eigenschap wordt de datum waarop het te zoeken bestand voor het laatst werd opgeslagen als resultaat gegeven of ingesteld; dit wordt de bovengrens voor de zoekactie. Variant, Lezen-schrijven.


Keywords, eigenschap

Alleen Macintosh. Met deze eigenschap wordt een tekenreeks als resultaat gegeven of ingesteld (maximaal 80 tekens) die de trefwoorden voorstelt die zijn opgenomen in de eigenschappen van het te zoeken document. String, Lezen-schrijven.


ListBy, eigenschap

Alleen Macintosh. Met deze eigenschap wordt de manier waarop de gevonden bestanden worden weergegeven in het resultatenvenster als resultaat gegeven of ingesteld. De volgende twee msoFileFindListBy-constanten zijn mogelijk: msoFileFindListByName (waarbij de gevonden bestanden worden weergegeven op basis van de bijbehorende systeembestandsnaam) en msoFileFindListByTitle (waarbij de gevonden bestanden worden weergegeven op basis van de bijbehorende titeleigenschap). Lezen-schrijven.


Load, methode

Alleen Macintosh. Deze methode laadt de opgegeven zoekquery in het geheugen.

Syntaxis

expressie.Load(bstrQueryName)

expressie   Vereist. Een expressie die een FileFind-object als resultaat geeft.

bstrQueryName   String, vereist. Een tekenreeks van maximaal 31 tekens die de naam aanduidt van de zoekcriteria die moeten worden geladen.

Aanvullende informatie

Met de methode Execute kunt u een geladen query laten uitvoeren.


MatchCase, eigenschap

Alleen Macintosh. Deze eigenschap is True als de uit te voeren zoekactie naar bestanden hoofdlettergevoelig is. Boolean, Lezen-schrijven.


Options, eigenschap

Alleen Macintosh. Met deze eigenschap wordt de manier van weergave van de laatste groep gevonden bestanden (in verhouding tot de lijst met voorgaande zoekresultaten) als resultaat gegeven of ingesteld. De volgende msoFileFindOptions-constanten zijn mogelijk: msoFileFindOptionsNew, msoFileFindOptionsAdd en msoFileFindOptionsWithin. Variant, Lezen-schrijven.


PatternMatch, eigenschap

Deze eigenschap is True als de zoekactie naar bestanden die overeenstemmen met de tekenreeks van de eigenschap Text wordt uitgebreid met de jokertekens * (asterisk) en ? (vraagteken). Alleen Macintosh. Boolean, Lezen-schrijven.

Aanvullende informatie

Het vraagteken vertegenwoordigt elk willekeurig teken. Typ bijvoorbeeld gr?s wanneer u alle bestanden wilt weergeven waarin minimaal één keer "gros" of "gras" voorkomt.

De asterisk vertegenwoordigt een willekeurig aantal tekens. Typ bijvoorbeeld San* wanneer u alle bestanden wilt weergeven waarin minimaal één woord voorkomt dat begint met "San".


Results, eigenschap

Alleen Macintosh. Deze eigenschap geeft het FileFindResults-object als resultaat. Alleen-lezen.


Save, methode

Alleen Macintosh. Deze methode slaat de opgegeven zoekcriteria op.

Syntaxis

expressie.Save(bstrQueryName)

expressie Vereist. Een expressie die een FileFind-object als resultaat geeft.

bstrQueryName String, vereist. Een tekenreeks (maximaal 31 tekens) die de naam aanduidt van de zoekcriteria die moeten worden opgeslagen.


SavedBy, eigenschap

Alleen Macintosh. Met deze eigenschap wordt een tekenreeks (maximaal 80 tekens) als resultaat gegeven of ingesteld die de naam voorstelt van de gebruiker die het te zoeken bestand voor het laatst heeft opgeslagen. String, Lezen-schrijven.


SearchPath, eigenschap

Alleen Macintosh. Met deze eigenschap wordt de map die tijdens de opgegeven zoekactie moet worden gezocht als resultaat gegeven of ingesteld. String, Lezen-schrijven.

Aanvullende informatie

Het zoekpad mag maximaal 255 tekens lang zijn.


SelectedFile, eigenschap

Alleen Macintosh. Met deze eigenschap wordt een getal als resultaat gegeven of ingesteld als aanduiding van het gemarkeerde bestand in het dialoogvenster Zoek bestand. Integer, Lezen-schrijven.

Aanvullende informatie

Met de methode Show kunt u het dialoogvenster Zoek bestand weergeven.


SortBy, eigenschap

Alleen Macintosh. Met deze eigenschap wordt de methode als resultaat gegeven of ingesteld waarmee de tijdens een zoekactie gevonden bestanden moeten worden gesorteerd. De volgende msoFileFindSortBy-constanten zijn mogelijk: msoFileFindSortByAuthor, msoFileFindSortByDateCreated, msoFileFindSortByDateSaved, msoFileFindSortByFileName, msoFileFindSortByLastSavedBy, msoFileFindSortBySize en msoFileFindSortByTitle. Lezen-schrijven.


SubDir, eigenschap

Alleen Macintosh. Deze eigenschap is True als de opgegeven zoekactie alle submappen omvat van de map die bij de eigenschap SearchPath werd opgegeven. Boolean, Lezen-schrijven.


Subject, eigenschap

Alleen Macintosh. Met deze eigenschap wordt een tekenreeks (maximaal 80 tekens) als resultaat gegeven of ingesteld die het onderwerp voorstelt dat is opgenomen in de eigenschappen van het te zoeken bestand. String, Lezen-schrijven.


Title, eigenschap

Alleen Macintosh. Met deze eigenschap wordt een tekenreeks (maximaal 80 tekens) als resultaat gegeven of ingesteld die de documenttitel voorstelt die is opgenomen in de eigenschappen van het te zoeken bestand. String, Lezen-schrijven.


View, eigenschap

Alleen Macintosh. Met deze eigenschap wordt de stijl als resultaat gegeven of ingesteld die wordt gebruikt om informatie weer te geven over de gevonden bestanden in het dialoogvenster. De volgende msoFileFindView-constanten zijn mogelijk: msoFileFindViewFileInfo, msoFileFindViewPreview en msoFileFindViewSummary. Variant, Alleen-lezen.


FileFind, object

Dit object vertegenwoordigt de functionaliteit van het dialoogvenster Zoek bestand.

Gebruik van het FileFind-object

Gebruik de eigenschap FileFind wanneer u wilt dat het FileFind-object als resultaat wordt weergegeven.


FileFindResults, object

Dit object vertegenwoordigt de lijst met bestanden die na een zoekactie als resultaat wordt weergegeven.

Gebruik van het FileFindResults-object

Gebruik de eigenschap Results wanneer u wilt dat het FileFindResults-object als resultaat wordt weergegeven.

Gebruik FileFindResults(item) - waarbij item staat voor het indexnummer - wanneer u wilt dat het pad en de bestandsnaam van een gevonden bestand als resultaat worden weergegeven.

Gebruik de methode Execute als u de zoekactie naar een bestand wilt starten en de lijst wilt bijwerken.

Gebruik de eigenschap View als u de lijst met gevonden bestanden in een dialoogvenster wilt weergeven.


Programma-id's voor OLE (ActiveX-besturingselementen)

U gebruikt Programma-id's voor OLE (soms prog-id's genoemd) om Automatiseringsobjecten te maken. De volgende tabel geeft de Programma-id's voor OLE weer waarmee u de bijbehorende ActiveX-besturingselementen kunt maken.

Gebruik deze programma-id	Om dit object te maken
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


Type, eigenschap

DocumentProperty-object: Met dit object wordt het documenteigenschapstype als resultaat gegeven of ingesteld. Dit kan een van de volgende MsoDocProperties-constanten zijn: msoPropertyTypeBoolean, msoPropertyTypeDate, msoPropertyTypeFloat, msoPropertyTypeNumber of msoPropertyTypeString. Alleen-lezen voor ingebouwde documenteigenschappen; lezen/schrijven voor aangepaste documenteigenschappen.

CommandBar-object: Met dit object wordt het type opdrachtbalk als resultaat gegeven. Dit kan een van de volgende MsoBarType-constanten zijn: msoBarTypeNormal, msoBarTypeMenuBar of msoBarTypePopup. Long, Alleen-lezen.

CommandBarControl-object: Met dit object wordt het type van het besturingselement van een opdrachtbalk als resultaat gegeven. Long, Alleen-lezen.

Dit kan een van de volgende MsoControlType-constanten zijn.

Constante	Type besturingselement
msoControlButton
msoControlButtonDropdown
msoControlButtonPopup
msoControlComboBox
msoControlCustom	Gereserveerd voor toekomstig gebruik.
msoControlDropdown
msoControlEdit
msoControlExpandingGrid
msoControlGauge
msoControlGenericDropdown	Gereserveerd voor toekomstig gebruik.
msoControlGraphicCombo
msoControlGraphicDropdown
msoControlGraphicPopup	Gereserveerd voor toekomstig gebruik.
msoControlGrid
msoControlLabel	Gereserveerd voor toekomstig gebruik.
msoControlOCXDropDown
msoControlPopup
msoControlSplitButtonMRUPopup
msoControlSplitButtonPopup
msoControlSplitDropdown
msoControlSplitExpandingGrid	Gereserveerd voor toekomstig gebruik.


Voorbeeld van de eigenschap Type

Dit voorbeeld zoekt het eerste besturingselement met de Tag-waarde 'Wijzig deze balk'. Als het besturingselement met deze Tag-waarde  een knop op een opdrachtbalk is, wordt een nieuwe keuzelijst met invoervak toegevoegd aan het einde van de opdrachtbalk en wordt de Tag-waarde van de gevonden knop gewijzigd in 'Gewijzigd'.

Set ctrl = CommandBars _

    .FindControl(Tag:="Wijzig deze balk")

If ctrl Is Nothing Then Goto notFound

If ctrl.Type = msoControlButton Then

    Set br = ctrl.Parent

br.Controls.Add(Type:=msoControlComboBox)

    ctrl.Tag = "Gewijzigd"

End If

Dit voorbeeld geeft de naam, het type en de waarde van een documenteigenschap weer. U moet een geldig DocumentProperty-object aan de procedure doorgeven.

Sub DisplayPropertyInfo(dp As DocumentProperty)

    MsgBox "waarde = " & de.Value & Chr(13) & _

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

        "naam = " & dp.Name

End Sub


Visible, eigenschap

CommandBar- en CommandBarControl-object: True als de opgegeven opdrachtbalk of het opgegeven besturingselement op een opdrachtbalk zichtbaar is. Boolean, Lezen-schrijven.

Assistant-object: True als de Office-assistent zichtbaar is. Boolean, Lezen-schrijven.

Aanvullende informatie

De eigenschap Visible van nieuw gemaakte aangepaste opdrachtbalken is standaard False.

De eigenschap Enabled van een opdrachtbalk moet op True worden ingesteld voordat de eigenschap Visible op True wordt ingesteld.


Voorbeeld van de eigenschap Visible

Dit voorbeeld doorloopt de collectie opdrachtbalken en zoekt de opdrachtbalk Formulieren. Als de opdrachtbalk Formulieren wordt gevonden, wordt de opdrachtbalk zichtbaar gemaakt en wordt de dokstatus beveiligd.

foundFlag = False

For Each cmdbar In CommandBars

    If cmdbar.Name = "Formulieren" Then

        cmdbar.Protection = msoBarNoChangeDock

        cmdbar.Visible = True

        foundFlag = True

    End If

Next

If Not foundFlag Then

    MsgBox "De opdrachtbalk 'Formulieren' bevindt zich niet in de collectie."

End If

Dit voorbeeld maakt de Office-assistent zichtbaar en stelt de animatie van de Office-assistent in.

With Application.Assistant

    .Visible = True

    .Sounds = True

    .Animation = msoAnimationBeginSpeaking

End With


Width, eigenschap

Met deze eigenschap wordt de breedte (in pixels) als resultaat gegeven of ingesteld van de opgegeven opdrachtbalk of het opgegeven besturingselement op een opdrachtbalk. Long, Lezen-schrijven.


Voorbeeld van de eigenschap Width

Dit voorbeeld voegt een aangepast besturingselement toe vóór het tweede besturingselement op de opdrachtbalk 'Aangepast'. Dit voorbeeld stelt de hoogte van het aangepaste besturingselement in op de helft van de hoogte van de opdrachtbalk en stelt de breedte in op vijftig pixels.

Set myBar = cmdbar.CommandBars("Aangepast")

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


Application, eigenschap

Deze eigenschap geeft als resultaat een Application-object dat de containertoepassing vertegenwoordigt van het opgegeven object (u kunt deze eigenschap met een Automation-object gebruiken om de containertoepassing van dat object als resultaat te geven). Alleen-lezen.


Voorbeeld van de eigenschap Application

Dit voorbeeld geeft als resultaat de toepassing waarin de opdrachtbalk 'Documenten' is gemaakt.

Set Appobj = CommandBars("Documenten").Application


Creator, eigenschap

Deze eigenschap geeft als resultaat de code van vier tekens van de toepassing waarin het opgegeven object is gemaakt. Alleen Macintosh. Long, Lezen-schrijven.


Parent, eigenschap

Deze eigenschap geeft als resultaat het hoofdobject van het opgegeven object. Alleen-lezen.


Voorbeeld van de eigenschap Parent

Dit voorbeeld geeft de naam van de hoofdtoepassing van het hoofdobject van een documenteigenschap weer. U moet een geldig DocumentProperty-object aan de procedure doorgeven.

Sub DisplayParent(dp as DocumentProperty)

    MsgBox dp.Parent.Name

End Sub


ShortcutText, eigenschap

Met deze eigenschap wordt de sneltoetstekst als resultaat gegeven of ingesteld die wordt weergegeven naast het opgegeven knopbesturingselement als de knop wordt weergegeven in een menu, een vervolgmenu of een snelmenu. String, Lezen-schrijven.

Aanvullende informatie

U kunt deze eigenschap alleen instellen voor opdrachtbalkknoppen waaraan een OnAction-macro is gekoppeld.


Voorbeeld van de eigenschap ShortcutText

Dit voorbeeld plaatst een grafiekknop op de opdrachtbalk 'Aangepast' en wijst de macro OnAction aan de knop toe met een sneltoets en een bijschrift.

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

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

With myControl

    .OnAction = "MijnSub"

    .Caption = "Grafiekresultaat"

    .Control.ShortcutText = "CTRL+SHIFT+M"

End With


Height, eigenschap

Met deze eigenschap wordt de hoogte in pixels ingesteld of als resultaat gegeven van de opgegeven opdrachtbalk of van het opgegeven besturingselement op een opdrachtbalk. Long, Lezen-schrijven.

Aanvullende informatie

Als u de eigenschap Height instelt, treedt er een fout op als de grootte van de opdrachtbalk niet kan worden gewijzigd (als de opdrachtbalk zich in een dok bevindt of is beveiligd tegen groottewijzigingen).


Voorbeeld van de eigenschap Height

Dit voorbeeld voegt een aangepast besturingselement toe vóór het tweede besturingselement op de opdrachtbalk met de naam 'Aangepast'. Dit voorbeeld stelt de hoogte van het besturingselement in op de helft van de hoogte van de opdrachtbalk en stelt de breedte in op vijftig pixels.

Set myBar = cmdbar.CommandBars("Aangepast")

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


Id, eigenschap

Deze eigenschap geeft als resultaat de id van het opgegeven ingebouwde besturingselement op een opdrachtbalk. Long, Alleen-lezen.

Aanvullende informatie

De id van een besturingselement bepaalt de ingebouwde actie van dat besturingselement. De waarde van de eigenschap Id van alle aangepaste besturingselementen is 1.


Voorbeeld van de eigenschap Id

Dit voorbeeld verandert het knopvlak van het eerste besturingselement op de opdrachtbalk 'Aangepast2' als de id-waarde van de knop kleiner is dan 25.

Set ctrl = CommandBars("Aangepast2").Controls(1)

With ctrl

    If .Id < 25 Then

        .FaceId = 17

        .Tag = "Besturingselement gewijzigd"

    End If

End With

Het volgende voorbeeld wijzigt het bijschrift van elk besturingselement op de werkbalk 'Standaard' in de huidige waarde van de eigenschap Id van dat besturingselement.

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

    ctl.Caption = CStr(ctl.Id)

Next ctl


Index, eigenschap

Deze eigenschap geeft als resultaat het indexnummer van het opgegeven object in de collectie. Long, Alleen-lezen.

Aanvullende informatie

De positie van het eerste besturingselement op de opdrachtbalk is 1. Scheidingstekens worden niet meegeteld in de CommandBarControls-collectie.


Voorbeeld van de eigenschap Index

Dit voorbeeld zoekt in de opdrachtbalk 'Aangepast2' naar een besturingselement met een id-waarde van 23. Als een dergelijk besturingselement wordt gevonden en het indexnummer van het gevonden besturingselement groter is dan 5, wordt het besturingselement als het eerste besturingselement op de opdrachtbalk geplaatst.

Set myBar = CommandBars("Aangepast2")

Set ctrl1 = myBar.FindControl(Id:=23)

If ctrl1.Index > 5 Then

    ctrl1.Move before:=1

End If


Item, eigenschap

Deze eigenschap geeft als resultaat een object uit een collectie of geeft tekst als resultaat die is verbonden met een object.

Item is het standaardlid van het object of de collectie. De volgende twee instructies wijzen bijvoorbeeld beide een CommandBar-object toe aan cmdBar.

Set cmdBar = CommandBars.Item("Standaard")

Set cmdBar = CommandBars("Standaard")

De volgende twee instructies wijzen beide de tekst van de eerste label in het object Balloon die is toegewezen aan myBalloon, toe aan lblText.

lblText = myBalloon.Labels(1).Item

lblText = myBalloon.Labels(1)

Selecteer een van de volgende objecten als u een gedetailleerde beschrijving wilt van de eigenschap Item van een object.

Assistant

BalloonCheckboxes

BalloonCheckbox

BalloonLabel

BalloonLabels

CommandBarControls

CommandBars

DocumentProperties

FileFindResults

FoundFiles

PropertyTests


Item, eigenschap (CommandBars- en CommandBarControls-collectie)

Deze eigenschap geeft als resultaat een CommandBar-object uit een CommandBars-collectie of geeft als resultaat een CommandBarControl-object uit een CommandBarControls-collectie. Alleen-lezen.

Syntaxis

expressie.Item(Index)

expressie   Vereist. Een expressie die een CommandBars- of een CommandBarControls-object als resultaat geeft.

Index   Vereist Variant. De naam of het indexnummer van het object dat als resultaat wordt gegeven. U kunt alleen indexnummers gebruiken om PropertyTest-objecten uit de PropertyTests-collectie als resultaat te geven.


Item, eigenschap (BalloonCheckboxes-collectie)

Deze eigenschap geeft als resultaat een BalloonCheckbox-object uit een BalloonCheckboxes-collectie. Alleen-lezen.

Syntaxis

expressie.Item(iCbx)

expressie   Een expressie die een BalloonCheckboxes-object als resultaat geeft.

iCbx   Long, vereist. Het indexnummer van het selectievakje dat als resultaat moet worden gegeven.


Item, eigenschap (BalloonLabels-collectie)

Deze eigenschap geeft een BalloonLabel-object uit een BalloonLabels-collectie als resultaat. Alleen-lezen.

Syntaxis

expressie.Item(iLbl)

expressie   Een expressie die een BalloonLabels-object als resultaat geeft.

iLbl   Long, vereist. Het indexnummer van de label die als resultaat moet worden gegeven.


Item, eigenschap (Assistant-, BalloonLabel- en BalloonCheckbox-object)

Deze eigenschap geeft als resultaat de tekst die is verbonden met het opgegeven object. String, Alleen-lezen.

Syntaxis

expressie.Item

expressie   Vereist. Een expressie die een Assistant-, BalloonCheckbox- of BalloonLabel-object als resultaat geeft.


Item, eigenschap (DocumentProperties-collectie)

Deze eigenschap geeft als resultaat een DocumentProperty-object uit een DocumentProperties-collectie. Alleen-lezen.

Syntaxis

expressie.Item(Index)

expressie   Vereist. Een expressie die een DocumentProperties-object als resultaat geeft.

Index   Variant, vereist. De naam of het indexnummer van de documenteigenschap die als resultaat moet worden gegeven.


Item, eigenschap (PropertyTests-collectie)

Deze eigenschap geeft als resultaat een PropertyTest-object uit een PropertyTests-collectie. Alleen-lezen.

Syntaxis

expressie.Item(Index)

expressie   Vereist. Een expressie die een PropertyTests-object als resultaat geeft.

Index   Variant, vereist. Het indexnummer van de eigenschapstest die als resultaat moet worden gegeven.


Item, eigenschap (FoundFiles- en FileFindResults-object)

Deze eigenschap geeft als resultaat een bestandsnaam uit de lijst met bestandsnamen die wordt vertegenwoordigd door het FoundFiles- of het FileFindResults-object. String, Alleen-lezen.

Syntaxis

expressie.Item(Index)

expressie   Vereist. Een expressie die een FoundFiles- of een FileFindResults-object als resultaat geeft (FileFindResults is alleen voor de Macintosh).

Index   Variant, vereist. Het indexnummer van de bestandsnaam die als resultaat moet worden gegeven.


Left, eigenschap

CommandBar- of CommandBarControl-object: Met dit object wordt de afstand (in pixels) als resultaat gegeven of ingesteld vanaf de linkerrand van de opgegeven opdrachtbalk of het opgegeven besturingselement op een opdrachtbalk tot de linkerrand van het scherm. Deze afstand geeft de afstand vanaf de linkerzijde van het dokgebied als resultaat. Long, Lezen-schrijven voor CommandBar, Long, Alleen-lezen voor CommandBarControl.

Assistant-object: Met dit object wordt de horizontale positie (in punten) als resultaat gegeven of ingesteld van het venster Office-assistent, ten opzicht van het scherm. Long, Lezen-schrijven.


Voorbeeld van de eigenschap Left

Dit voorbeeld past de positie van de aangepaste opdrachtbalk 'Aangepast' aan door deze 110 pixels meer dan standaard naar links te schuiven. Deze opdrachtbalk wordt ook de eerste opdrachtbalk in een dok doordat het rij-indexnummer wordt ingesteld op 1.

Set myBar = CommandBars("Aangepast")

With myBar

    .RowIndex = 1

    .Left = 140

End With

Dit voorbeeld geeft de Office-assistent weer en verplaatst deze naar de opgegeven positie.

With Assistant

    .Visible = True

    .Left = 300

    .Top = 300

End With


Move, methode

CommandBarControl-object: Met dit object wordt het opgegeven besturingselement op een opdrachtbalk verplaatst naar een bestaande opdrachtbalk.

Assistant-object: Met dit object wordt de Office-assistent naar de opgegeven locatie verplaatst.

Syntaxis 1

expressie.Move(Bar, Before)

Syntaxis 2

expressie.Move(xLeft, yTop)

expressie   Syntaxis 1: Vereist. Een expressie die een CommandBarControl-, CommandBarButton-, CommandBarPopup- of CommandBarComboBox-object als resultaat geeft.

Syntaxis 2: Vereist. Een expressie die een Assistant-object als resultaat geeft.

Bar    Variant, optioneel. Een CommandBar-object dat de bestemmingsopdrachtbalk voor het besturingselement vertegenwoordigt. Als dit argument wordt weggelaten, wordt het besturingselement verplaatst naar het einde van dezelfde opdrachtbalk (de opdrachtbalk waarin het besturingselement zich al bevindt).

Before   Variant, optioneel. Een getal dat de positie van het besturingselement aangeeft. Het besturingselement wordt ingevoegd vóór het besturingselement dat zich op die positie bevindt. Als dit argument wordt weggelaten, wordt het besturingselement ingevoegd in dezelfde opdrachtbalk.

xLeft   Integer, vereist. De linkerpositie van het venster Office-assistent in punten.

yTop   Integer, vereist. De bovenpositie van het venster Office-assistent in punten.


Voorbeeld van de methode Move

Dit voorbeeld verplaatst de eerste keuzelijst met invoervak van de aangepaste opdrachtbalk 'Aangepast' naar de positie vóór het zevende besturingselement op die opdrachtbalk. De eigenschap Tag wordt ingesteld op 'Selectiekader' en er wordt een lage prioriteit aan het besturingselement toegewezen, zodat het waarschijnlijk uit de opdrachtbalk wegvalt als alle besturingselementen niet op één rij passen.

Set allControls = CommandBars("Aangepast").Controls

For ctrl In allControls

    If ctrl.Type = msoControlComboBox Then

        With ctrl

            .Move Before:=7

        	   .Tag = "Selectiekader"

        	   .Priority = 5

         End With

         Exit For

    End If

Next

Dit voorbeeld geeft de Office-assistent op de opgegeven locatie weer en stelt verschillende opties in voordat de Office-assistent zichtbaar wordt gemaakt.

With Assistant

    .Reduced = True

    .Move xLeft:= 400, yTop:= 300

    .MoveWhenInTheWay = True

    .TipOfDay = True

    .Visible = True

    .Animation = msoAnimationGreeting

End With


Name, eigenschap

Met deze eigenschap wordt de naam als resultaat gegeven of ingesteld van het opgegeven object. String, Lezen-schrijven voor het CommandBar-object, String, Alleen-lezen voor alle andere objecten.

Aanvullende informatie

De lokale naam van een ingebouwde opdrachtbalk wordt weergegeven op de titelbalk (als de opdrachtbalk zich niet in een dok bevindt) en in de lijst met beschikbare opdrachtbalken (als die lijst wordt weergegeven in de containertoepassing).

Voor een ingebouwde opdrachtbalk geeft de eigenschap Name de Amerikaans Engelse naam van de opdrachtbalk als resultaat. Gebruik de eigenschap NameLocal om de lokale naam als resultaat te geven.

Als u de waarde van de eigenschap LocalName van een aangepaste opdrachtbalk wijzigt, verandert de waarde van Name ook en vice versa.


Voorbeeld van de eigenschap Name

Dit voorbeeld zoekt in de collectie met opdrachtbalken naar de opdrachtbalk 'Aangepast'. Als deze opdrachtbalk wordt gevonden, wordt deze zichtbaar gemaakt.

foundFlag = False

For Each bar In CommandBars

    If bar.Name = "Aangepast" Then

        foundFlag = True

        bar.Visible = True

    End If

Next

If Not foundFlag Then

    MsgBox "De opdrachtbalk 'Aangepast' bevindt zich niet in de collectie."

Else

    MsgBox "De opdrachtbalk 'Aangepast' is nu zichtbaar."

End If

Dit voorbeeld geeft de naam, het type en de waarde van een documenteigenschap weer. U moet een geldig DocumentProperty-object aan de procedure doorgeven.

Sub DisplayPropertyInfo(dp As DocumentProperty)

    MsgBox "waarde = " & de.Value & Chr(13) & _

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

        "naam = " & dp.Name

End Sub


FindControls, methode

Deze methode geeft een CommandBarControls-object als resultaat dat voldoet aan de opgegeven criteria.

Syntaxis

expressie.FindControls(Type, Id, Tag, Visible)

expressie   Vereist. Een expressie die een CommandBars-object als resultaat geeft.

Type   Variant, optioneel. Het type besturingselement waarnaar wordt gezocht. De waarde kan een van de volgende MsoControlType-constanten zijn:

MsoControlActiveX MsoControlCustom MsoControlButton MsoControlEdit MsoControlDropdown MsoControlComboBox MsoControlButtonDropdown MsoControlSplitDropdown MsoControlGenericDropdown MsoControlGraphicCombo MsoControlSplitButtonMRUPopup MsoControlSplitExpandingGrid	msoControlGraphicDropdown msoControlPopup msoControlGraphicPopup msoControlButtonPopup msoControlGauge msoControlLabel msoControlExpandingGrid msoControlGrid msoControlOCXDropDown msoControlSplitButtonPopup msoControlPane
Id   Variant, optioneel. De unieke aanduiding van het besturingselement.

Tag   Variant, optioneel. De Tag-waarde van het besturingselement.

Visible    Variant, optioneel. Als de waarde True is, wordt alleen gezocht naar zichtbare besturingselementen van opdrachtbalken. De standaardwaarde is False.

Aanvullende informatie

Als er geen besturingselementen worden gevonden die aan de criteria voldoen, geeft de methode FindControls als resultaat Nothing.


Voorbeeld van de methode FindControls

In dit voorbeeld wordt de methode FindControls gebruikt om alle leden van de CommandBarControls-collectie met een ID van 18 als resultaat te geven en om (in een berichtvenster) het aantal besturingselementen weer te geven dat voldoet aan de zoekcriteria.

Dim myControls As CommandBarControls

Set myControls = CommandBars.FindControls(Type:=msoControlButton, ID:=18)

MsgBox "There are " & myControls.Count & _

    " controls that meet the search criteria."


AdaptiveMenus, eigenschap

Deze eigenschap is True als een aangepast, persoonlijk menu is ingeschakeld. Boolean, Lezen-schrijven.


Voorbeeld van de eigenschap AdaptiveMenus

In dit voorbeeld worden drie opties ingesteld voor alle opdrachtbalken in Microsoft Office, inclusief de aangepaste opdrachtbalken en de besturingselementen op die opdrachtbalken.

With CommandBars

    .LargeButtons = True

    .DisplayFonts = True

    .AdaptiveMenus = True

End With


DisplayFonts, eigenschap

Deze eigenschap is True als de namen van de lettertypen (fonts) in het vak Lettertype worden weergegeven in het lettertype dat ze aanduiden. Boolean, Lezen-schrijven.


Voorbeeld van de eigenschap DisplayFont
Voorbeeld van de eigenschap DisplayFonts

In dit voorbeeld worden drie opties ingesteld voor alle opdrachtbalken in Microsoft Office, inclusief aangepaste opdrachtbalken en de besturingselementen op die opdrachtbalken.

With CommandBars

    .LargeButtons = True

    .DisplayFonts = True

    .AdaptiveMenus = True

End With


IsPriorityDropped, eigenschap

Deze eigenschap is True als het besturingselement van de menu- of werkbalk wordt verwijderd op basis van gebruiksstatistieken en indelingsruimte. (Dit is niet hetzelfde als de zichtbaarheid van een besturingselement, die wordt ingesteld door de eigenschap Visible.) Een besturingselement waarvan de eigenschap Visible de waarde True heeft, wordt niet direct zichtbaar op een aangepaste menu- of werkbalk als de eigenschap IsPriorityDropped de waarde True heeft. Boolean, Alleen lezen.

Aanvullende informatie

Om te bepalen wanneer de waarde van IsPriorityDropped moet worden ingesteld op True voor een specifiek menu-item, houdt Microsoft Office een telling bij van het aantal keer dat het menu-item is gebruikt, en een record van het aantal verschillende sessies van een toepassing waarin de gebruiker in hetzelfde menu een ander menu-item heeft gebruikt zonder het specifieke menu-item te gebruiken. Wanneer deze waarde bepaalde drempelwaarden bereikt, wordt de telling verlaagd. Als de telling nul is, wordt de eigenschap IsPriorityDropped ingesteld op True. Programmeurs kunnen de sessiewaarde, de drempelwaarde of de eigenschap IsPriorityDropped niet instellen. Programmeurs kunnen echter wel de eigenschap AdaptiveMenus gebruiken om voor bepaalde menu's in een toepassing zich aanpassende menu's uit te schakelen.

Om te bepalen waneer de waarde van IsPriorityDropped moet worden ingesteld op True voor een specifiek besturingselement op een werkbalk, houdt Office een lijst bij van de volgorde waarin alle besturingselementen op die werkbalk voor het laatst zijn gebruikt. Op een werkbalk worden altijd zoveel mogelijk besturingselementen weergegeven, de laatst gebruikte elementen als eerst. Besturingselementen waarvan de eigenschap Priority is ingesteld op 1, worden altijd weergegeven. Indien nodig krijgen de rijen van de werkbalk terugloop om deze besturingselementen toch te kunnen weergeven. Programmeurs kunnen de eigenschap Priority gebruiken om ervoor te zorgen dat specifieke besturingselementen altijd worden weergegeven, of om werkbalken zo te plaatsen dat er voldoende ruimte is om alle besturingselementen weer te geven.

Aan de hand van de volgende tabel kunt u het aantal sessies zien dat een menu-item in een aangepast menu zichtbaar blijft voordat de eigenschap IsPriorityDropped van het menu-item wordt ingesteld op True.

Aantal malen dat het opdrachtbalk-besturingselement kan worden gebruikt	Aantal sessies van de toepassing
0, 1	3
2	6
3	9
4, 5	12
6– 8	17
9–13	23
14–24	29
25 of meer	31


Voorbeeld van de eigenschap IsPriorityDropped

In dit voorbeeld wordt de eigenschap IsPriorityDropped voor het eerste besturingselement op de opdrachtbalk 'Custom' gecontroleerd. Als voor de eigenschap IsPriorityDropped de waarde True is ingesteld, wordt de eigenschap AdaptiveMenus ingesteld op False, zodat de verwijderde opdrachtbalk wordt teruggeplaatst.

If CommandBars("Custom").Controls(1).IsPriorityDropped Then

    CommandBars.AdaptiveMenus = True

End If


HyperlinkType, eigenschap

Met deze eigenschap wordt het type hyperlink dat aan de opgegeven opdrachtbalkknop is gekoppeld, als resultaat gegeven of ingesteld. De waarde van deze eigenschap kan een van de volgende MsoCommandBarButtonHyperlinkType-constanten zijn: msoCommandBarButtonHyperlinkNone, msoCommandBarButtonHyperlinkOpen of msoCommandBarButtonHyperlinkInsertPicture. Long, Lezen-schrijven.


Voorbeeld van de eigenschap HyperlinkType

In dit voorbeeld wordt gecontroleerd welke waarde de eigenschap HyperlinkType van de opgegeven opdrachtbalkknop 'Custom' heeft. Als de eigenschap HyperlinkType de waarde msoCommandBarButtonHyperlinkNone heeft, wordt in dit voorbeeld de eigenschap op de waarde msoCommandBarButtonHyperlinkOpen ingesteld en wordt de URL op www.microsoft.com ingesteld.

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


Click, gebeurtenis
Change, gebeurtenis

Deze gebeurtenis vindt plaats als de eindgebruiker de inhoud van een keuzelijst met invoervak op een opdrachtbalk wijzigt.

Syntaxis

Private Sub CommandBarComboBox_Change

    (ByVal Ctrl As CommandBarComboBox)

Aanvullende informatie

De gebeurtenis Change wordt herkend door het CommandBarComboBox-object. Als u de gebeurtenis Change voor een bepaald besturingselement CommandBarComboBox als resultaat wilt geven, gebruikt u het sleutelwoord WithEvents om een variabele te declareren en stelt u de variabele vervolgens in op het besturingselement CommandBarComboBox. Als de gebeurtenis Change wordt geactiveerd, wordt de macro of code uitgevoerd die u met de eigenschap OnAction van het besturingselement hebt opgegeven.


Voorbeeld van de gebeurtenis Change

In het volgende voorbeeld wordt een opdrachtbalk met een besturingselement CommandBarComboBox gemaakt. Deze keuzelijst met invoervak bevat vier keuzemogelijkheden en reageert met de gebeurtenis CommandBarComboBox_Change op de keuze die de gebruiker maakt.

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

Het voorafgaande voorbeeld steunt op de volgende code die in een klassemodule in het VBA-project is opgeslagen.

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 "First Class"

            FirstClass

        Case "Business Class"

            BusinessClass

        Case "Coach Class"

            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


Click, gebeurtenis

Deze gebeurtenis vindt plaats als de gebruiker op een CommandBarButton-object klikt.

Syntaxis

Private Sub CommandBarButton_Click

    (ByVal Ctrl As CommandBarButton,

    ByVal CancelDefault  As Boolean)

De syntaxis van de gebeurtenis Click bevat de twee argumenten die in de volgende tabel worden beschreven.

Argument	Beschrijving
Ctrl	CommandBarButton, vereist. Dit argument verwijst naar het besturingselement CommandBarButton dat de gebeurtenis heeft gestart.
CancelDefault	Boolean, vereist. Dit argument is False als de standaardactie wordt uitgevoerd die aan het besturingselement CommandBarButton is gekoppeld, tenzij de standaardactie door een ander proces of door een invoegtoepassing wordt geannuleerd.
Aanvullende informatie

De gebeurtenis Click wordt herkend door het CommandBarButton-object. Als u de gebeurtenis Click voor een bepaald besturingselement CommandBarButton als resultaat wilt geven, gebruikt u het sleutelwoord WithEvents om een variabele te declareren en stelt u de variabele vervolgens in op het besturingselement.


Voorbeeld van de gebeurtenis Click

In het volgende voorbeeld wordt in het menu File van de hosttoepassing een nieuwe opdrachtbalkknop gemaakt waarmee de gebruiker een werkmap als een bestand met door komma's gescheiden waarden kan opslaan. (U kunt dit voorbeeld in alle andere toepassingen gebruiken. U dient het dan echter aan te passen omdat alleen in Microsoft Excel bestanden als csv-bestanden kunnen worden opgeslagen.)

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

Het voorafgaande voorbeeld steunt op de volgende code die in een klassemodule in het VBA-project is opgeslagen.

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


OnUpdate, gebeurtenis

Deze gebeurtenis vindt plaats als er een wijziging wordt aangebracht in een opdrachtbalk.

Syntaxis

Private Sub CommandBars_OnUpdate()

Aanvullende informatie

De gebeurtenis OnUpdate wordt door het CommandBar-object en alle besturingselementen op een opdrachtbalk herkend. De gebeurtenis wordt geactiveerd als er een wijziging wordt aangebracht in een opdrachtbalk of een besturingselement op een opdrachtbalk of in de status van een opdrachtbalk of een besturingselement op een opdrachtbalk. Deze wijzigingen kunnen worden veroorzaakt door geselecteerde tekst of een geselecteerde cel. Aangezien er een groot aantal OnUpdate-gebeurtenissen kunnen voorkomen bij normaal gebruik, moeten ontwikkelaars voorzichtig zijn bij het gebruik van deze gebeurtenis. U wordt aangeraden deze gebeurtenis hoofdzakelijk te gebruiken om te controleren of er door een COMAddIn een aangepaste opdrachtbalk is toegevoegd of verwijderd. Meer informatie over het gebruik van gebeurtenissen met COM-invoegtoepassingen vindt u in het hoofdstuk 'Invoegtoepassingen, sjablonen, wizards en bibliotheken' van de Microsoft Office 2000/Visual Basic-programmeergids.


AdaptiveMenu, eigenschap

Deze eigenschap is True als een aangepast, persoonlijk menu is ingeschakeld. Boolean, Lezen-schrijven.


Voorbeeld van de eigenschap AdaptiveMenu

In dit voorbeeld wordt de eigenschap AdaptiveMenu op False ingesteld voor het menu File in de Microsoft Office-toepassing waarin u werkt.

CommandBars("File").AdaptiveMenu = False