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

Åpne Microsoft Word og klikk på " Sett inn" menyen "Bilde" element . Klikk på " Fra fil" alternativet. Du vil knytte et bilde til det aktuelle dokumentet , og deretter bruke Visual Basic til å legge inn bildet.
2

Naviger til en bildefil på harddisken din , så sjekk "Link til fil " chec - KBOX i " Sett inn bilde " dialogboksen . Dette sørger for at bildet vil ikke ( ennå) legges inn i dokumentet , men knyttet til den. Trykk på " Sett inn" -knappen for å knytte bildet.
3

Trykk " Alt" og "F9 " for å vise alle feltkoder i det gjeldende dokumentet . ( Felt koder er Word- symboler vises som tekst som representerer annet innhold , inkludert automatisk oppdatert tidsstempler , eller koblede bilder) . Bildet du satt inn vil avsløre sin " INCLUDEPICTURE "-feltet kode , viser at bildet er koblet, men ennå ikke innebygd.
4

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

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

6

Lim programmet på slutten av dette trinnet i modulen vindu. programmet gjentas gjennom hvert felt kode i det aktuelle dokumentet . Hvis et felt kode representerer en koblet bilde, programmet " unlinks " feltet kode , noe som betyr at den erstattet image link med det faktiske bildet .

Public Sub embedImages ()

Dim i

Dim x

Dim nxtField

Set x = ActiveDocument.Fields ( 1 )

Mens Not ( x Er Nothing )

Set nxtField = x.Next
p Hvis x.Type = WdFieldType.wdFieldIncludePicture Deretter

x.Unlink

End If

Set 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 . bildet feltet koden fra trinn 3 er borte. programmet har erstattet det med bildet . Trykk " Alt" og " F9" to ganger for å bekrefte at ingen andre " INCLUDEPICTURE " feltkoder finnes i dokumentet.