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() '* 赋值竖向滚动条最大值 VScrol造婷用痃lBar.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、运行测试效果图（滚动条滑块增大状态）
