Insertar Imagen en un rango de Celda de Excel

Este es un Ejemplo de cómo se pueden Insertar Imagen en un rango de celdas en una hoja de Excel, esto dependerá de la Ruta de la Imagen y a cuál Hoja del Libro de Excel te estas refiriendo, donde solo tendrás que digitar el Nombre de la Imagen y su extensión.

 

Veamos como Funcionara y los Pasos a Seguir.

 

 

Recuerda que las Imágenes deben estar en la misma carpeta donde se encuentra el Libro de Excel, para este ejemplo ya te incluye algunas imágenes de pruebas y también el Libro de Trabajo.

Ejecuta el Archivo y vete a estos 2 campos, es donde tu ingresaras los datos solicitados:

El primer campo es Digitar el Nombre de la Imagen, recuerda que puedes escribir el nombre ya sea en letras mayúsculas o minúsculas.

El segundo campo es la Extensión de la Imagen, aquí en este campo solo debes colocar la extensión las más comunes son “JPG” ó “PNG”, para mostrar la Imagen.

Esta es la Macro Utilizada en este Ejemplo y también al Final te dejare el Link de descarga y un vídeo de cómo lo puedes Utilizar.

Encontraras esta Macro en el Libro donde Insertaras la Imagen:

”’hacemos uso del evento (Worksheet_Change)
Private Sub Worksheet_Change(ByVal Target As Range)
”’Declaramos las Variables
Dim Imagen As Object
Dim LadoAr As Double
Dim LadoIz As Double
Dim LadoAch As Double
Dim LadoAlt As Double
Dim RutaIm As String
”’En caso de Error
On Error Resume Next

”’Eliminamos la Forma la cual no corresponda a la Referencia B3.

Me.Shapes(“Imagen”).Delete
”’Especificamos la Ruta de la Imagen, tomando como referencia el Nombre de la Imagen y la Extensión.
RutaIm = ThisWorkbook.Path & “\” & Range(“B4”).Value & “.” & Range(“B7”).Value
”’Insertamos la Imagen según la Ruta especificada.
Set Imagen = Me.Pictures.Insert(RutaIm)

”’En este Rango se Insertara la Imagen en forma proporcionada.

With Range(“J3:O20”)
LadoAr = .Top
LadoIz = .Left
LadoAch = .Offset(0, .Columns.Count).Left – .Left
LadoAlt = .Offset(.Rows.Count, 0).Top – .Top
End With

”’Ajustamos los lados de la Imagen Insertada a Rango J3:O20.

With Imagen
.Name = “Imagen”
.Top = LadoAr
.Left = LadoIz
.Width = LadoAch
.Height = LadoAlt
End With
Set Imagen = Nothing

”’Actualización de la Pantalla

Application.ScreenUpdating = True
End Sub

Como ves es una simple macro el cual sea de mucha utilidad, ya que lo puedes implementar en tus proyectos. Te dejare el Link para que descargues este Ejemplo.

Descargar el Ejemplo desde: AQUÍ

Demostración del Ejemplo: VER VÍDEO


  https://goo.gl/iQRzhu “Canal de Aguirre”

  https://goo.gl/FS4UcZ “Canal MacroExcel” Próximamente todos los vídeos disponibles aquí”

  https://goo.gl/qKpNFe “Pagina Oficial MacroExcel”

  https://goo.gl/cQQ7Gi “Facebook MacroExcel – ME”
❗Recuerda también: contamos con un grupo privado síguenos y envíanos la solicitud si deseas ayuda y aportar en la comunidad “MacroExcel – ME”

Categorías: Vba

Deja un comentario

WhatsApp Necesitas Ayuda?
A %d blogueros les gusta esto: