Hvordan legge inn et bilde i Excel ved Autoopen Time Bruke Visual Basic

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.