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

【问题标题】：VBA Excel 2010 CreateObject ExtendedProperty get image width attributeVBA Excel 2010 CreateObject ExtendedProperty 获取图像宽度属性
【发布时间】：2012-06-17 21:22:02
【问题描述】：

我正在使用类似的函数来获取一些属性属性，例如Filename、bit depth、dimensions、size 等，方法是使用一些 vba 代码。该函数的最后一行如下所示：

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

现在，我想获取该图像文件的高度和宽度。我已将 height 和 width 放在 ExtendedProperty 属性值中，但它没有给出该文件的高度和宽度。

请注意，在该图像文件的属性对话框中，在摘要选项卡中，它显示Bit depth，但放置它不起作用。然后我输入bitdepth，它成功了。名称不区分大小写。

好的！现在我只想获取所选图像文件的高度和宽度。我怎样才能做到这一点？我的意思是在ExtendedProperty() 里面放什么来获得高度和宽度。

非常感谢您尽早回复解决方案。

【问题讨论】：

标签： vba excel createobject

【解决方案1】：

不知道为什么Height 和Width 不起作用，但Dimensions 似乎起作用，返回一个类似?493 x 376? 的字符串

【讨论】：

【解决方案2】：

我建议解决方法

在您的代码中替换 size

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

到Dimensions 你会得到类似?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”开始，这样会给出一个数字

【讨论】：