1

これがxlsファイルからのコードです。Excel2010では機能しません。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コードは何でしょうか？

4

1 に答える 1

4

これを使用して、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
于 2012-09-05T11:46:02.397 に答える