<strike id="mukyi"></strike>

<ul id="mukyi"></ul>

如何從Excel中的注釋中提取圖像？

網友投稿 503 2025-03-31

如何從Excel中的注釋中提取圖像？

在Excel中，您可以輕松地將圖像插入到注釋中，但是，您是否曾經考慮過將圖像從注釋框中提取到單元格或特定文件夾中？在本文中，我將討論如何從注釋中提取圖像。

使用“另存為”功能將注釋中的圖像提取并保存到文件夾中

使用VBA代碼將評論中的圖像提取到單元格中

使用“另存為”功能將注釋中的圖像提取并保存到文件夾中

如果要從注釋中提取圖像并將其保存到文件夾中，請執行以下操作：

1。將包含要保存圖像的注釋的工作表復制到新的空白工作簿中。

2。然后點擊文件 > 另存為 將此新工作簿另存為網頁格式在特定文件夾中，請參見屏幕截圖：

3。然后點擊優惠按鈕以保存文件，然后轉到特定的文件夾以查看保存的圖像，該文件夾中生成了兩個文件，一個是html文件，另一個是包含所有圖像和其他文件的文件夾，請參見屏幕截圖：

使用VBA代碼將評論中的圖像提取到單元格中

如果要按如下所示的截圖將評論中的圖像提取到單元格中，請在此處為您創建一個VBA代碼：

1。按住 ALT + F11 鍵打開 Microsoft Visual Basic應用程序 窗口。

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

Copy

3。然后按 F5 鍵以運行此代碼，并且當前工作表中所有注釋的圖像都已提取到下一個列單元格中，請參見屏幕截圖：

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？利用的力量 Kutools for Excel - 您終極的節省時間的工具。簡化復雜的任務并像專業人士一樣瀏覽數據。以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel

??? 超過 300 項強大功能: Kutools 包含 300 多項高級功能，可簡化您在 1500 多種場景中的工作。

?? 卓越的數據處理能力：合并單元格、刪除重復項并執行高級數據轉換 - 所有這些都不費吹灰之力！