Microsoft Access-databas programmet tillåter användare att visa bilder på sina uppgifter rapportsidorna . Om du har många bilder med anknytning till rapporten , eller om var och en av bildfiler är stor , kan storleken på Access-databas ökas betydligt . Det är mer praktiskt i sådana fall för att lagra bilderna i VBS skript som körs i din databas . Införandet av bilderna i VBS -filer gör utförandet av verksamheten Access-databas snabbare . Instruktioner
1
Klicka på "Start " -knappen i Windows och klicka sedan på
2
Skriv följande kod i det öppna fönstret " Visual Basic for Application . " :
Sub PictureIntoComment ( ) katalog
" www.contextures.com \\ xlcomments03.html
Dim ch Som ChartObject
Dim dWidth Som Double
Dim dHeight Som Double
Dim ws Som Arbetsblad
Dim sname As String
Dim CMT Som Kommentar
Dim SPATH As String
Dim sfile As String
Dim RNG Som Range
Set ws = ActiveSheet
Set RNG = ActiveCell
Spath = ThisWorkbook.Path & " \\ "
SNAME = InputBox ( " Namn på bildfil ( ingen förlängning ) " , " File
Name " ) katalog p Om SNAME = " " Då sname = " Picture_ " & Format ( Date , " ÅÅÅÅMMDD" ) katalog
sfile = Spath & SNAME & " . gif "
dWidth = Selection.Width
dHeight = Selection.Height
Selection.Cut
Set CH = ws.ChartObjects.Add ( Vänster : = rng.Left , Top : = rng.Top , _
Bredd : = dWidth , höjd : = dHeight ) katalog
ch.Chart.Paste
rng.Activate
ch.Chart.Export sfile
ch.Delete Set
cmt = rng.AddComment
cmt.Text Text : . . = " "
cmt.Shape
Fill.UserPicture sfile
Bredd = dWidth
. Höjd = dHeight
End With
End Sub
3
Klicka på " Spara ". Välj ett namn för din VBS script , och klicka sedan på " OK " -knappen för att sätta dina bilder i VBS-fil .
