Du kan observera och ställa teckenstorlekar för text i din VBA -program genom att använda " Font " och "storlek" egenskaper i dessa program . VBA kan du ändra teckensnitt storlekar formulärkontroller och dokument text , inklusive innehållet i kalkylblad , Word-dokument och presentationer . Om du vill ändra teckenstorlek för en viss VBA föremål , söka i VBA -objektmodellen för att objektets Font och egenskaper Storlek . Var försiktig när du ändrar teckenstorlek . Göra text för liten gör det oläsligt. Att göra det för stort gör textinmatning besvärligt . Det kan också distrahera användare från andra delar av programmet , till exempel information om en bild eller ett kalkylblad som krävs för att använda programmet . Instruktioner
1
Klicka programmets " Utvecklare " fliken , och klicka sedan på " Visual Basic " -knappen för att komma in i VBA-programmering miljö . Klicka på " Infoga " -menyn , och klicka sedan på " UserForm " objektet för att infoga en ny form . Denna form kan hålla kontroller vars teckensnitt egenskaper du kan ändra med VBA uttalanden .
2
Klicka på " Visa " -menyn , och klicka sedan på " Toolbox " alternativet för att visa en palett av kontrollerna . Klicka på ikonen verktygspaletten formad som de två tecknen " Ab " för att ladda kontrollen Text rutan och sedan dra på UserForm att skapa en textruta .
3
Klicka verktygspaletten ikonen formad som en knapp för att komma in knapp - ritning läge , och sedan dra på duken under textrutan du förutsättningar att skapa en knapp för formuläret .
4
Dubbelklicka på knappen för att visa händelse funktion för Click-händelsen . Funktionen verkställer när programmet användaren trycker på knappen du placeras på formuläret . Skriv följande uttalanden i den kodande fönstret . Dessa uttalanden läsa från och skriva till " Size " egendom av textrutan . Skriva till den här egenskapen kan du ändra teckenstorleken på all text som skrivs in i textrutan .
Private Sub CommandButton1_Click ( ) Om TextBox1.Font.Size > 5 ThenTextBox1.Font.Size = 2ElseTextBox1.Font . Storlek = 20End IfEnd Sub
5
Tryck " F5 " för att köra programmet , och skriver sedan lite text i textrutan . Klicka på knappen flera gånger , märker storleken på texten i textrutan , vilket förändrar ökar eller minskar med varje musklick .
