テスト110

ExcelVBA

Posted at 2024-08-10


Public Sub Search_Image()

Dim obj As Variant

With ThisWorkbook.Sheets("テストA")

    For Each obj In .Shapes
    
        If obj.Type = msoPicture Then
            'シート内にあるオブジェクトが画像であれば終了
            MsgBox obj.Name
            Exit Sub
            
        End If
    
    Next obj
    
End With

End Sub

You get articles that match your needs
You can efficiently read back useful information
You can use dark theme

What you can do with signing up