《长图片ppt滚动条自动滚动.ppt》由会员分享,可在线阅读,更多相关《长图片ppt滚动条自动滚动.ppt(5页珍藏版)》请在三一办公上搜索。
资料,在“给ppt中图片加滚动条的方法”文中详细介绍了如何在ppt中给图片添加滚动条,在此就不在赘述。这里主要用VBA实现图片的自动滚动。下载文件之后才能观看效果。,水平滚动条,放映时点击图片自动滚动,非放映时双击图片查看代码,垂直滚动条,放映时点击图片自动滚动,非放映时双击图片查看代码,VBA代码示例,倒计时:Sub delay(T As Single)Dim T1 As SingleT1=TimerDoDoEventsLoop While Timer-T1 TEnd Sub,在幻灯片浏览模式下,双击控件也可以查看代码,VBA代码示例,监听控件单击事件:Private Sub Frame1_Click()Dim frame As frameDim i As Integer,j As IntegerSet frame=Frame1Debug.PrintDebug.Printframe.ScrollTop=0For i=1 To 53frame.ScrollTop=frame.ScrollTop+10delay(0.1)Nextdelay(1)For i=1 To 53frame.ScrollTop=frame.ScrollTop-10delay(0.1)Nextframe.ScrollTop=0End Sub,