刚在百度知道上看到有位朋友提问Image控件如何加滚动条的，搜索了一下没有相关资料，现螅岔出礤在给大家制作滚动条的例子，并附上详细注释，希望能帮助到大家。
工具/原料
电脑
Excel
方法/步骤
1、这是在网上找了一个尺寸为1920*1080的原始图片来演示。
2、打开VBA，插入窗体，调整合适的窗体大小
3、添加一个Frame控件，在Frame控件里添加一个Ima壹执慵驾ge控件，在Frame控件右边添加一个ScrollBar着抹较氰控件，改名为VScrollBar，在Frame控件下边添加一个ScrollBar控件，改名为HScrollBar。
4、把Image控件的AutoSize属性设置为True，Picture属性选择你要载入的图片
5、填写控件代码。'*窗体初始化事件Private咯悝滩镞SubUserForm_Initialize()'*赋值竖向滚动条最大值VScrol造婷用痃lBar.Max=(Image1.Height-Frame1.Height)/50'如果嫌滚动条滑块小的话可以把这段中文注释删掉，只留/50。滑块就变大了/50'*赋值横向滚动条最大值HScrollBar.Max=(Image1.Width-Frame1.Width)/50'如果嫌滚动条滑块小的话可以把这段中文注释删掉，只留/50。滑块就变大了/50EndSub'*竖向滚动条滚动事件PrivateSubVScrollBar_Scroll()'*通过调整图像控件的Top值来实现图片滚动Image1.Top=0-VScrollBar.Value*50'如果嫌滚动条滑块小的话可以把这段中文注释删掉，只留*50。滑块就变大了*50EndSub'*横向滚动条滚动事件PrivateSubHScrollBar_Scroll()'*通过调整图像控件的Left值来实现图片滚动Image1.Left=0-HScrollBar.Value*50'如果嫌滚动条滑块小的话可以把这段中文注释删掉，只留*50。滑块就变大了*50EndSub
6、运行测试效果图（滚动条滑块初始状态）
7、运行测试效果图（滚动条滑块增大状态）
