Das Microsoft Access-Datenbank -Programm ermöglicht es Benutzern, die Bilder auf ihre Daten Bericht Seiten anzuzeigen. Wenn Sie viele Bilder im Zusammenhang mit dem Bericht , oder wenn jeder der Bilddateien sehr groß sind , kann die Größe der Access-Datenbank deutlich gesteigert werden. Es ist praktischer in solchen Fällen , um die Bilder in den VBS-Scripte laufen in der Datenbank speichern . Das Einfügen der Bilder in VBS-Dateien macht die Ausführung der Access-Datenbank -Operationen schneller. Anleitung
1

Klicken Sie auf die Schaltfläche "Start" in Windows , und klicken Sie dann auf
2

Geben Sie den folgenden Code in das offene Fenster " Visual Basic for Application . ":

Sub PictureIntoComment ()

' www.contextures.com \\ xlcomments03.html

Dim ch Wie ChartObject

Dim dWidth As Double
< p> Dim dheight As Double Dim

ws As Worksheet Dim

sName As String Dim cmt

als Kommentar

Dim sPath As String
< p> Dim sFile As String Dim rng

As Range

Set ws = ActiveSheet

Set rng = ActiveCell

sPath = ThisWorkbook.Path & "\\ "

sName = InputBox (" Name für Bild -Datei ( ohne Erweiterung) "," Datei

Name ")

Wenn sName =" "Then sName =" Picture_ " & Format ( Datum, "JJJJMMTT" )

sFile = sPath & sName & " . gif"

dWidth = Selection.Width

dheight = Selection.Height

Selection.Cut

Set ch = ws.ChartObjects.Add (Left : = rng.Left , Top : = rng.Top , _

Breite: = dWidth , Höhe: = dheight )

ch.Chart.Paste

rng.Activate

ch.Chart.Export sFile

ch.Delete

Set cmt = rng.AddComment

cmt.Text Text: . . = ""

cmt.Shape

Fill.UserPicture sFile

Breite = dWidth

. Height = dheight

End With End Sub

3

Klicken Sie auf " Speichern". Wählen Sie einen Namen für Ihre VBS-Skript , und klicken Sie dann auf die Schaltfläche "OK" , um Ihre Bilder in der VBS -Datei einfügen .