随着手机里面功能越来越丰富,让我们使用起来越来越方便了,给我们的生活带来了极大的便利。怎样使用V幞洼踉残BA让图片循环滚动?
工具/原料
手机
方法/步骤
1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码,然后运行PublicjAsInteger,iAs咯悝滩镞IntegerPrivateSubUserForm_Activate()媪青怍牙'窗体激活时执行,让图片从右向左滚动Me.Top=-(Me.Height-Me.Image1.Height)Me.Image1.Left=0DoUserForm1.Image1.Left=UserForm1.Image1.Left-1/20DoEventsIfUserForm1.Image1.Left<=-UserForm1.Image1.Width*590/1000ThenUserForm1.Image1.Left=0EndIfLoopEndSubPrivateSubImage1_MouseMove(ByValButtonAsInteger,ByValShiftAsInteger,ByValXAsSingle,ByValYAsSingle)j=(Me.Height-Me.Image1.Height)'鼠标移过图像时执行,让窗体渐渐从隐藏到完全显示DoUntilMe.Top>-1'直到大于-1时停止,即=0Me.Top=Me.Top+1DoEventsLoopMe.Top=0EndSubPrivateSubImage1_Click()'单击图像时执行,让窗体恢复隐藏j=-(Me.Height-Me.Image1.Height)'变量j等于窗体高度减去图像高度Fori=0TojStep-1'赋予变量范围从0到j,步进值为负1Me.Top=i'设定窗体上边距,此句可使窗体产生动态效果DoEventsNextEndSub
5、用快捷键F5运行窗体,窗体隐藏于Excel程序最顶端,仅仅显示滚动的图像,如图