excel - Excel 2010 中图片集合的替代方案

Question

这是来自xls文件的一些代码。在 Excel 2010 中它不起作用。Pictures我在对象资源管理 器中找不到集合

Private Sub Worksheet_Calculate()

        Dim oPic As Picture
        'make them invisible
        For Each oPic In Me.Pictures
                    If Left(oPic.Name, 2) = "jq" Then
                                oPic.Visible = False
                    End If
        Next

end sub

等效的 2010 代码是什么？

Answer 1

使用它来循环浏览 Excel 中的图片

Sub Sample()
    Dim shp As Shape

    For Each shp In ActiveSheet.Shapes
        If shp.Type = msoPicture Then
            Debug.Print shp.Name
        End If
    Next
End Sub