vba中Set Img = CreateObject("WIA.ImageFile") 后获取图片rgb

以下是使用VBA和WIA库获取图像RGB值的示例代码：

Sub GetRGBValues()
    Dim wia As Object
    Dim img As Object
    Dim buffer() As Byte
    Dim r, g, b As Integer
    Dim x, y As Integer
    
    ' 创建WIA对象
    Set wia = CreateObject("WIA.CommonDialog")

    ' 从对话框中选择图像
    Set img = wia.ShowAcquireImage()

    ' 将图像转换为字节数组
    buffer = img.FileData.BinaryData

    ' 循环遍历每个像素，并获取RGB值
    For y = 0 To img.Height - 1
        For x = 0 To img.Width - 1
            r = buffer((y * img.Width + x) * 3 + 2)
            g = buffer((y * img.Width + x) * 3 + 1)
            b = buffer((y * img.Width + x) * 3)
            ' 输出RGB值
            Debug.Print "Pixel at (" & x & "," & y & "): R=" & r & " G=" & g & " B=" & b
        Next x
    Next y
End Sub

该代码使用WIA库从对话框中选择图像，然后将图像转换为字节数组。接着，代码将循环遍历每个像素，并从字节数组中获取RGB值。最后，在控制台输出RGB值。您可以根据自己的需求进行修改。