【解決方法】VBA Excelで画像をインポートするにはどうすればよいですか?

プログラミングQA

2023.04.04

やあみなさん。
System.Drawing を使用して、イメージをプロジェクトにインポートしました。
画像をインポートして、その 10 行目のすべての黒いピクセルを見つける必要があります。
しかし、画像の読み込み時にエラーが発生します。
つまり4行目。

何か助けてください。

PS: 両方にチェックを入れました System.drawing.dll と 診断コンテンツプロファイルライブラリ 参照で。

私が試したこと：

以下は私のコードです：

Private sampleImage As Bitmap
Public Sub ImageLoading()
    Dim sampleFileName As String
    sampleFileName = ThisWorkbook.Path & "\Sample.bmp"
    sampleImage = New Bitmap(Image.FromFile(sampleFileName))

    Dim c1
    For x1 = 1 To 1080
        c1 = sampleImage.GetPixel(x1, 10)
        If c1 = 0 Then debug.print ("Pixel " & x1 & " is Black.")
    Next x1
end sub