De toepassingen van Microsoft Office 97 hebt werkbalken waarvan opdrachten weer pictogrammen . Deze iconen hebben unieke identificatie nummers genaamd gezicht id's met hen verbonden . Door een commando 's gezicht ID verandert , kunt u het pictogram wijzigen . Het vinden van het gezicht ID voor een opdracht is een taak kunt u compleet met Bureau programmeertaal , Visual Basic for Applications , of VBA . Een stap die betrokken zijn bij het vinden van een commando 's gezicht ID wordt bevragen objecten van de Office 97 -object model - een netwerk van virtuele objecten vertegenwoordigen programmeerbare elementen Bureau. Het vinden van het gezicht ID's voor Office 97 werkbalken is een eerste stap in de richting van het aanpassen van commando pictogrammen . Instructies 1 Open een van de Office 97 -toepassingen , druk dan op " Alt " + " F11 " om de VBA geïntegreerde ontwikkelomgeving in te voeren , of IDE . Click 2 het menu " Insert " 's " Module " commando om een nieuw venster te openen voor het invoeren van VBA- broncode . 3 Plak de volgende programmacode in het venster code . Dit programma drukt op de IDE 's " Direct " -venster , een lijst met alle knoppen op de werkbalk en hun gezicht id's . De functie " CommandBars " biedt een lijst met werkbalken . Elke werkbalk heeft een lijst met controles die uw programma toegang via de functie " Controls " van de werkbalk . Aangezien niet alle werkbalkopdrachten hebben iconen , zou het programma een fout veroorzaken als het geprobeerd toegang te krijgen tot het gezicht ID van deze commando's . Het programma vangt deze fout met de " On Error " statement . Public Sub showFaceIds ( ) op Dim x Dim i , j , Curbar Dim s , curCtl Dim t Debug.Print " Beschrijving | Overzicht | Type | Gezicht id " Voor i = 1 To CommandBars.Count Set Curbar = CommandBars ( i ) op Voor j = 1 To Stel curCtl = curBar.Controls ( j ) s = curCtl.DescriptionText curBar.Controls.Count & " | " & curCtl.Caption & " | " & curCtl.Type On Error Resume Next s = s & Breakfast " | " & curCtl.FaceId Debug . Print s Volgende j Volgende i End Sub 4 Open " Direct " -venster van de IDE 's door op "Control " + " G. " 5 klik op een van de verklaringen van de programma 's , klik op "Run" commando van de " Debug " menu 's om het programma uit te voeren . De " Immediate " venster zal vullen met het gezicht ID en andere eigenschappen van elke werkbalk commando . Klik 6 binnen in de " Direct " -venster , selecteer en kopieer al zijn tekst. < br > Open Word 97 7 . Plak de tekst die u zojuist hebt gekopieerd . Druk op " Control" 8 + " A " om alle tekst te selecteren , en klik op ' Tekst omzetten " punt van de menu 's " Table "om het dialoogvenster te openen voor het omzetten vlakte tekst naar een Word-tabel . Deze conversie zal het gemakkelijk maken om de gegevens te lezen Type 9 . " | " . ( De pijp symbool ) in het tekstvak dat zegt: " Anders , " en druk op " Enter " om de tabel te maken < br > Print 10 uit het document , surf dan naar de "Type Enumeratie " pagina MSDN , waarin elk van de door de kolom "Type" van uw afdruk aangeduid command typen knop noemt . 11 Lees de afdruk als volgt : de eerste kolom heeft betrekking functie van de commando 's , zoals " Snijd de selectie . " De tweede kolom een overzicht van die functie . De derde is een getal dat de aard van de opdracht (bijvoorbeeld , " Command Button , " " Combo Box" ) . Raadpleeg de pagina die u gesurft om in de laatste stap om een naam te associëren met dit nummer . Laatste kolom van de afdruk 's betreft het gezicht ID van het commando .
|