Menú - Ciencias Naturales

Diseñe el siguiente formulario:

Copie el siguiente código :.
Private Sub Image1_Click()
  UserForm1.Show
End Sub

Private Sub Image2_Click()
  UserForm3.Show
End Sub

Private Sub Image3_Click()
 UserForm4.Show
End Sub

Private Sub Image4_Click()
  UserForm5.Show
End Sub

NOTA:
Debe crear un formulario por cada tema.

Imágenes y Lista - Tema Animales

Cree el siguiente diseño:

Adicione un objeto Image, Objeto Label y Una Lista.
y copie el siguiente código:
Private Sub ListBox1_Click()
With ActiveWorkbook
  Select Case ListBox1.ListIndex
    Case 0
      Image1.Picture = LoadPicture(.Path + "\Gato.jpg")
      Label1 = "Explico sobre el Gato"
    Case 1
      Image1.Picture = LoadPicture(.Path + "\tigres.jpg")
      Label1 = "Explico sobre el Tigres"
    Case 2
      Image1.Picture = LoadPicture(.Path + "\Leon.jpg")
      Label1 = "Explico sobre el Leon"
    Case 3
      Image1.Picture = LoadPicture(.Path + "\vaca.jpg")
      Label1 = "Explico sobre la Vaca"
    Case 4
      Image1.Picture = LoadPicture(.Path + "\Burro.jpg")
      Label1 = "Explico sobre el Burro"
  End Select
End With
End Sub

Private Sub UserForm_Initialize()
  ListBox1.AddItem "Gato"
  ListBox1.AddItem "Tigres"
  ListBox1.AddItem "Leon"
  ListBox1.AddItem "Vaca"
  ListBox1.AddItem "Burro"
End Sub

NOTA:

Deben estar los archivos de imágenes guardados en la misma carpeta del archivo de Excel.

Eventos MouseMove y Change con el objeto Image.

V.J.E

Asignatura: Tecnología e Informática.

Formación en Valor: Servicio.

Núcleo Integrador: Eventos MouseMove y Change con el objeto Image.

Indicador de desempeño: Programa el movimiento del mouse..

Exploración Cognitiva:

¿Que utilidad tiene programar el Mouse?

Taller:
Diseña el siguiente formulario:

Debes adicionar los siguientes Objetos:
Image

Label

Descarga la imagen e incorpórala  al formulario.

Cambiar las propiedades del objeto Image:

PictureSizeMode = 1 – fmPictureSizeModeStretch

Esta propiedad ajusta la imagen al tamaño asignado.

Cambiar las propiedades del objeto Label:

BackStyle = 0 – fmBackStyleTransparent

Esta propiedad coloca transparente el Label

Escucha la explicación para poder utilizar los objetos y luego copia este código:

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

  Label2 = ""

  Label1 = ""

End Sub

Private Sub Label3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

  Label2 = "Bus"

  Label1 = "Terrestre"

  Label9 = "Explicar el tema"

End Sub

Private Sub Label4_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

  Label2 = "Moto"

  Label1 = "Terrestre"

End Sub

Private Sub Label5_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

  Label2 = "Elicortero"

  Label1 = "Aereo"

  Label9 = "Explicar el tema"

End Sub

Private Sub Label6_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

  Label2 = "Carro"

  Label1 = "Terrestre"

  Label9 = "Explicar el tema"

End Sub

Private Sub Label7_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

  Label2 = "Avion"

  Label1 = "Aereo"

  Label9 = "Explicar el tema"

End Sub

Private Sub Label8_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

  Label2 = "Barco"

  Label1 = "Acuatico"

  Label9 = "Explicar el tema"

End Sub

Private Sub UserForm_Activate()

    With ActiveWorkbook   

      Image1.Picture = LoadPicture(.Path + "\medios-transporte.jpg")   

    End With

End Sub