Tecnología

Inicio

Cómo insertar imágenes en archivos VBS

El programa de base de datos Microsoft Access permite a los usuarios visualizar las imágenes en la página de resultados de datos. Si tiene muchas imágenes 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 tales casos para almacenar las imágenes en las secuencias de comandos VBS que se ejecutan en su base de datos. La inserción de las imágenes en archivos VBS hace que la ejecución de las operaciones de base de datos de acceso rápido.

Instrucciones

1 Haga clic en el botón "Inicio" de Windows y, a continuación, haga clic en "Visual Basic para aplicaciones."

2 Introduzca el código siguiente en la ventana abierta:

Sub PictureIntoComment ()

'Www.contextures.com \ xlcomments03.html

ch tenue Como ChartObject

Dim dWidth Como Doble

Dim dHeight Como Doble

WS dévil como hoja de trabajo

Dim como secuencia sName

cmt tenue Como comentario

Dim como secuencia sPath

Dim como secuencia sFile

RNG tenue como gama

Set ws = ActiveSheet

Conjunto RNG = ActiveCell

sPath = ThisWorkbook.Path & "\"

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

Nombre")

Si sName = "" Entonces sName = "Picture_" y formato (fecha, "aaaammdd")

sFile = sPath y sName y ".gif"

dWidth = Selection.Width

dHeight = Selection.Height

Selection.Cut

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

Anchura: = dWidth, Altura: = dHeight)

ch.Chart.Paste

rng.Activate

ch.Chart.Export sFile

ch.Delete

Establecer CMT = rng.AddComment

cmt.Text texto: = ""

con cmt.Shape

.Fill.UserPicture sFile

.Width = DWidth

.height = DHeight

Terminar con

End Sub

3 Clic en Guardar." Elegir un nombre para su script VBS y, a continuación, haga clic en el botón "OK" para insertar sus imágenes en el archivo VBS.