Hvordan sette inn bilde Innebygd i Visual Basic

Visual Basic (VB) er et programmeringsspråk fra Microsoft som kan lage frittstående programmer, og også utvide funksjonene i programmene i Microsoft Office-pakken. En funksjon VB kan forlenge innebærer bilder knyttet til Office-dokumenter. En VB program kan lagre et bilde i et dokument, i motsetning til å knytte bildet til dokumentet. Selv om dette gir en større størrelse dokument enn en med et koblet bilde, vil dokumentet ikke lider et sentralt problem for en med koblede bilder: muligheten for at det koblede bildet blir frakoblet fra dokumentet.

Bruksanvisning

1 Åpne Microsoft Word og klikk på "Sett inn" menyen "Bilde" element. Klikk på "Fra fil" alternativet. Du kobler til et bilde i gjeldende dokument, og deretter bruke Visual Basic for å legge inn bildet.

2 Naviger til en bildefil på harddisken, så sjekk "Link til fil" Chec-kbox i "Sett inn bilde" dialogboksen. Dette sikrer at bildet vil ikke (ennå) legges inn i dokumentet, men er knyttet til den. Trykk på "Sett inn" -knappen for å knytte bildet.

3 Trykk "Alt" og "F9" for å vise alle feltkodene i gjeldende dokument. (Feltkoder er Word-symboler vises som tekst som representerer annet innhold, inkludert automatisk oppdatert tidsstempler, eller koblede bilder). Bildet du har satt inn vil avsløre sin "INCLUDEPICTURE-" feltkoden, viser at bildet er knyttet sammen, men likevel ikke innebygd.

4 Trykk "Alt og" F11 "for å gå inn i Visual Basic integrert utviklingsmiljø (IDE). Dette miljøet inneholder verktøy for å skrive program for å legge inn bilde.

5 Klikk på menyen overskriften er "Insert" "Module" element for å skape et nytt vindu for å legge inn programkode.

6 Lim inn programmet på slutten av dette trinnet i modulvinduet. Programmet gjentas gjennom hvert felt koden i gjeldende dokument. Hvis en feltkode representerer et koblet bilde, programmet "unlinks" feltkoden, noe som betyr at den erstattet bildet kobling med selve bildet.

Public Sub embedImages ()

Dim jeg

Dim x

Dim nxtField

Sett x = ActiveDocument.Fields (1)

Mens Not (x er ingenting)

Sett nxtField = x.Next

Hvis x.Type = WdFieldType.wdFieldIncludePicture Deretter

x.Unlink

Slutt om

Sett x = nxtField

Wend

End Sub

7 Klikk på en uttalelse av "Koble fra" programmet du nettopp skrev, og trykk "F5" for å kjøre programmet.

8 Trykk "Alt" og "F11" for å gå tilbake til dokumentet. Bildefeltet koden fra Trinn tre er borte. Programmet har erstattet det med bildet. Trykk "Alt" og "F9" to ganger for å bekrefte at ingen andre "INCLUDEPICTURE-" feltkodene finnes i dokumentet.