VBA Excel 2010 CreateObject ExtendedProperty获取图像宽度属性

我正在使用类似的函数，通过使用一些vba代码获得一些属性属性，如文件名、位深度、尺寸、大小等。该函数的最后一行类似于以下内容：

PicSize = CreateObject("Shell.Application").Namespace(vPth2).Parsename(sPic2).ExtendedProperty("size")

现在，我想得到图像文件的高度和宽度。我已经在ExtendedProperty属性值中添加了高度和宽度，但它没有提供该文件的高度和宽度

请注意，在该图像文件的“属性”对话框中的“摘要”选项卡中，它显示位深度，但将其放入并没有效果。然后我放入bitdepth，它成功地工作了。名称不区分大小写

好的！现在我只想得到所选图像文件的高度和宽度。我该怎么做？我的意思是在ExtendedProperty中放置什么来获得高度和宽度

---

如果您能尽早回复并提供解决方案，我们将不胜感激。

无法解释为什么高度和宽度不起作用，但维度似乎起作用，返回一个类似于？493 x 376？的字符串。

我建议采用变通方法

替换代码中的大小

PicSize=CreateObject("Shell.Application").Namespace(vPth2).Parsename(sPic2).ExtendedProperty("size")

到尺寸 你会得到大约？493 x 376

现在宣布

字符串t=？493 x 376

'搜索x的索引

search_x = InStr(t, "x")

“到那时，我们可以得到宽度和高度

width = Mid(t, 2, search_x - 2)

height = Mid(t, search_x + 2, Len(t) - 8)

这是未知的原因，但我发现从2的宽度和-8的高度开始，这样会给出一个数字