Excel VBA中的Image控件实现上下左右滚动条

有位朋友在百度知道上提问如何给Image控件加上滚动条，经过搜索发现没有相关资料。为了帮助大家，我制作了一个滚动条的例子，并附上详细注释。

准备工作

首先，在网上找一张尺寸为1920*1080的图片作为演示。然后打开VBA，插入窗体，并调整合适的窗体大小。

添加控件

接下来，在窗体上添加以下控件：

• 一个Frame控件
• 在Frame控件内部添加一个Image控件
• 在Frame控件右侧添加一个ScrollBar控件，并将其命名为VScrollBar
• 在Frame控件下方添加一个ScrollBar控件，并将其命名为HScrollBar

设置控件属性

设置Image控件的AutoSize属性为True，然后选择你要载入的图片。

编写控件代码

以下是需要填写的控件代码：

窗体初始化事件

Private Sub UserForm_Initialize()
    ' 赋值竖向滚动条最大值
      (Image1.Height - Frame1.Height) / 50
    ' 赋值横向滚动条最大值
      (Image1.Width - Frame1.Width) / 50
End Sub

竖向滚动条滚动事件

Private Sub VScrollBar_Scroll()
    ' 通过调整图像控件的Top值来实现图片滚动
      0 -  * 50
End Sub

横向滚动条滚动事件

Private Sub HScrollBar_Scroll()
    ' 通过调整图像控件的Left值来实现图片滚动
    Image1.Left  0 -  * 50
End Sub

测试效果

运行程序，测试滚动条的效果。以下是滚动条滑块初始状态的效果图：

(添加图片)

以下是滚动条滑块增大状态的效果图：

(添加图片)

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。