EXCELvba 封装函数之取得PDF文件尺寸,高X宽

bluesky_0

分享  EXCELvba 封装函数之取得PDF文件尺寸,高X宽的源代码

1. Public Function GetPDFPageSize(ByVal filePath As String, ByVal fileName As String, Optional units As String = "I") As String
   
2.     '获取PDF页面的宽度和高度
   
3.     'filePath 文件地址
   
4.     'fileName 文件名
   
5.     'unit 单位(I:英寸，C:厘米),默认是I
   
6.    
   
7.     ' 创建PDF文档对象
   
8.     Dim pdDoc As Object
   
9.     Set pdDoc = CreateObject("AcroExch.PDDoc")
   
10.    
    
11.     ' 打开PDF文件
    
12.     If pdDoc.Open(filePath & "" & fileName) Then
    
13.         ' 获取第一页的PDF页面对象
    
14.         Dim page As Object
    
15.         Set page = pdDoc.AcquirePage(0)
    
16.         
    
17.         ' 获取页面尺寸
    
18.         Dim pageRect As Object
    
19.         Set pageRect = page.GetSize
    
20.         
    
21.         ' 根据所选单位进行转换
    
22.         Dim width As Double, height As Double
    
23.         Select Case units
    
24.             Case "I" ' 英寸
    
25.                 width = pageRect.X '/ 72 * 96 ' 将页面宽度转换为英寸
    
26.                 height = pageRect.y '/ 72 * 96 ' 将页面高度转换为英寸
    
27.             Case "C" ' 厘米
    
28.                 width = pageRect.X '/ 72 * 2.54 ' 将页面宽度转换为厘米
    
29.                 height = pageRect.y '/ 72 * 2.54 ' 将页面高度转换为厘米
    
30.         End Select
    
31.         
    
32.         ' 关闭PDF页面和文档对象
    
33. '        page.Close
    
34.         pdDoc.Close
    
35.         
    
36.         ' 释放对象资源
    
37.         Set pageRect = Nothing
    
38.         Set page = Nothing
    
39.         Set pdDoc = Nothing
    
40.         
    
41.         ' 返回页面尺寸
    
42.         GetPDFPageSize = width & "x" & height
    
43.     End If
    
44. End Function

复制代码