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
VBA代码示例
• 倒计时： Sub delay(T As Single) Dim T1 As Single T1 = Timer Do DoEvents Loop While Timer - T1 < T End S示例
• 监听控件单击事件：
资料
• 在“给ppt中图片加滚动条的方法”文中详 细介绍了如何在ppt中给图片添加滚动条， 在此就不在赘述。 • 这里主要用VBA实现图片的自动滚动。 • 下载文件之后才能观看效果。
水平滚动条
放映时点击图片自动滚动，非放映 时双击图片查看代码
垂直滚动条
放映时点击图片自动滚动，非放映 时双击图片查看代码