GetDIBits не работает. Возвращает только нулевые значения для пикселей

Question

Я искал GetDIBits повсюду и, похоже, нашел обсуждение в любом другом приложении, кроме Excel 2016.

Я продолжаю возвращать 0 для всех значений пикселей. Я не знаю, является ли использование Image1.Picture.Handle правильным утверждением для hdc, и я не знаю, является ли Image1.Picture правильным утверждением для hbitmap.

Я даже не могу получить результат для отображения в окне изображения с помощью функции SetDIBits.

Большая часть контента в Интернете использует PictureBox и Autodraw, а также материалы, которых нет в Excel.

Может кто-нибудь, пожалуйста, помогите мне решить эту проблему. Это будет с благодарностью. Я бы опубликовал все объявления, но я не хотел загружаться с сайта, мой вопрос был слишком длинным. Заранее спасибо.

Private Sub CommandButton2_Click() 'Userform command button
Dim X As Long 'X coordinates for the pixels
Dim Y As Long 'Y coordinates for the pixels
Dim sw As BITMAP
Dim bmapinfo As BITMAPINFO 'Information about the bitmap
Dim xtPixels() As RGBPixel 'Array to place pixel data into
Dim oPic As IPictureDisp 'Declaration of picture used in this program
Set oPic = Image1.Picture 'making the picture an object
'All of the data below gives information about the picture
bmapinfo.bmiHeader.biSize = 40
bmapinfo.bmiHeader.biWidth = oPic.Width
bmapinfo.bmiHeader.biHeight = oPic.Height
bmapinfo.bmiHeader.biPlanes = 1
bmapinfo.bmiHeader.biBitCount = 24
'bmapinfo.bmiHeader.biCompression = BI_RGB
bmapinfo.bmiHeader.biXPelsPerMeter = ((((bmapinfo.bmiHeader.biWidth * bmapinfo.bmiHeader.biBitCount) + _
            31) \ 32) * 4)
        bmapinfo.bmiHeader.biYPelsPerMeter = bmapinfo.bmiHeader.biXPelsPerMeter - (((bmapinfo.bmiHeader.biWidth _
            * bmapinfo.bmiHeader.biBitCount) + 7) \ 8)
        bmapinfo.bmiHeader.biSizeImage = bmapinfo.bmiHeader.biXPelsPerMeter * Abs(bmapinfo.bmiHeader.biHeight)
  '  GetObjectAPI voPicture.Handle, LenB(tBmp), tBmp
  '  nBitCount = tBmp.bmWidth * tBmp.bmBitsPixel * tBmp.bmHeight \ 4
    ReDim xtPixels(1 To bmapinfo.bmiHeader.biWidth, 1 To bmapinfo.bmiHeader.biHeight)
'All of the data above gives information about the picture
        GetDIBits Image1.Picture.Handle, sw.bmBitsPixel, _
0, bmapinfo.bmiHeader.biHeight, xtPixels(1, 1), bmapinfo, _
DIB_RGB_COLORS


For Y = 1 To UBound(xtPixels, 1) - 1
    For X = 1 To UBound(xtPixels, 2) - 1
        'With xtPixels(Y, X)
        xtPixels(Y, X).Blue = xtPixels(Y, X).Blue
        xtPixels(Y, X).Green = xtPixels(Y, X).Green
        xtPixels(Y, X).Red = xtPixels(Y, X).Red
    Next X, Y
SetDIBits oPic.Handle, oPic.Handle, _
        0, bmapinfo.bmiHeader.biHeight, xtPixels(1, 1), _
        bmapinfo, DIB_RGB_COLORS
    'Set Image2.Picture = oPic.Render

End Sub