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.