Cómo cargar una imagen en Excel en AutoOpen tiempo usando Visual Basic

Visual Basic ( VB ) es el lenguaje de programación de la suite Microsoft Office , incluyendo Excel. Con VB puede realizar las mismas funciones disponibles para los usuarios de la interfaz estándar de Excel , incluyendo la importación de gráficos cuando se abre un libro de trabajo. Un paso para escribir un programa de VB para realizar esta tarea es la identificación de las funciones y los objetos del modelo de objetos de Excel necesarias para importar imágenes. Este proyecto requiere relativamente pocas líneas de código del programa, y que hace que sea una introducción ideal a la programación VB para Excel. Instrucciones
1

Abrir Excel , a continuación, haga clic en la pestaña " Sheet1" en la parte inferior de la pantalla. Haga clic en " Ver código" elemento para mostrar el entorno de codificación VB .

2 Haga doble clic en el elemento " ThisWorkbook " en el panel "Proyecto" en la pantalla de la izquierda. Esta acción muestra una ventana de código en blanco que proporciona un espacio para entrar en los programas que afectan a todo el libro
3

clic en la lista más a la izquierda desplegable en la parte superior de la pantalla - . Que Actualmente muestra "General ". Haga clic en el elemento " libro " en esa lista. La lista de la derecha más desplegable mostrará una lista de las funciones que se ejecutan cuando se producen varios eventos que implica el libro. Una de estas funciones de eventos , " Abrir ", se ejecuta cuando se abre el libro primero .

4 Haga clic en la opción " Abrir" en la lista de la derecha más desplegable para crear una función de eventos en blanco llamada " Workbook_Open . " Pega el siguiente código de seguridad "End Sub" la declaración de la función: .

ActiveSheet.Pictures.Insert ( " " ) Seleccione
5

tipo sobre el texto "< ; YOUR_PICTURE_FILENAME_HERE > "con el nombre de ruta de un archivo de imagen de su disco duro ( por ejemplo," . C: \\ users \\ clarkkent \\ Pictures \\ MyBeachParty.jpg ")
6

Regresar a la interfaz estándar de Excel pulsando " Alt -F11 " y pulse "Alt + F4 " para iniciar el cierre del libro. Escriba un nombre de archivo para el libro cuando se le solicite , y seleccione " libro habilitado para macros (*. Xlsm ) " para el tipo de archivo.
7

a abrir el libro . El programa que completó en el paso 4 se ejecutará , y cargar el archivo gráfico especificado en una celda en la primera hoja .
8

retorno a su programa repitiendo el paso 2 , vuelva a colocar la instrucción actual en el programa con éste :

ActiveSheet.SetBackgroundPicture Nombre : = " "
9

Repita el paso 5 para modificar el código del programa para cargar la imagen de su disco duro , a continuación, cierre y vuelva a abrir el libro. Excel mostrará una imagen de fondo de azulejos en la primera hoja .
10

Vuelva a su programa en el entorno VB ( siguiendo las instrucciones del paso 2 ) . Reemplace la instrucción individual con los siguientes:

Dim strFile

strFile = InputBox ( "Enter cuadro nombre de ruta " )

ActiveSheet.SetBackgroundPicture fichero: = strFile

11

Cierre y vuelva a abrir el libro. El programa le pedirá el nombre de la ruta completa de un archivo gráfico de esta época . Introduzca el nombre de la ruta , haga clic en "OK " para cargar el gráfico en el fondo de la primera hoja de cálculo .