Hvordan legge inn et bilde i Excel ved Autoopen Time Bruke Visual Basic
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. Et skritt i å skrive en VB program for å utføre denne oppgaven er å identifisere de funksjoner og objekter i Excel objektmodellen 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.
Bruksanvisning
1 Åpne Excel, høyreklikk på fanen merket "Ark1" nederst på skjermen. Klikk på "Vis kode" element for å vise VB kodemiljø.
2 Dobbeltklikk på "Thisworkbook" element i "Prosjekt" ruten på skjermen til venstre. Denne handlingen viser en tom kode vindu som gir en plass å gå inn programmer som påvirker hele arbeidsboken.
3 Klikk på venstre-mest rullegardinlisten øverst på skjermen - ". Generelt" som for øyeblikket viser 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 hendelses funksjoner, "Open", løper når arbeidsboken åpnes.
4 Klikk på "Open" element i lengst til høyre i rullegardinlisten for å opprette en tom event funksjon kalt "Workbook_Open." Lim inn følgende kode ovenfor denne funksjonen er "End Sub" statement:
ActiveSheet.Pictures.Insert ( "<YOUR_PICTURE_FILENAME_HERE>"). Velg
5 Skriv inn over teksten "<YOUR_PICTURE_FILENAME_HERE>" med banen navnet på en bildefil på harddisken (for eksempel "C: \ brukere \ ClarkKent \ Bilder \ MyBeachParty.jpg").
6 Gå 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 Åpner arbeidsboken. Programmet du ferdig i trinn 4 skal utføre, og laste angitte grafikkfilen i en celle på det første regnearket.
8 Gå tilbake til programmet ved å gjenta trinn 2, og deretter erstatte dagens uttalelse i programmet med denne:
ActiveSheet.SetBackgroundPicture Name: = "<YOUR_PICTURE_FILENAME_HERE>"
9 Gjenta trinn 5 for å tilpasse programkode for å laste bildet fra harddisken din, og deretter lukke og åpne arbeidsboken. Excel vil vise et bakgrunnsbilde flislagt over det første regnearket.
10 Gå tilbake til programmet i VB miljøet (med trinn 2 instruksjoner). Bytt enkelt setning med disse:
Dim strFile
strFile = InputBox ( "Skriv bilde banenavn")
ActiveSheet.SetBackgroundPicture Name: = strFile
11 Lukk og åpne arbeidsboken. Programmet vil spørre etter den fullstendige banen til en grafikkfil denne gangen. Skriv inn banenavnet, og klikk "OK" for å laste den grafiske på det første regnearket bakgrunn.