养生 装修 购物 美食 感冒 便秘 营销 加盟 小吃 火锅 管理 创业 搭配 减肥 培训 旅游

怎样使用VBA让图片循环滚动?

时间:2024-11-10 17:36:48

随着手机里面功能越来越丰富,让我们使用起来越来越方便了,给我们的生活带来了极大的便利。怎样使用V幞洼踉残BA让图片循环滚动?

怎样使用VBA让图片循环滚动?

工具/原料

手机

方法/步骤

1、首先在开发工具中打开VBA编辑器

怎样使用VBA让图片循环滚动?

2、在单元格区域当中输入一些内容作为例子

怎样使用VBA让图片循环滚动?

3、在VBA编辑器中插入模块

怎样使用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

怎样使用VBA让图片循环滚动?

5、用快捷键F5运行窗体,窗体隐藏于Excel程序最顶端,仅仅显示滚动的图像,如图

怎样使用VBA让图片循环滚动?

© 一点知识