如何从Excel的批注中提取图片？

在Excel中，您可以轻松地将图片插入到批注中，但您是否考虑过从批注框中提取图片到单元格或特定文件夹中呢？本文将介绍如何从批注中提取图片。

使用“另存为”功能从批注中提取并保存图片到文件夹

使用VBA代码从批注中提取图片到单元格

使用“另存为”功能从批注中提取并保存图片到文件夹

如果您想从批注中提取并保存图片到文件夹，请按照以下步骤操作：

1. 将包含所需保存批注图片的工作表复制到一个新的空白工作簿中。

2. 然后点击 文件 > 另存为，将这个新工作簿以网页格式保存到特定文件夹中，参见截图：

3. 然后点击 保存 按钮保存文件，接着前往特定文件夹查看保存的图片，文件夹中生成了两个文件，一个是html文件，另一个是包含所有图片和其他文件的文件夹，参见截图：

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！

使用VBA代码从批注中提取图片到单元格

如果您想将批注中的图片提取到单元格中，如下方截图所示，我可以为您创建一个VBA代码，请按以下步骤操作：

1. 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 点击 插入 > 模块，并将以下代码粘贴到模块窗口中。

VBA代码：从批注中提取图片到单元格：

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. 然后按 F5 键运行此代码，当前工作表中所有批注的图片都将被提取到下一列的单元格中，参见截图：