O programa de banco de dados Microsoft Access permite que os usuários para exibir as imagens em suas páginas de relatórios de dados. Se você tem muitos quadros relacionados com o relatório , ou se cada um dos arquivos de imagem é grande, o tamanho do banco de dados Access pode ser aumentado significativamente. É mais prático , nesses casos, para armazenar as imagens nos scripts VBS em execução no seu banco de dados. A inserção das fotos em arquivos VBS torna a execução das operações de banco de dados Access mais rápido. Instruções
1

Clique no botão " Iniciar" do Windows e clique em
2

Digite o seguinte código na janela aberta "Visual Basic for Applications . " :

Sub PictureIntoComment ()

' www.contextures.com \\ xlcomments03.html

Dim ch Como ChartObject

Dim dwidth As Double

Dim dHeight Como ws dobro

Dim Dim Planilha

sName As String Dim

cmt Como comentário

Dim sPath As String

Dim sFile As String

Dim rng Como Faixa

Set ws = ActiveSheet

Definir RNG = ActiveCell

sPath = ThisWorkbook.Path & " \\ "

sName = InputBox ( " Nome de arquivo de imagem ( sem extensão) "," arquivo

Name ")

Se sName =" "Then sName =" Picture_ " & Format ( Date , "AAAAMMDD" )

sFile = sPath & sName & " . gif"

dwidth = Selection.Width

dHeight = Selection.Height

Selection.Cut

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

Largura: = dwidth , Altura : = dHeight )

ch.Chart.Paste

rng.Activate

ch.Chart.Export sFile

ch.Delete

Set cmt = rng.AddComment

cmt.Text Texto: . . = ""

Com cmt.Shape

Fill.UserPicture sFile

Largura = dwidth

. Height = dHeight

End With End Sub

3

Clique em " Salvar". Escolha um nome para o script VBS , e , em seguida, clique no botão "OK" para inserir suas fotos no arquivo VBS .