Jump to content

Macro Excel Buscador de Data y Imagen


Recommended Posts

Posted

De momento, ahí va lo de buscar imágenes:


Private Sub CommandButton1_Click()
BuscarImagen Image1
End Sub

Private Sub CommandButton2_Click()
BuscarImagen Image2
End Sub

Private Sub CommandButton3_Click()
BuscarImagen Image3
End Sub

Private Sub BuscarImagen(Marco As Control)
imagen = Application.GetOpenFilename("Imágenes (*.jpg), *.jpg")
If imagen <> False Then
Marco.Picture = LoadPicture(imagen)
Marco.ControlTipText = imagen 'Aquí guardamos la ruta de la imagen
End If
End Sub


[/CODE]

En cuanto a:

[color=#4D5153]favor de enseñarme señores Maestros[/color]

Solo recordarte que el foro es un lugar de consulta, no de formación.

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy