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