Cómo insertar imágenes en archivos VBS

El programa Microsoft Access base de datos permite a los usuarios visualizar las imágenes en sus páginas de informes de datos. Si tienes muchas fotos relacionadas con el informe, o si cada uno de los archivos de imagen es grande, el tamaño de la base de datos de acceso puede ser aumentado significativamente. Es más práctico en estos casos para almacenar las imágenes en las secuencias de comandos VBS que se ejecutan en la base de datos . La inserción de las imágenes de los archivos VBS hace que la ejecución de las operaciones de la base de datos de acceso rápido. Instrucciones
1

clic en el botón "Inicio" de Windows y, a continuación, haga clic en
2

Escriba el siguiente código en la ventana abierta "Visual Basic para Aplicaciones . ":

Sub PictureIntoComment ()

' www.contextures.com \\ xlcomments03.html

ch As ChartObject

dancho Dim As
doble < p> dalto Dim As Double

ws As Hoja

sName dévil como secuencia

cmt As comentario

sPath As
secuencia < p> sFile dévil como secuencia

rng As Range

Set ws = ActiveSheet

Set rng = ActiveCell

sPath = ThisWorkbook.Path & " \\ "

sName = InputBox (" Nombre de archivo de imagen (sin extensión) " , " Archivo

Name " )

Si sName =" "Then sName =" Picture_ " y formato (fecha , "AAAAMMDD " )

sFile = sPath y sName & ". gif"

dancho = Selection.Width

dalto = Selection.Height

Selection.Cut

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

Ancho: = dancho , Altura: = dalto )

ch.Chart.Paste

rng.Activate

ch.Chart.Export sFile

ch.Delete

Set cmt = rng.AddComment

Texto cmt.Text : . . = ""

cmt.Shape

Fill.UserPicture sFile

Ancho = dancho

. Altura = dalto

extremo con

End Sub
3

Haga clic en " Guardar". Elija un nombre para la secuencia de comandos VBS y , a continuación, haga clic en el botón " OK" para insertar sus imágenes en el archivo VBS .