怎么设置PPT的超链接只能用一次，第二次的时候超链接失效

2025-01-01 11:41:10

推荐回答（5个）

回答1：

先插入按钮，有几个超级链接就插入几个按钮，然后编写程序就可以了
若有十张灯片，按钮都在第十张灯片上。语句是：
'点击按钮1则转到幻灯片第2页
Private Sub CommandButton1_Click()
ActivePresentation.SlideShowWindow.View.GotoSlide 2
'并且使按钮1变成“不可点击”状态
CommandButton1.Enabled = False
End Sub

Private Sub CommandButton2_Click()
ActivePresentation.SlideShowWindow.View.GotoSlide 5
CommandButton2.Enabled = False
End Sub

Private Sub CommandButton3_Click()
ActivePresentation.SlideShowWindow.View.GotoSlide 7
CommandButton3.Enabled = False
End Sub

'点击reset按钮把所有按钮都恢复成“可点击”的状态
Private Sub CommandButtonReset_Click()
Dim cmdb As CommandButton
'Slides(10)表示第10页幻灯片，也就是有这些按钮的幻灯片.就是所有按钮所在页面。
With ActivePresentation.Slides(10).Shapes
numShapes = .Count
If numShapes > 1 Then
numControls = 0
ReDim ctrlArray(1 To numShapes)
For i = 1 To numShapes
If .Item(i).Type = msoOLEControlObject Then
Set cmdb = .Item(i).OLEFormat.Object
cmdb.Enabled = True
End If
Next
End If
End With
End Sub

回答2：

把超链接那一页复制到链接目标的下一页然后把超链接删掉可否

回答3：

Office2013不会这样的，建议重新安装Office

回答4：

一般需要软件辅助，window 2003做不到

回答5：

我糙，这软件又升级了？现在还能对话？