vba中获取指定路径图片中(1,1)位置的rgb值

你可以使用 VBA 中的 `LoadPicture` 函数来加载指定路径上的图片文件，然后使用 `GetPixel` 方法获取指定位置的 RGB 值。下面是一个示例代码，它可以获取图片文件中 (1,1) 位置的 RGB 值：

Sub GetRGBValue()
    Dim img As StdPicture
    Set img = LoadPicture("C:\path\to\image.png")
    Dim r As Long, g As Long, b As Long
    r = img.GetPixel(1, 1) Mod 256
    g = (img.GetPixel(1, 1) \ 256) Mod 256
    b = (img.GetPixel(1, 1) \ 256 \ 256) Mod 256
    MsgBox "R: " & r & ", G: " & g & ", B: " & b
End Sub

其中，`LoadPicture` 函数用于加载图片文件，`GetPixel` 方法用于获取指定位置的 RGB 值，`Mod` 和 `\` 运算符用于将 RGB 值分解为红、绿、蓝三个分量。