De Microsoft database- programma Access stelt gebruikers in staat om de beelden op hun rapport pagina's weer te geven. Als u veel foto's met betrekking tot het rapport , of als elk van de beeldbestanden is groot , de grootte van de Access-database kan worden aanzienlijk toegenomen . Het is praktischer in dergelijke gevallen om de foto's op te slaan in de VBS scripts uitgevoerd in uw database. Het inbrengen van de foto's in VBS -bestanden maakt de uitvoering van de Access-database bewerkingen sneller . Instructies
1 Klik op de knop "Start " in Windows , en klik dan op kopen van 2 Voer de volgende code in het open raam " Visual Basic for Applications . " : Sub PictureIntoComment
( ) op ' www.contextures.com \\ xlcomments03.html Dim ch
Zoals ChartObject Dim dWidth
As Double
Dim dHeight As Double Dim ws
als Aantekenvel Dim sName
als Koord Dim cmt
Zoals Reactie Dim sPath
als Koord
Dim sFile als Koord Dim rng
als Waaier
Set ws = ActiveSheet Set
rng = ActiveCell sPath
= ThisWorkbook.Path & " \\ "
sName = InputBox ( " Naam voor foto -bestand ( zonder extensie ) " , " file Name
" ) op Twitter Als sName = " " dan sName = " picture_ " & Format ( Date , " yyyymmdd " ) op Twitter sFile = sPath & sName & " . gif " dWidth = Selection.Width dHeight
= Selection.Height
Selection.Cut Set l = ws.ChartObjects.Add
(Links : = rng.Left , Top : = rng.Top , _ Breedte
: = dWidth , Lengte: = ch.Chart.Paste
dHeight ) op Twitter rng.Activate ch.Chart.Export sFile
ch.Delete Set
cmt = rng.AddComment cmt.Text tekst
: . . = " "
Met cmt.Shape
Fill.UserPicture sFile
Breedte = dWidth
. Hoogte = dHeight End
Met End Sub
Klik
3 " Opslaan . " Kies een naam voor uw VBS script en klik op de knop "OK" om uw foto's invoegen in het VBS -bestand .
|
