将工作簿导出为pdf文件时，如何保持所有超链接正常工作？

Question

使用Excel 2016 VBA和Workbook.ExportAsFixedFormat方法，如何保持多个工作表之间的超链接正常工作？

生成的pdf获取所有工作表和超链接格式，但它们不起作用。另一方面，与Microsoft Word一起使用时，相同的方法可使超链接正常工作。

我使用的代码如下，Sheet1具有指向Sheet2和Sheet3的超链接：

Sub ExportAsPDF()
ActiveWorkbook.Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
    "C:\tempo.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
     IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

Answer 1

我有一个类似的问题，我最终通过以下方法使其起作用：

1）我将链接移动到了不同的单元格，并将链接单元格的格式设置为“文本” 。

2）我在文本格式的字段上使用HYPERLINK()函数创建了要导出的链接。

那应该对你有用。