VISUAL BASIC EN EXCEL

Se utiliza para crear programas que pueden abrirse en excel

1. Habilitar la barra de herramientas desarrollador dando clic derecho en la barra de menu, clic en personalizar cinta de opciones y en el cuadro que aparece en la derecha seleccionar desarrollador y dar clic en aceptar

2. Crear un programa sencillo para abrir una imagen

    Dar clic en la pestaña desarrollador

    Dar clic en Visual Basic

    Dar clci en Insertar - UserForm

   En los controles, seleccionar Etiqueta y dibujar una etiqueta en el Formulario, deben aparecer las propiedades, sino aparece dar clci en Ver  y seleccionar ventana propiedades

   En Caption, escribir IMAGEN

   En Font, seleccionar tamaño 28, si quiere puede cambiar de color con ForeColor

   Dar clic en UserForm y dibuje un cuadro de  imagen debajo del texto

   Haga clic en la propiedad Picture, clci en los tres punticos y busque una imagen en imagenes o en descargas 

   Haga clic en la propiedad PictureSizeMode y seleccione el 3

   Ahora dibuje un boton debajo de la imagen, Seleccione la propiedad Caption y escriba Salir en mayusculas

   Haga doble clic en el boton y escriba END

   Cierre Visual Basic

   En excel, haga clic en Insertar y dibuje un Boton, en propiedades seleccione Caption y escriba Abrir imagen

   Haga doble clci en el boton y escriba UserForm1.Show, cierre la ventana, de modo que se vea excel

   haga clic en Modo Diseño y de clcie en el boton, debe aparecer el userform.

  Mostrar al profesor

ACTIVIDAD

1. CREAR DOS FORMULARIOS EN EXCEL UserForm1 y UserForm2

2. En el primer formulario una imagen y tres botones, el primero y el segundo abre una imagen diferente, el ultimo salir.

3. En el boton1, escribe image1.visible=true

                                       image2.visible=false

4. En el boton 2, escribe lo mismo pero intercambiando los botones

5. En el segundo formulario dos botones y una imagen, el primer boton muestra y esconde la imagen el segundo boton salir

6. En el boton1 escribe if image1.visible=false

                                         image1.visible=true

                                     else

                                        image1.visible=false

                                    end if

7. En excel crear dos botones, el primero abre el Userform1, el segundo abre el userform2.