用户界面的基本特征:vba如何获取tif格式图片的原始尺寸( 宽度和高度值)
来源:百度文库 编辑:中财网 时间:2024/04/28 05:58:21
vba如何获取tif格式图片的原始尺寸( 宽度和高度值)
对于gif,jpg,bmp在网上能找到处理的方法。对于tif格式,不知道怎么处理好,要求利用vba得到它的原始尺寸(宽度和高度值)。
查了一下TIFF文档。
Sub mmm()
Dim strFile As String
Dim lOffsetIFD As Long
Dim iTemp As Integer
Dim lTemp As Long
Dim iCountIFD As Integer
Dim strFileType As String
Dim i As Integer
Dim lHeight As Long
Dim lWidth As Long
Dim k As Integer
strFile = "C:\normal.tif"
Open strFile For Binary As #1
strFileType = String$(2, 0)
Get #1, , strFileType
If strFileType <> "II" Then Close #1: Exit Sub
Get #1, , iTemp
Get #1, , lOffsetIFD
Seek #1, lOffsetIFD + 1
Get #1, , iCountIFD
k = 0
For i = 1 To iCountIFD
Get #1, , iTemp
If iTemp = 256 Then
Get #1, , iTemp
Get #1, , lTemp
Get #1, , lWidth
k = k + 1
ElseIf iTemp = 257 Then
Get #1, , iTemp
Get #1, , lTemp
Get #1, , lHeight
k = k + 1
Else
Get #1, , iTemp
Get #1, , lTemp
Get #1, , lTemp
End If
If k = 2 Then Exit For
Next i
Close #1
Debug.Print "Width:" & lWidth & vbCrLf & "Height:" & lHeight
End Sub