如题所述
å
æå
¥æé®ï¼æå 个è¶
级é¾æ¥å°±æå
¥å 个æé®ï¼ç¶åç¼åç¨åºå°±å¯ä»¥äº
è¥æåå¼ ç¯çï¼æé®é½å¨ç¬¬åå¼ ç¯çä¸ãè¯å¥æ¯ï¼
'ç¹å»æé®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
è¥æåå¼ ç¯çï¼æé®é½å¨ç¬¬åå¼ ç¯çä¸ãè¯å¥æ¯ï¼
'ç¹å»æé®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
温馨提示:答案为网友推荐,仅供参考
第1个回答 2014-03-12
把超链接那一页复制到链接目标的下一页然后把超链接删掉可否追问
行是行,但是这样要做好多,谢谢你啊,我已经解决了!
追答求解怎么做
追问其实也不算是超链接失效,只是我把背景设为浅蓝,然后利用强调,改变颜色,单击一次之后改变字体颜色为浅蓝,这样就会“隐藏”了
追答给力
第2个回答 2014-03-11
Office2013不会这样的,建议重新安装Office
第3个回答 2014-03-11
一般需要软件辅助,window 2003做不到追问
我是office 2013
需要什么辅助软件
追答具体叫什么我记不清了,您自己上网再看看吧,SORRY。
第4个回答 2014-03-12
我糙,这软件又升级了?现在还能对话?