Insertar varios comentarios con imagen en Excel usando macros

🔥 Tienes un catálogo de productos, alumnos o empleados?

👉 Te enseño cómo puede insertar varios comentarios con imagen incluida… con un sólo click.

Ver video Insertar muchos comentarios en Excel

Suscríbete al canal de EXCELeINFO en YouTube para aprender más de Excel y macros.

Cómo lo hacemos

Insertar comentarios con imagen en Excel de manera masiva - exceleinfo
Insertar comentarios con imagen en Excel de manera masiva – exceleinfo

Tenemos un rango en Excel donde especificamos la ruta completa de la imágnes que deseamos usar en los comentarios.

Si tienes ya las imágenes en una ruta específica, puedes usar EXCELeINFO add-in para devolver a Excel la ruta completa de ellas.

  • Te vas a la pestaña EXCELeINFO.
  • En la sección Archivos elijes Listar nombres de archivos de una carpeta.
  • La seleccionas y listo.

Código VBA de la macro

Esta macro la incluyes en un Módulo normal y luego la mandas llamar desde un botón o una imagen.

'Mi canal de YouTube | youtube.com/user/sergioacamposh
'Mi Sitio | exceleinfo.com
'Descarga mi add-in | addin.exceleinfo.com
'Obtén la Certificación Excel Expert | exceleinfo.com/certificacion-mos

Sub MuchasImagenes()
Dim Comentario As Object

ThisWorkbook.Sheets("Hoja1").Range("D4").Select

Do While ActiveCell.Value <> ""

    Application.ActiveCell.ClearComments
    
    Set Comentario = Application.ActiveCell.AddComment
    
    Comentario.Text Text:=""
    Comentario.Shape.Fill.UserPicture (ActiveCell.Offset(0, -1).Value)
    Comentario.Shape.ScaleHeight 3, msoFalse
    Comentario.Shape.ScaleWidth 1.6, msoFalse
    
    ActiveCell.Offset(1, 0).Select

Loop

End Sub

Descarga el archivo para practicar

Insertar muchos comentarios con imágenes – EXCELeINFO.zip

⭐ Si te gustó este tutorial, por favor regístrate en nuestra Lista de correo y Suscríbete a nuestro canal de YouTube para que estés siempre enterado de lo nuevo que publicamos.

Leave a Comment

Your email address will not be published. Required fields are marked *

Scroll to Top