0

我正在使用类似的函数通过使用一些 vba 代码来获取一些属性属性，如Filename, bit depth,等。该函数的最后一行将类似于以下内容：dimensionssize

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

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

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

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

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

4

2 回答 2

0

无法解释为什么Height和Width不工作，但Dimensions似乎工作，返回一个字符串，如?493 x 376?

于 2012-06-17T22:46:04.337 回答
0

我建议解决方法

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”开始，这样会给出一个数字

于 2017-09-30T16:37:11.890 回答