Question

怎么设置PPT的超链接只能用一次？

Answer 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