VBA getPixelは常に-1を返します

Question

私は画像をExcelに読み込み、ピクセルのRGB値を2D配列に抽出しようとしています。

ただし、GetPixel関数を使用しようとすると、常に-1が返されます。私はそれがuserformに画像をロードしたことを確認しましたが、-1を返します。

Private Declare PtrSafe Function GetPixel Lib "gdi32" (ByVal hDC As LongPtr, ByVal x As Long, ByVal Y As Long) As Long 


Dim color As Long 
UserForm1.Image1.Picture = LoadPicture("D:\Dropbox\Dropbox\1.bmp") 
Debug.Print (UserForm1.Image1.Picture) 
Debug.Print (GetPixel(UserForm1.Image1.Picture.Handle, 100, 100)) 

Answer 1

getPixel機能がloadPictureと互換性がありません：

は、ここに私のコードです。

私の解決策は、表示されているユーザーフォームに画像を読み込んだ後、ユーザーフォームのピクセルを抽出することでした。