Excel VBA导出PDF时，MacOS下如何保留外部超链接？

问题背景 #

使用以下VBA脚本将Excel的Sheet1和Sheet2导出为PDF：

Sub Create_PDF()
Dim choice As Integer
Dim rng1 As Range, rng2 As Range
Dim fileSavePath As String          ' Prompt the user for their choice
Worksheets("sheet1").Visible = True
ThisWorkbook.Sheets(Array("sheet1", "sheet2")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
directory, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub

工作表包含带外部超链接的文本框，Windows导出的PDF链接正常，但MacOS下链接失效；尝试先转Word再转PDF，MacOS上该转换功能无法运行，需可行方法保留超链接。

方法1：修改VBA脚本，适配MacOS导出逻辑 #

MacOS的Excel对文本框超链接的ExportAsFixedFormat支持存在兼容性问题，可尝试逐个导出工作表为临时PDF后合并：

Sub Create_PDF_Mac()
    Dim ws As Worksheet
    Dim tempPaths As String
    Dim finalPath As String
    
    ' 自定义最终PDF保存路径（示例为桌面）
    finalPath = MacScript("return (path to desktop folder as string) & ""CombinedSheets.pdf""")
    tempPaths = ""
    
    ' 逐个导出工作表为临时PDF
    For Each ws In ThisWorkbook.Sheets(Array("sheet1", "sheet2"))
        ws.Visible = True
        ws.Activate
        Dim tempPath As String
        tempPath = MacScript("return (path to temporary items folder as string) & """ & ws.Name & ".pdf""")
        ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=tempPath, _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, OpenAfterPublish:=False
        tempPaths = tempPaths & """" & tempPath & """ "
    Next ws
    
    ' 用pdftk合并PDF（需先通过Homebrew安装：brew install pdftk-java）
    MacScript("do shell script ""/usr/local/bin/pdftk " & tempPaths & "cat output """ & finalPath & """ """)
    
    ' 删除临时文件
    MacScript("do shell script ""rm " & tempPaths & """")
    
    ' 打开最终PDF
    MacScript("do shell script ""open """ & finalPath & """ """)
End Sub

方法2：将文本框超链接转换为单元格超链接 #

MacOS的Excel对单元格超链接的PDF导出支持更稳定，可批量转换后再导出：

Sub ConvertTextBoxLinksToCells()
    Dim shp As Shape
    Dim ws As Worksheet
    
    For Each ws In ThisWorkbook.Sheets(Array("sheet1", "sheet2"))
        For Each shp In ws.Shapes
            If shp.Type = msoTextBox And shp.Hyperlink Is Not Nothing Then
                ' 在文本框对应位置的单元格插入超链接
                With ws.Cells(shp.TopLeftCell.Row, shp.TopLeftCell.Column)
                    .Value = shp.TextFrame2.TextRange.Text
                    .Hyperlinks.Add Anchor:=.Cells, Address:=shp.Hyperlink.Address
                End With
                ' 隐藏原文本框
                shp.Visible = msoFalse
            End If
        Next shp
    Next ws
End Sub

执行完该脚本后，再用原导出流程生成PDF，单元格超链接可在MacOS导出的PDF中正常生效。

方法3：调用MacOS系统打印功能导出 #

通过AppleScript调用系统打印框架，兼容性优于Excel内置导出：

Sub PrintToPDF_Mac()
    Dim printScript As String
    Dim finalPath As String
    
    finalPath = MacScript("return (path to desktop folder as string) & ""CombinedSheets.pdf""")
    
    printScript = "tell application ""Microsoft Excel""" & vbCrLf & _
                  "    activate" & vbCrLf & _
                  "    select sheets {""sheet1"", ""sheet2""}" & vbCrLf & _
                  "    print active window to pdf """ & finalPath & """ with properties {include doc properties:true, quality:standard}" & vbCrLf & _
                  "end tell"
    
    MacScript(printScript)
    MacScript("do shell script ""open """ & finalPath & """ """)
End Sub

内容的提问来源于stack exchange，提问作者user5764