U kunt lettertype grootte van tekst in uw VBA- programma's te observeren en instellen met de " Font " en " Size " eigenschappen in die programma's . VBA kunt u de lettergroottes van vorm controles en document tekst , inclusief inhoud in spreadsheets , Word- documenten en presentaties te wijzigen . Als u de lettergrootte voor een bepaalde VBA -object , zoek in de VBA- objectmodel voor Font van dat object en grootte eigenschappen . Wees voorzichtig bij het veranderen van de lettergrootte . Waardoor de tekst te klein is maakt het onleesbaar . Waardoor het te groot maakt tekstinvoer omslachtig . Het kan ook afleiden gebruikers uit andere delen van uw programma , zoals informatie over een dia of spreadsheet die nodig zijn om het programma te gebruiken . Instructies
1 Klik op het tabblad "Ontwikkelaar " van uw toepassing , en klik vervolgens op de knop " Visual Basic " om de VBA programmeeromgeving voeren . Klik op het menu "Invoegen " en klik vervolgens op de " Userform " punt om een nieuw formulier te voegen . Dit formulier kunt u besturingselementen waarvan lettertype-eigenschappen die u kunt wijzigen met VBA statements houden . Kopen van 2 Klik op het menu " View " en klik vervolgens op de " Toolbox " punt om een palet van de controles geven . Klik op het pictogram pictogrammenkolom de vorm van de twee tekens " Ab " om het tekstvak te laden , en sleep op de Userform om een tekstvak te maken .
3 Klik op het gereedschap palet pictogram vorm van een knop om button- tekening te activeren en sleep op het doek onder het tekstvak dat u in staat om een knop voor het formulier te maken .
4 Dubbelklik op de knop om het scherm functie gebeurtenis voor de Click event . Deze functie wordt uitgevoerd wanneer uw programma 's gebruiker op de knop die u op het formulier geplaatst . Typ de volgende verklaringen in de codering venster . Deze uitspraken lezen van en schrijven naar de " Size " eigenschap van het tekstvak . Schrijven naar deze eigenschap kunt u de lettergrootte van de tekst getypt in het tekstvak te veranderen . Private Sub CommandButton1_Click ( ) op Twitter Als TextBox1.Font.Size > 5 ThenTextBox1.Font.Size = 2ElseTextBox1.Font . size = 20End IfEnd Sub
Druk op " F5 " 5 om het programma uit te voeren , en typ wat tekst in het tekstvak . Klik op de knop meerdere malen , merken de grootte van de tekst in het tekstvak , die toeneemt of afneemt met elke muisklik verandert .
|
