VBA Excel 2010 CreateObject ExtendedProperty獲取圖像寬度屬性

Question

我正在使用類似的功能，通過使用某些vba代碼來獲取諸如Filename，bit depth，dimensions，size等一些屬性屬性。該函數的最後一行是像下面這樣：

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

現在，我想的是圖像文件的高度和寬度。我已將height和width置於ExtendedProperty屬性值中，但它並未給出該文件的高度和寬度。

請注意，在該圖像文件的屬性對話框中，在摘要選項卡中顯示的是Bit depth，但將其置於無效狀態。然後我把bitdepth，它成功地工作。名稱不區分大小寫。

好吧！現在我想獲得所選圖像文件的高度和寬度。我怎樣才能做到這一點？我的意思是在​​裏面放什麼來獲得高度和寬度。

對解決方案的早期答覆將不勝感激。

Answer 1

不能用，爲什麼Height和Width不工作有所幫助，但Dimensions似乎工作，返回類似?493 x 376?

Answer 2

一個字符串，我建議的解決辦法方法

在你的代碼替換size

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

到Dimensions 你會得到類似?493 x 376?

現在宣佈

字符串t = "?493 x 376?"

通過

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

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

'搜索 「X」

search_x = InStr(t, "x") 

的指數'，我們認爲是寬度和高度，是不明原因但我發現寬度開始爲「2」，高度爲「-8」，因此會給出數字