Índice

Solución 14.18 Gestionar imágenes

Private strImagenSeleccionada As String  
--------------------------------------------------  
Private Sub cmdMostrarImagen_Click()  
  Worksheets("Imágenes").Activate  
  Range("A1").Select  
  ActiveSheet.Pictures.Insert (strImagenSeleccionada)  
End Sub  
--------------------------------------------------   ...