vba中获取指定路径图片的像素宽度和像素高度，然后获取该图片的rgb数组

你可以使用 VBA 中的 `LoadPicture` 函数来加载指定路径上的图片文件，然后使用 `Width` 和 `Height` 属性获取图片的像素宽度和像素高度。接着，你可以使用嵌套的循环遍历每一个像素，并使用 `GetPixel` 方法获取每个像素的 RGB 值，将这些 RGB 值存储到一个二维数组中。下面是一个示例代码，它可以获取图片文件的像素宽度和像素高度，并将该图片的 RGB 值存储到一个二维数组中：

Sub GetRGBArray()
    Dim img As StdPicture
    Set img = LoadPicture("C:\path\to\image.png")
    Dim width As Long, height As Long
    width = img.Width
    height = img.Height
    Dim rgbArray() As Long
    ReDim rgbArray(1 To width, 1 To height)
    Dim x As Long, y As Long
    For x = 1 To width
        For y = 1 To height
            Dim r As Long, g As Long, b As Long
            r = img.GetPixel(x, y) Mod 256
            g = (img.GetPixel(x, y) \ 256) Mod 256
            b = (img.GetPixel(x, y) \ 256 \ 256) Mod 256
            rgbArray(x, y) = RGB(r, g, b)
        Next y
    Next x
End Sub

上述代码中，`LoadPicture` 函数用于加载图片文件，`Width` 和 `Height` 属性用于获取图片的像素宽度和像素高度，`ReDim` 语句用于定义一个二维数组来存储 RGB 值，然后使用嵌套的循环遍历每一个像素，并使用 `GetPixel` 方法获取每个像素的 RGB 值，最后将 RGB 值存储到二维数组中。