Excel 2010中的图片集合的替代方法

这是来自xls文件的一些代码。 在Excel 2010中不起作用。 我无法在对象资源pipe理器中findPictures集合

 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