替代Excel 2010中的圖片集合

Question

以下是xls文件中的一些代碼。在Excel 2010中它不起作用。我無法找到在對象資源管理器

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碼是什麼集合Pictures？

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