抓取Excel超链接并插入PowerPoint表格

我正在跟进两个问题（ Here ＆ Here ），这个问题是关于使用VBA从Excel获取超链接并将其插入到PowerPoint中的问题。

下面是我有的代码 – 我已经试过调整它，但我不能让它把超链接放入单元格，并显示文本，因为它永远不会超过这一点：

.Address = getAddress 

代码中断与此错误消息： “运行时错误'438'：对象不支持此属性或方法。

我很抱歉，如果这是一个rehash。 任何帮助，将不胜感激。

 Option Explicit Sub PPTableMacro() Dim oPPTApp As PowerPoint.Application Dim oPPTShape As PowerPoint.Shape Dim oPPTFile As PowerPoint.Presentation Dim SlideNum As Integer Dim strPresPath As String Dim strExcelFilePath As String Dim getAddress As Hyperlink strPresPath = "C:\Somewhere...\Presentation.pptm" Set oPPTApp = CreateObject("PowerPoint.Application") oPPTApp.Visible = msoTrue Set oPPTFile = oPPTApp.Presentations.Open(strPresPath) SlideNum = 4 oPPTFile.Slides(SlideNum).Select Set oPPTShape = oPPTFile.Slides(SlideNum).Shapes("Table 1") Sheets("Sheet1").Activate Set getAddress = Sheet1.Range("F1").Hyperlinks(1) oPPTShape.Table.Cell(1, 2).Shape.TextFrame.TextRange.Text = Cells(1, 1) oPPTShape.Table.Cell(2, 2).Shape.TextFrame.TextRange.Text = Cells(1, 2) oPPTShape.Table.Cell(3, 2).Shape.TextFrame.TextRange.Text = Cells(1, 3) oPPTShape.Table.Cell(4, 2).Shape.TextFrame.TextRange.Text = Cells(1, 4) oPPTShape.Table.Cell(5, 2).Shape.TextFrame.TextRange.Text = Cells(1, 5) With oPPTShape.Table.Cell(6, 2).Shape.TextFrame.TextRange.ActionSettings(ppMouseClick).Hyperlink .Address = getAddress.Address .TextToDisplay = "Link" End With Set oPPTShape = Nothing Set oPPTFile = Nothing Set oPPTApp = Nothing End Sub 

编辑：所以我一直在寻找networking谁遇到这个问题的其他人，但到目前为止我没有任何运气。 没有什么别的堆栈溢出，我可以find帮助，也没有find任何Office 2010的Microsoft开发人员网站上。我看了Hyperlink.TextToDisplay ="..."属性中提供的示例，它看起来像我一切正常。 我希望它不是一个便宜的镜头来编辑我的问题，希望有人能看到这个问题，但我不知道这个问题还有什么其他的。