The Microsoft Access database program lar brukerne å vise bildene på sine data rapport sider. Hvis du har mange bilder relatert til rapporten , eller om hver av bildefilene er store, kan størrelsen på Access-databasen økes betydelig . Det er mer praktisk i slike tilfeller til å lagre bildene i VBS skript som kjører i databasen. Innsetting av bildene i VBS -filer gjør utførelsen av Access- database operasjoner raskere . Instruksjoner
en

Klikk på "Start "-knappen i Windows , og klikk deretter på
2

Skriv inn følgende kode i det åpne vinduet " Visual Basic for Application. " :

Sub PictureIntoComment ( )

' www.contextures.com \\ xlcomments03.html

Dim lm Som ChartObject

Dim dWidth Som Double
< p> Dim dHeight Som Double

Dim ws As regneark

Dim sName As String

Dim CMT Som Kommentar

Dim Späth As String
< p> Dim sFile As String

Dim rng Som Range

Set ws = ActiveSheet

Set rng = ActiveCell

Späth = ThisWorkbook.Path & " \\ "

sName = InputBox ( " Name for bildefil ( uten filtype ) "," File

Name " )
p Hvis sName =" " Så sName = " Picture_ " og format ( dato , " yyyymmdd ")

sFile = Späth & sName & " . gif "

dWidth = Selection.Width

dHeight = Selection.Height

Selection.Cut

Set lm = ws.ChartObjects.Add (Venstre : = rng.Left , Top: = rng.Top , _

Bredde: = dWidth , Høyde: = dHeight )

ch.Chart.Paste

rng.Activate

ch.Chart.Export sFile

ch.Delete

Set CMT = rng.AddComment

cmt.Text Tekst: . . = ""
p Med cmt.Shape

Fill.UserPicture sFile

Width = dWidth

. Høyde = dHeight

End With

End Sub
3

Klikk på " Lagre". Velg et navn for VBS script , og klikk deretter på " OK "-knappen for å sette bildene i VBS filen .