Excel – 从工作表中的链接图像中提取路径信息

Question

全部，
我有一个 Excel 电子表格，其中有一排图像通过 Insert\Picture From File 弹出窗口添加到工作表中。我没有嵌入图像，而是选择链接到文件的选项。我现在将工作表移动到 Access DB，但我不知道如何从图像行中提取每个链接图像的路径信息？

有谁知道我将如何做到这一点？任何帮助将不胜感激，在此先感谢 - CES

Answer 1

您通过 Insert\Picture From File popup window 插入 Excel 中的图片不保存为路径。他们“活”在 Excel 应用程序中。

为了将它们“移动”到 Access DB，您必须将它们保存在某处，从而记住路径。基于这里的答案 Export Pictures Excel VBA ，这是一种方法:

把图片放到图表上

修复大小

导出图表

删除图表

Public Sub TestMe()

    Dim pic As Shape
    Dim chrt As Chart
    Dim cnt As Long
    Dim ws As Worksheet
    Dim myPath As String

    Application.ScreenUpdating = False
    myPath = "C:\path\"
    Set ws = Worksheets(1)

    For cnt = 1 To ws.Shapes.Count
        If InStr(ws.Shapes(cnt).Name, "") > 0 Then
            Set chrt = Charts.Add.Location(Where:=xlLocationAsObject, Name:=ws.Name)
            chrt.ChartArea.Width = ws.Shapes(cnt).Width
            chrt.ChartArea.Height = ws.Shapes(cnt).Height
            chrt.Parent.Border.LineStyle = 0

            ws.Shapes(cnt).Copy
            chrt.ChartArea.Select
            chrt.Paste
            chrt.Export Filename:=myPath & ws.Shapes(cnt).Name & ".jpg"
            ws.ChartObjects(ws.ChartObjects.Count).Delete
        End If
    Next cnt

    Application.ScreenUpdating = True

End Sub