VBA getPixel总是返回-1

Question

我试图将图片加载到excel中，并将其像素的RGB值提取到2D数组中。

但是，当我尝试使用GetPixel函数时，它总是返回-1。我确保它已经将图片加载到用户表单中，但仍然返回-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的像素。