VBA获取像素的颜色

Sub GetPixelColor()
    Dim filePath As String
    Dim bitmap As Object
    Dim pixelColor As Long
    
    ' 选择要打开的图像文件
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "选择图像文件"
        .Filters.Clear
        .Filters.Add "图像文件", "*.bmp;*.jpg;*.png"
        If .Show = -1 Then
            filePath = .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With
    
    ' 创建图像对象
    Set bitmap = CreateObject("System.Drawing.Bitmap")
    bitmap.Load (filePath)
    
    ' 获取像素颜色
    pixelColor = bitmap.GetPixel(100, 100)  ' 假设获取坐标为(100, 100)的像素颜色
    
    ' 分离RGB三个通道的值
    Dim red As Integer
    Dim green As Integer
    Dim blue As Integer
    red = pixelColor And 255
    green = (pixelColor \ 256) And 255
    blue = (pixelColor \ 65536) And 255
    
    ' 显示结果
    MsgBox "红：" & red & vbCrLf & "绿：" & green & vbCrLf & "蓝：" & blue
End Sub