Hvordan sette inn bilder i VBS-filer

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

Bruksanvisning

1 Klikk på "Start" -knappen i Windows, og klikk deretter på "Visual Basic for Application".

2 Skriv inn følgende kode i det åpne vinduet:

Sub PictureIntoComment ()

'Www.contextures.com \ xlcomments03.html

Dim ch Som ChartObject

Dim dWidth As Double

Dim dHeight As Double

Dim ws As Worksheet

Dim sName As String

Dim cmt Som kommentar

Dim Späth As String

Dim sFile As String

Dim RNG As Range

Sett ws = Active

Set RNG = ActiveCell

Späth = ThisWorkbook.Path & "\"

sName = InputBox ( "Name for bildefil (ingen forlengelse)", "File

Navn")

Hvis sName = "" Så sName = "Picture_" og format (dato, "ååååmmdd")

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

Sett cmt = rng.AddComment

cmt.Text Tekst: = ""

med cmt.Shape

.Fill.UserPicture sFile

.Width = DWidth

.Height = DHeight

End With

End Sub

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