|
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 .
|
