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

 时间:2024-10-07 14:33:35

随着手机里面功能越来越丰富,让我们使用起来越来越方便了,给我们的生活带来了极大的便利。怎样使用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让图片循环滚动?

银杯的歌词 VB如何提前结束程序 修改excel纸张方向为横向用vba代码怎么写 如何通过Excel VBA设计用户信息查询工具 如何用VBA代码实现列表框的关闭与显示
热门搜索
李宇春图片 性感mm图片 橘子的图片 好好学习的图片 适合做微信头像的图片