今天宠物迷的小编给各位宠物饲养爱好者分享ppt设置超链接 没反应的宠物知识,其中也会对为什么PPT动作按钮不能设置链接为相对位置(在ppt中,动作按钮可以连接到)进行专业的解释,如果能碰巧解决你现在面临的宠物相关问题,别忘了关注本站哦,现在我们开始吧!
你看这样解决好吗,你知道PPT有一个打包功能,可以解决你的问题。
http://jingyan.baidu.com/article/636f38bb1f90a9d6b84610a7.html
百度经验,PPT如何打包呢。
希望可以帮到你。
你好!
ppt的链接可以打开其他文件或程序,这些文件必须位于ppt的同一文件夹下。如:ppt名为“superman.ppt",位置是d:\superman\superman.ppt,那么这个ppt的链接文件必须放在d:\superman\下。
如果你曾经将某个文件移到其他位置,现在可以将它移到原位置或复制到原位置,来恢复ppt的链接功能。
回答完毕,谢谢!
先插入按钮,有几个超级链接就插入几个按钮,然后编写程序就可以了
若有十张灯片,按钮都在第十张灯片上。语句是:
'点击按钮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
这个是内部链接,应该很好解决的啊。 你选定那些无效的链接,右击,弹出的框选择“编辑超链接“,然后看看有没有链接到本PPT中的某个页。如果指定到了,链接应该是OK的。
是不是这个PPT或者电子表格已经移动了在电脑上的保存位置?比如在某个电脑上,然后在其它电脑上打开PPT超链接,就无法打开了。建议按下面做应该没有问题了:
先创建一个文件夹,名命为“某某某”, 然后把这个PPT文件放在这个文件夹里,,需要链接的电子表格或音乐,都放在这一个文件夹里。如是需要转移到U盘上,就要把整个“某某某”文件夹复制到U盘上,这样,在用别的电脑打开,就可以打开链接了。
本文由宠物迷 百科常识栏目发布,非常欢迎各位朋友分享到个人朋友圈,但转载请说明文章出处“为什么PPT动作按钮不能设置链接为相对位置”