订阅Excel VBA中的Image控件实现上下左右滚动条
来源：网络收集 点击： 时间：2024-04-10这是在网上找了一个尺寸为1920*1080的原始图片来演示。
2/7打开VBA，插入窗体，调整合适的窗体大小
3/7添加一个Frame控件，在Frame控件里添加一个Image控件，在Frame控件右边添加一个ScrollBar控件，改名为VScrollBar，在Frame控件下边添加一个ScrollBar控件，改名为HScrollBar。
4/7把Image控件的AutoSize属性设置为True，Picture属性选择你要载入的图片
5/7填写控件代码。
* 窗体初始化事件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运行测试效果图（滚动条滑块初始状态）
7/7运行测试效果图（滚动条滑块增大状态）
注意事项Frame控件的Caption的标题是可以删除掉的，删掉看起来更美观。本示例中仅演示用。
本条经验为原创作品，如果帮到您了，请动动手指给个投票或者留言，谢谢！
EXCELVBAIMAGE控件滚动条版权声明：
1、本文系转载，版权归原作者所有，旨在传递信息，不代表看本站的观点和立场。
2、本站仅提供信息发布平台，不承担相关法律责任。
3、若侵犯您的版权或隐私，请联系本站管理员删除。
4、文章链接：http://www.1haoku.cn/art_483680.html
