Как по картинке построить график в Exel

Private Sub Комманда1_Click()
Dim i, j, z, R, G, B, C, k
For i = 0 To P.Width
        For j = 0 To P.Height
        C = P.Point(i, j)
            B = C \ 65536
            G = (C - (C \ 65536) * 65536) \ 256
            R = C - (C \ 65536) * 65536 - ((C - (C \ 65536) * 65536) \ 256) * 256
            If R > 252 Then ' здесь ставить параметры цвета
                If G > 215 And G < 220 Then ' здесь ставить параметры цвета
                    If B > 177 And B < 195 Then ' здесь ставить параметры цвета
                    k = k + 1
                        Debug.Print k, i, j, C
                    End If
                End If
           End If
           P.PSet (i, j)
        Next
Next
End Sub

 Print #2, nRow, nCol

                If bmpPixel.r > 240 Then
                    If bmpPixel.g >= 120 And bmpPixel.g <= 220 Then
                        If bmpPixel.b >= 120 And bmpPixel.b <= 220 Then
                            Print #2, nRow, nCol
                            Cells(bmpInfoHeader.Altura - nRow, nCol + 1).Interior.Color = RGB(bmpPixel.r, bmpPixel.g, bmpPixel.b)
                        End If
                    End If
                End If