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

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

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

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

4、在模块当中输入如下代码，然后运行

Public j As Integer, i As Integer

 

Private Sub UserForm_Activate()     '窗体激活时执行,让图片从右向左滚动

 

Me.Top=-(Me.Height-Me.Image1.Height)

 

Me.Image1.Left=0

 

Do

 

    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

 

      Loop

 

End Sub

 

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As

 

Integer, 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

 

    Loop

 

 Me.Top=0

 

 End Sub

 

Private Sub Image1_Click()        '单击图像时执行，让窗体恢复隐藏

 

 j=-(Me.Height-Me.Image1.Height) '变量j等于窗体高度减去图像高度

 

  For i=0 To j Step-1          '赋予变量范围从0到j,步进值为负1

 

  Me.Top=i                    '设定窗体上边距,此句可使窗体产生动态效果

 

  DoEvents

 

  Next

 

End Sub

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