Truco Excel. Insertar imágenes con Visual Basic

Si deseáis insertar una imagen en Excel desde Visual Basic mediante una macro tenéis que ejecutar un código similar a este:


Sub inserta_imagen(hoja)
Sheets(hoja).Select
ActiveSheet.Pictures.Insert("C:\grafico.png").Select
With Selection.ShapeRange
.Top = Range("B5").Top
.Left = Range("B5").Left
End With
End Sub

En una hoja de vuestro libro de Excel insertáis el archivo especificado. Luego lo ubicáis donde sea necesario. En el ejemplo que os he puesto en la celda B5. Truco sencillo, saludos.

5 comentarios en “Truco Excel. Insertar imágenes con Visual Basic

  1. Gracias por su aporte me sirvio bastante, nada mas algo que quisiera que me ayudara seria una vez agregado las imagenes como le hago para borrar las mismas imagenes.
    saludos

  2. Aprende a realizar tus propios Códigos… o se equivoco de pagina ??? es solo para personas con un intelecto mínimo de lógica.. y para eso hay que estudiar …
    Saludos

  3. Worksheets(“nombrehoja”).Pictures.Insert(“c:\IMAGEN.JPG”).Select
    With Selection.ShapeRange
    .Top = Range(“B59”).Top
    .Left = Range(“B59”).Left
    End With

  4. Sub inserta_imagen()
    ‘nombrehoja entre comillas” ” igual la ruta entre comillas ” ”
    Worksheets(«nombrehoja»).Pictures.Insert(«c:\IMAGEN.JPG»).Select
    With Selection.ShapeRange
    .Top = Range(«B59»).Top
    .Left = Range(«B59»).Left
    End With

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *