¿Cómo extraer imágenes de los comentarios en Excel?

En Excel, puedes insertar una imagen en un comentario tan fácilmente como lo desees, pero, ¿alguna vez has considerado extraer las imágenes de los cuadros de comentarios a celdas o a una carpeta específica? En este artículo, hablaré sobre cómo extraer las imágenes de los comentarios.

Extraer y guardar imágenes de los comentarios en una carpeta con la función Guardar como

Extraer imágenes de los comentarios a celdas con código VBA

Extraer y guardar imágenes de los comentarios en una carpeta con la función Guardar como

Si deseas extraer y guardar las imágenes de los comentarios en una carpeta, sigue estos pasos:

1. Copia la hoja que contiene los comentarios con las imágenes que deseas guardar en un nuevo libro en blanco.

2. Luego haz clic en Archivo > Guardar como para guardar este nuevo libro en formato Página Web en una carpeta específica, ver captura de pantalla:

3. Luego haz clic en el botón Guardar para guardar el archivo, después ve a la carpeta específica para ver las imágenes guardadas; se generan dos archivos en la carpeta, uno es el archivo html y otro es una carpeta que contiene todas las imágenes y otros archivos, ver captura de pantalla:

Descubre la Magia de Excel con Kutools AI

• Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
• Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
• Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
• Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
• Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.

Potencia tus capacidades de Excel con herramientas impulsadas por IA. ¡Descarga Ahora y experimenta una eficiencia como nunca antes!

Extraer imágenes de los comentarios a celdas con código VBA

Si deseas extraer las imágenes de los comentarios a celdas como se muestra en la siguiente captura de pantalla, aquí puedo crear un código VBA para ti, por favor sigue estos pasos:

1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.

Código VBA: Extraer imágenes de los comentarios a celdas:

Sub CommentPictures()
'Updateby Extendoffcie
    Dim cmt As Comment
    Dim xRg As Range
    Dim visBool As Boolean
    Dim cmtTxt As String
    Dim jpgPath As String
    Dim shpHeight As Integer, shpWidth As Integer
    Application.ScreenUpdating = False
    For Each cmt In ActiveSheet.Comments
        With cmt
            cmtTxt = .Text
            shpHeight = .Shape.Height
            shpWidth = .Shape.Width
            .Text Text:="" & Chr(10) & ""
            visBool = .Visible
            .Visible = True
            On Error Resume Next
            Set xRg = .Parent.Offset(0, 1)
            .Shape.CopyPicture _
              Appearance:=xlScreen, Format:=xlPicture
            xRg.PasteSpecial
            Selection.ShapeRange.LockAspectRatio = msoFalse
            Selection.Width = xRg.Width
            Selection.Height = xRg.Height
            .Visible = visBool
            .Text Text:=cmtTxt
        End With
    Next cmt
    Application.ScreenUpdating = True
End Sub

3. Luego presiona la tecla F5 para ejecutar este código, y todas las imágenes de los comentarios en la hoja de trabajo actual se han extraído en las celdas de la siguiente columna, ver captura de pantalla: