长图片ppt动条自动滚动.pptVIP

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