EXCEL VBA tif画像のプロパティ(page数がもらいたい)

実はVBAでtif画像のページ数が知りたいです。
教えてください。
ありがとうございます。

No.1 ベストアンサー 回答者： _Kyle 回答日時： 2009/07/27 00:11

なんか、いかにも「とりあえず」なコードですが…^^;;

下記のFunctionプロシージャを設置すれば、
　Sample(【対象ファイルのフルパス】,【プロパティ名】)
という形で対象ファイルのプロパティが得られます。

例えば、
'--------------↓　タトエバ　↓---------------
Sub test()
　MsgBox Sample("C:\hoge\piyo.tif", "ページ数")
End Sub
'------------↑　コンナカンジ　↑-------------
とすれば、
「C:\hoge」フォルダにある「piyo.tif」ファイルのページ数が表示されます。


'==========================↓　ココカラ　↓==========================
Function Sample(ByVal tgtPth As String, ByVal tgtIdx As String) As Variant
　Dim objShl As Object
　Dim fldNam As Variant
　Dim fleNam As Variant
　Dim tmpAry As Variant
　Dim i　　　As Long
　tmpAry = Split(tgtPth, "\")
　fleNam = tmpAry(UBound(tmpAry))
　fldNam = Left(tgtPth, Len(tgtPth) - Len(fleNam))
　Set objShl = CreateObject("Shell.Application")
　With objShl.Namespace(fldNam)
　　For i = 0 To 999
　　　If .GetDetailsOf("", i) = tgtIdx Then
　　　　Sample = .GetDetailsOf(.ParseName(fleNam), i)
　　　　Exit For
　　　End If
　　Next i
　End With
　Set objShl = Nothing
End Function
'==========================↑　ココマデ　↑==========================

以上ご参考まで。

この回答へのお礼

すごいですね！
本当にありがとうございました。

お礼日時：2009/08/04 01:24