Visual Basic ( VB ) er programmeringsspråket av Microsoft Office-pakken , inkludert Excel. Med VB kan du utføre de samme funksjonene som er tilgjengelige for brukere av standard Excel -grensesnitt , inkludert import av grafikk når en arbeidsbok åpnes . Ett skritt i å skrive en VB program for å utføre denne oppgaven er å identifisere de funksjoner og objekter i Excel-objekt -modellen for å importere bilder. Dette prosjektet krever relativt få linjer med programkode, og som gjør det til et ideelt introduksjon til VB programmering for Excel. Instruksjoner
en

Åpne Excel , høyreklikk på fanen merket " Ark1 " nederst på skjermen. Klikk på " Vis kode " element for å vise VB koding miljø .
2

Dobbeltklikk på " ThisWorkbook " element i " Prosjekt" -ruten på skjermen igjen . Denne handlingen viser en tom kode vindu som gir en plass å skrive programmer som påvirker hele arbeidsboken
3

Klikk lengst til venstre nedtrekkslisten nær toppen av skjermen - . Som øyeblikket viser " general". Klikk på " arbeidsbok" element i denne listen. Lengst til høyre nedtrekkslisten vil vise en liste over funksjoner som kjøres når ulike hendelser inntreffer involverer arbeidsboken . En av disse hendelsesfunksjonene , " Åpne ", kjører når arbeidsboken åpnes for første gang .
4

Klikk på "Open" element i lengst til høyre drop- down menyen for å opprette en tom hendelse funksjon kalt " Workbook_Open . " Lim inn følgende kode over denne funksjonen er " End Sub " statement : .

ActiveSheet.Pictures.Insert ( " ") Velg
5

Type over teksten " < ; YOUR_PICTURE_FILENAME_HERE > " med banen navnet på en bildefil på harddisken (for eksempel" . C: \\ Users \\ ClarkKent \\ Bilder \\ MyBeachParty.jpg ")
6

tilbake til standard Excel -grensesnitt ved å trykke på "Alt- F11 , " trykk " Alt- F4 " for å starte lukker arbeidsboken . Skriv inn et filnavn for arbeidsboken når du blir bedt , og velg "Macro -aktivert arbeidsbok ( * . XLSM )" for filtypen .
7

åpne arbeidsboken . Programmet du ferdig i trinn 4 vil utføre , og laste den grafiske filen du angav i en celle i det første regnearket .
8

Tilbake til programmet ved å gjenta trinn 2 , og deretter erstatte dagens uttalelse i programmet med denne:

ActiveSheet.SetBackgroundPicture Filnavn : = " "
9

Gjenta trinn 5 for å tilpasse programmet koden for å legge bildet fra harddisken din , deretter lukker og åpner arbeidsboken . Excel vil vise et bakgrunnsbilde flislagt over det første regnearket .
10

Tilbake til programmet i VB miljøet (ved hjelp av trinn 2 anvisninger) . Erstatte enkelt setning med disse:

Dim strFile

strFile = InputBox ("Skriv inn bilde banenavn ")

ActiveSheet.SetBackgroundPicture Filnavn : = strFile

11

Lukk og åpne arbeidsboken . Programmet vil spørre etter den fullstendige banen navnet på en grafisk fil denne gangen . Angi banen navn , og klikk " OK " for å laste inn bildet oppå det første regnearket bakgrunn.