Excel VBA中的Image控件实现上下左右滚动条 - 经验大全

刚在百度知道上看到有位朋友提问Image控件如何加滚动条的，搜索了一下没有相关资料，现在给大家制作滚动条的例子，并附上详细注释，希望能帮助到大家。

工具/原料

电脑
Excel

方法/步骤

1

这是在网上找了一个尺寸为1920*1080的原始图片来演示。
2

打开VBA，插入窗体，调整合适的窗体大小
3

添加一个Frame控件，在Frame控件里添加一个Image控件，在Frame控件右边添加一个ScrollBar控件，改名为VScrollBar，在Frame控件下边添加一个ScrollBar控件，改名为HScrollBar。
4

把Image控件的AutoSize属性设置为True，Picture属性选择你要载入的图片
5

填写控件代码。

'* 窗体初始化事件Private Sub UserForm_Initialize() '* 赋值竖向滚动条最大值 VScrollBar.Max = (Image1.Height - Frame1.Height) / 50 '如果嫌滚动条滑块小的话可以把这段中文注释删掉，只留/50。滑块就变大了 / 50 '* 赋值横向滚动条最大值 HScrollBar.Max = (Image1.Width - Frame1.Width) / 50 '如果嫌滚动条滑块小的话可以把这段中文注释删掉，只留/50。滑块就变大了 / 50End Sub'* 竖向滚动条滚动事件Private Sub VScrollBar_Scroll() '* 通过调整图像控件的Top值来实现图片滚动 Image1.Top = 0 - VScrollBar.Value * 50 '如果嫌滚动条滑块小的话可以把这段中文注释删掉，只留*50。滑块就变大了 * 50End Sub'* 横向滚动条滚动事件Private Sub HScrollBar_Scroll() '* 通过调整图像控件的Left值来实现图片滚动 Image1.Left = 0 - HScrollBar.Value * 50 '如果嫌滚动条滑块小的话可以把这段中文注释删掉，只留*50。滑块就变大了 * 50End Sub
6

运行测试效果图（滚动条滑块初始状态）
7

运行测试效果图（滚动条滑块增大状态）

END

注意事项

Frame控件的Caption的标题是可以删除掉的，删掉看起来更美观。本示例中仅演示用。
本条经验为原创作品，如果帮到您了，请动动手指给个投票或者留言，谢谢！

经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。

作者声明：本篇经验系本人依照真实经历原创，未经许可，谢绝转载。

展开阅读全部

文章评论