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

プログラミングQA

2023.04.04

[ad_1]

やあみなさん。
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

解決策 1

システムへのアクセスがなければ、おそらくそれほど多くのことを助けることはできませんが、問題を引き起こしているのはマクロの場所であると推測されます.

マクロがワークブック自体ではなく (たとえば) personal.xls にある場合、 ThisWorkbook.Path 画像を含むアクティブなワークブックフォルダーではなく、personal.xls が含まれているフォルダーを返します。

デバッガーを使用して、実際のフォルダーパスを調べることから始めます。 sampleFileName 画像を読み込もうとする直前に、それを画像への「実際の」フォルダーパスと比較します。

[ad_2]