Visual Basic ( VB ) är det programmeringsspråk för Microsoft Office-paketet , inklusive Excel . Med VB du kan utföra samma funktioner tillgängliga för användare av vanliga Excel -gränssnittet , inklusive importera grafik när en arbetsbok öppnas . Ett steg i att skriva ett VB program för att utföra denna uppgift är att identifiera de funktioner och objekt i Excel objektmodellen krävs för att importera bilder . Detta projekt kräver relativt få rader programkod , och det gör det till en idealisk introduktion till VB programmering för Excel . Instruktioner
1
Öppna Excel , högerklicka sedan på fliken som heter " Blad1 " längst ned på skärmen . Klicka på " Visa kod " objekt att visa VB kodning miljön .
2
Dubbelklicka på " ThisWorkbook " post i " Project " rutan på skärmen kvar . Denna åtgärd visar en tom kod fönster som ger ett utrymme för att skriva program som påverkar hela arbetsboken
3
Klicka längst till vänster listrutan nära toppen av skärmen - . Som närvarande visar " General ". Klicka på " Arbetsbok " posten i denna lista . Den högra listrutan visas en lista över funktioner som körs när olika händelser inträffar som involverar arbetsboken . En av dessa händelser funktioner , " Open ", körs när arbetsboken först öppnas .
4
Klicka på " Öppna " post i den högra listrutan för att skapa en tom händelse funktion som kallas " Workbook_Open . " Klistra in följande kod ovanför denna funktion är " End Sub " uttalande : .
ActiveSheet.Pictures.Insert ( " " ) Välj
5 typ över texten " < ; YOUR_PICTURE_FILENAME_HERE > " med sökvägen till en bildfil på hårddisken ( t.ex. " . C: \\ Users \\ ClarkKent \\ Bilder \\ MyBeachParty.jpg " )
6
tillbaka till standard Excel -gränssnittet genom att trycka " Alt - F11 , " tryck sedan på " Alt - F4 " för att initiera stänga arbetsboken . Ange ett filnamn för arbetsboken när du uppmanas till det och välj " makroaktiverade arbetsbok ( * . Xlsm ) " för filtypen .
7
öppna arbetsboken . Programmet du färdig i steg 4 kommer att utföra , och ladda bildfil du angav i en cell på den första kalkylbladet .
8
Återgå till ditt program genom att upprepa steg 2 och sedan ersätta den nuvarande uttalandet i programmet med denna:
ActiveSheet.SetBackgroundPicture Filename : = " "
9 Upprepa steg 5 för att anpassa programmet kod för att läsa in bilden från din hårddisk , sedan stänga och öppna arbetsboken . Excel kommer att visa en bakgrundsbild kaklat hela första kalkylbladet .
10
Återgå till ditt program i VB miljön ( med steg 2 instruktioner ) . Byt enda uttalande med dessa :
Dim strFile
strFile = InputBox ( " Ange namn picture sökväg " ) katalog
ActiveSheet.SetBackgroundPicture Filename : = strFile
11
Stäng och öppna arbetsboken . Ditt program kommer att fråga dig efter den fullständiga sökvägen till en bildfil denna gång . Ange sökvägen , klicka sedan på " OK " för att ladda in grafiken på det första kalkylbladet bakgrund .
