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.