长图片ppt滚动条自动滚动
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
资料
• 在“给ppt中图片加滚动条的方法”文中详 细介绍了如何在ppt中给图片添加滚动条， 在此就不在赘述。
• 这里主要用VBA实现图片的自动滚动。 • 下载文件之后才能观看效果。
水平滚动条
放映时点击图片自动滚动，非放映 时双击图片查看代码
垂直滚动条
放映时点击图片自动滚动，非放映 时双击图片查看代码
此课件下载可自行编辑修改，此课件供参考！ 部分内容来源于网络，如有侵权请与我联系删除！
Private Sub Frame1_Click() Dim frame As frame Dim i As Integer, j As Integer Set frame = Frame1 Debug.Print Frame1.Picture.Height Debug.Print Frame1.Picture.Width frame.ScrollTop = 0 For i = 1 To 53 frame.ScrollTop = frame.ScrollTop + 10 delay (0.1) Next delay (1) For i = 1 To 53 frame.ScrollTop = frame.ScrollTop - 10 delay (0.1) Next frame.ScrollTop = 0 End Sub
Βιβλιοθήκη Baidu
VBA代码示例
• 倒计时： Sub delay(T As Single) Dim T1 As Single T1 = Timer Do DoEvents Loop While Timer - T1 < T End Sub
在幻灯片浏览 模式下，双击 控件也可以查
看代码
VBA代码示例
• 监听控件单击事件：
• 在“给ppt中图片加滚动条的方法”文中详 细介绍了如何在ppt中给图片添加滚动条， 在此就不在赘述。
• 这里主要用VBA实现图片的自动滚动。 • 下载文件之后才能观看效果。
水平滚动条
放映时点击图片自动滚动，非放映 时双击图片查看代码
垂直滚动条
放映时点击图片自动滚动，非放映 时双击图片查看代码
此课件下载可自行编辑修改，此课件供参考！ 部分内容来源于网络，如有侵权请与我联系删除！
Private Sub Frame1_Click() Dim frame As frame Dim i As Integer, j As Integer Set frame = Frame1 Debug.Print Frame1.Picture.Height Debug.Print Frame1.Picture.Width frame.ScrollTop = 0 For i = 1 To 53 frame.ScrollTop = frame.ScrollTop + 10 delay (0.1) Next delay (1) For i = 1 To 53 frame.ScrollTop = frame.ScrollTop - 10 delay (0.1) Next frame.ScrollTop = 0 End Sub
Βιβλιοθήκη Baidu
VBA代码示例
• 倒计时： Sub delay(T As Single) Dim T1 As Single T1 = Timer Do DoEvents Loop While Timer - T1 < T End Sub
在幻灯片浏览 模式下，双击 控件也可以查
看代码
VBA代码示例
• 监听控件单击事件：