订阅怎样使用VBA让图片循环滚动?
来源：网络收集 点击： 时间：2024-05-02首先在开发工具中打开VBA编辑器
2/5在单元格区域当中输入一些内容作为例子
3/5在VBA编辑器中插入模块
4/5在模块当中输入如下代码，然后运行
Public j As Integer, i As IntegerPrivate Sub UserForm_Activate() 窗体激活时执行,让图片从右向左滚动Me.Top=-(Me.Height-Me.Image1.Height)Me.Image1.Left=0Do UserForm1.Image1.Left=UserForm1.Image1.Left-1 / 20 DoEvents If UserForm1.Image1.Left =-UserForm1.Image1.Width * 590 / 1000 Then UserForm1.Image1.Left=0 End If LoopEnd SubPrivate Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift AsInteger, ByVal X As Single, ByVal Y As Single)j=(Me.Height-Me.Image1.Height) 鼠标移过图像时执行,让窗体渐渐从隐藏到完全显示Do Until Me.Top -1 直到大于-1时停止，即=0 Me.Top=Me.Top+1 DoEvents LoopMe.Top=0End SubPrivate Sub Image1_Click() 单击图像时执行，让窗体恢复隐藏j=-(Me.Height-Me.Image1.Height) 变量j等于窗体高度减去图像高度 For i=0 To j Step-1 赋予变量范围从0到j,步进值为负1 Me.Top=i 设定窗体上边距,此句可使窗体产生动态效果 DoEvents NextEnd Sub
5/5用快捷键F5运行窗体，窗体隐藏于Excel程序最顶端，仅仅显示滚动的图像，如图
注意事项智能手机助理给我们的生活带来了极大的便利！
版权声明：
1、本文系转载，版权归原作者所有，旨在传递信息，不代表看本站的观点和立场。
2、本站仅提供信息发布平台，不承担相关法律责任。
3、若侵犯您的版权或隐私，请联系本站管理员删除。
4、文章链接：http://www.1haoku.cn/art_654640.html
