Microsoft Access- database program giver brugerne mulighed for at vise billederne på deres datarapporten sider. Hvis du har mange billeder i forbindelse med rapporten , eller hvis hver af billedfiler er stort, kan størrelsen af ​​Access-databasen blive væsentligt forøget. Det er mere praktisk i sådanne tilfælde for at gemme billederne i VBS scripts , der kører i din database. Indsættelsen af ​​billederne i VBS -filer gør udførelsen af ​​Access-database operationer hurtigere. Instruktioner
1

Klik på "Start " knappen i Windows , og klik derefter på
2

Indtast følgende kode i det åbne vindue "Visual Basic for Application . " :

Sub PictureIntoComment ()

' www.contextures.com \\ xlcomments03.html

Dim ch Som ChartObject

Dim dWidth Som Double
< p> Dim dHeight Som Double

Dim ws Som Regneark

Dim SNAME As String

Dim CMT Som kommentar

Dim Späth As String
< p> Dim $ file As String

Dim RNG Som Range

Set ws = ActiveSheet

Set RNG = ActiveCell

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

SNAME = InputBox ( " Navn for billedfil ( ikke udvidet ) "," File

Name " )
p Hvis SNAME =" " Så SNAME =" Picture_ " & Format ( Date, "ÅÅÅÅMMDD" )

$ file = 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øjde: = dHeight )

ch.Chart.Paste

rng.Activate

ch.Chart.Export $ file

ch.Delete

Set CMT = rng.AddComment

cmt.Text Text: . . = " "

Med cmt.Shape

Fill.UserPicture $ file

Bredde = dWidth

. Højde = dHeight

End With

End Sub
3

Klik på " Gem". Vælg et navn til din VBS script, og klik derefter på " OK"-knappen for at indsætte dine billeder i VBS -filen.