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와 호환되지 않습니다 :

여기 내 코드입니다.

내 솔루션은 보이는 userform에 그림을로드 한 다음 userform의 픽셀을 추출하는 것이 었습니다.