Il programma di database Microsoft Access consente agli utenti di visualizzare le immagini sulle loro pagine del report di dati. Se si dispone di molte immagini relative alla relazione, o se ciascuno dei file di immagine è grande, la dimensione del database di Access può essere notevolmente aumentato. E 'più pratico in questi casi per memorizzare le immagini negli script VBS in esecuzione nel database. L'inserimento delle immagini in file VBS rende l'esecuzione delle operazioni di database accesso veloce.

istruzione

1 Fare clic sul pulsante "Start" di Windows, e quindi fare clic su "Visual Basic for Application".

2 Immettere il seguente codice nella finestra aperta:

Sub PictureIntoComment ()

'Www.contextures.com \ xlcomments03.html

ch fioco come ChartObject

Dim AumentoLargh As Double

Dim dHeight As Double

WS fiochi come foglio di lavoro

Dim sName As String

CMT fioco come commento

Dim sPath As String

Dim sFile As String

RNG Dim come gamma

Set WS = ActiveSheet

Set rng = ActiveCell

sPath = ThisWorkbook.Path & "\"

sName = InputBox ( "nome per il file immagine (senza estensione)", "File

Nome")

Se sName = "" Allora sName = "Picture_" e formato (data, "AAAAMMGG")

sFile = sPath & sName & ".gif"

dWidth = Selection.Width

dHeight = Selection.Height

Selection.Cut

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

Larghezza: = AumentoLargh, Altezza: = dHeight)

ch.Chart.Paste

rng.Activate

ch.Chart.Export sFile

ch.Delete

Set CMT = rng.AddComment

cmt.Text Testo: = ""

con cmt.Shape

.Fill.UserPicture sFile

.Width = AumentoLargh

.Height = DHeight

End With

End Sub

3 Fai clic su "Salva". Scegliere un nome per lo script VBS, e quindi fare clic sul pulsante "OK" per inserire le immagini nel file VBS.