Como Cargar Una Imagen A UserForm ,
Tengo unos datos en la hoja 1, columna A = NOMBRE columna B = Puntaje Y al lado tengo una imagen vinculada con los datos que tengo en esas columnas como lo muestra la siguiente imagen :
d
Ahora teniendo estos datos en la hoja 1, lo que pretendo hacer es lo siguiente en la hoja 2 tengo un boton que me llama un formulario
Y cuando llame este formulario me cargue la imagen vinculada de la hoja 1
¿Alguna idea?
[Hola
Excel y VBA no tienen herramientas/instrucciones que permitan que esa imagen pase de modo simple a un "USerForm". Lo que hay que hacer es convertir el rango en imagen, exportarlo como archivo y después cargarlo al objeto "Image" de tu "USerform". Coloca esto en el módulo de tu "UserForm":
Private Sub UserForm_Initialize()
Dim Izquierda As Single, Arriba As Single, Ancho As Single, Alto As Single
Application.DisplayAlerts = False
With Worksheets("Hoja1").Range("A1:D5")
Izquierda = .Left
Arriba = .Top
Ancho = .Width
Alto = .Height
.CopyPicture
End With
With Worksheets("Hoja1").ChartObjects.Add(Izquierda, Arriba, Ancho, Alto)
.Chart.Paste
.Chart.Export "D:\Temporal.jpg"
.Delete
End With
Image1.Picture = LoadPicture("D:\Temporal.jpg")
Application.DisplayAlerts = True
End SubCambia el nombre de la hoja por la correspondiente, el rango por el tuyo y la ruta del archivo jpg por alguna que se adapte a tu PC.
Saludos]
Abraham Valencia
