如何從 Excel 中的多張圖片提取超連結？

假設您在工作表中有一系列圖片，並且每張圖片都包含一個超連結，現在您希望從這些圖片中提取真實的超連結地址到它們旁邊的單元格中，如下方截圖所示。當然，您可以逐一從「 編輯超連結」對話框中複製超連結地址，但如果有多個超連結需要提取，這將非常耗時。在本文中，我將介紹一些方法，幫助您快速輕鬆地在 Excel 中完成此任務。

使用 VBA 程式碼從多張圖片中提取超連結

使用 VBA 程式碼從多張圖片中提取超連結

以下 VBA 程式碼可以幫助您一次性從多張帶有超連結的圖片中提取真實地址，請按照以下步驟操作：

1. 在 Excel 中按住 ALT + F11 鍵以打開 Microsoft Visual Basic for Applications 視窗。

2. 點擊 插入 > 模組，然後將以下程式碼粘貼到模組視窗中。

VBA 程式碼：從多張帶有超連結的圖片中提取真實地址

Sub ExtractHyperlinkFromPicture()
'updateby Extendoffice
    Dim xSh As Shape
    Dim xScreen As Boolean
    xScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For Each xSh In ActiveSheet.Shapes
        If xSh.Type = msoPicture Then
            On Error Resume Next
            Range(xSh.TopLeftCell.Address).Offset(0, 3).Value = xSh.Hyperlink.Address
            On Error GoTo 0
        End If
    Next
    Application.ScreenUpdating = xScreen
End Sub

3. 然後按下 F5 鍵運行程式碼，所有超連結地址都會被提取到圖片旁邊的相應單元格中，請參閱截圖：

注意：此程式碼將從當前工作表中的所有圖片提取真實地址。

使用 Kutools AI 解鎖 Excel 的魔法

• 智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
• 自訂公式：生成量身定制的公式，簡化您的工作流程。
• VBA 編碼：輕鬆編寫和實現 VBA 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！