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

替代Excel 2010中的图片集合

1 个答案: