vba获取sheet里的图片

在 VBA 中获取一个工作表里的图片，可以通过遍历工作表上的所有形状来实现。形状可以是图片、图表、文本框等等。

以下是一个示例代码，可以获取指定工作表中所有的图片，并将图片保存到指定的文件夹中：

Sub GetPictures()
    Dim ws As Worksheet
    Dim shp As Shape
    Dim pic As Picture
    Dim outputFolder As String
    
    ' 指定要获取图片的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 指定输出文件夹
    outputFolder = "C:\Users\Username\Desktop\Output\"
    
    ' 遍历工作表上的所有形状
    For Each shp In ws.Shapes
        If shp.Type = msoPicture Then ' 判断形状是否为图片
            Set pic = shp.DrawingObject ' 获取图片对象
            pic.Export outputFolder & pic.Name & ".jpg" ' 导出图片
        End If
    Next shp
End Sub

这段代码首先指定了要获取图片的工作表和输出文件夹，在遍历工作表上的所有形状时，判断形状是否为图片，如果是，就获取图片对象并将其导出到指定的文件夹中。需要注意的是，这段代码只能获取工作表上插入的图片，如果图片是通过代码动态插入的，则无法获取。