У меня есть картинка (она последняя среди фигур). Название у нее обычно 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