Страницы: 1
RSS
GetPixel для фигуры эксель
 
Пытаюсь проанализировать картинку в экселе на наличия белых и черных пикселей, но не получается.
Эксель ругается на shp.hdc.
Читал справку по GetPixel, но не помогло.  Вот она https://docs.microsoft.com/en-us/windows/win32/api/wingdi/nf-wingdi-getpixel

У меня есть картинка (она последняя среди фигур). Название у нее обычно Picture111(и номер).
Вопрос сводится к тому, какой у нее handle (что ставить вместо shp.hdc).

Помогите плиз.
Код
Dim shp As Shape
With ActiveSheet
    Set shp = .Shapes(.Shapes.Count)
End With

For i = 0 To shp.Width
            For j = 0 To shp.Height
                tempColor = GetPixel(shp.hdc, i, j)
                If tempColor = vbWhite Then
                    nWhite = nWhite + 1
                ElseIf tempColor = vbBlack Then
                    nBlack = nBlack + 1
                End If
            Next j
Next i
 
Доброе время суток
Цитата
alexkos написал:
Вопрос сводится к тому, какой у нее handle
Увы, в объектной модели Shape нет ничего, чтобы позволяло бы получить такой handle.
 
Большое спасибо за ответ.
Проблему решил другим способом.
Страницы: 1
Наверх