如何使用VBA获取带关联名称的excel图像？

Sub GetImageWithAssociatedName()
    Dim ws As Worksheet
    Dim shp As Shape
    Dim imgName As String
    
    ' 设置工作表对象
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将"Sheet1"替换为您要操作的工作表名称
    
    ' 设置图像关联名称
    imgName = "Image1" ' 将"Image1"替换为您要获取的图像的关联名称
    
    ' 遍历工作表上的所有形状
    For Each shp In ws.Shapes
        ' 检查形状是否为图片类型并且具有指定的关联名称
        If shp.Type = msoPicture And shp.Name = imgName Then
            ' 在此处执行您想要的操作，例如将图像保存到本地文件
            ' 您可以使用shp.CopyPicture方法将图像复制到剪贴板，然后将其粘贴到其他位置
            ' 或者使用shp.Export方法将图像保存到本地文件
            ' 以下是一个示例，将图像保存到指定路径
            shp.CopyPicture
            SavePicture Clipboard.GetData(), "C:\Path\To\Save\Image.jpg" ' 将"C:\Path\To\Save\Image.jpg"替换为您要保存图像的路径
            Exit For ' 找到图像后退出循环
        End If
    Next shp
End Sub