Le programme de base de données Microsoft Access permet aux utilisateurs d'afficher les images sur leurs pages de rapport de données. Si vous avez beaucoup de photos correspondant au rapport , ou si chacun des fichiers d'image est grande, la taille de la base de données Access peut être augmenté de façon significative . Il est plus pratique dans de tels cas pour stocker les images dans les scripts VBS cours d'exécution dans votre base de données. L'insertion des images dans des fichiers VBS rend l'exécution des opérations de base de données Access rapidement. Instructions
1

Cliquez sur le bouton " Démarrer" de Windows , puis cliquez sur
2

Entrez le code suivant dans la fenêtre ouverte " Visual Basic pour Application . ": Photos

Sous PictureIntoComment ()

' www.contextures.com \\ xlcomments03.html

ch As ChartObject

dWidth As Double
< p> dHauteur As Double

ws As Feuille

sName Dim As String

cmt As Commentaire

sPath Dim As String
< p> sFile Dim As String

rng As Range

Set ws = ActiveSheet

Set rng = ActiveCell

sPath = ThisWorkbook.Path & "\\ "

sName = InputBox (" Nom de fichier image ( sans extension) " , " File

Name " )

Si sName =" "Then sName =" Picture_ " & Format (Date, "AAAAMMJJ" )

sFile = sPath & sName & ". gif"

dWidth = Selection.Width

dHauteur = Selection.Height

Selection.Cut

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

Largeur: = dWidth , Hauteur: = dHauteur )

ch.Chart.Paste

rng.Activate

ch.Chart.Export sFile

ch.Delete

Set cmt = rng.AddComment

texte cmt.Text : . . = ""

cmt.Shape

Fill.UserPicture sFile

Largeur = dWidth Photos

. Hauteur = dHauteur

End With End Sub

3

Cliquez sur "Enregistrer". Choisissez un nom pour votre script VBS , puis cliquez sur le bouton " OK " pour insérer vos photos dans le fichier VBS .