书接上文，以下是VBA用户窗体中常用控件的详细解析，涵盖核心属性、关键事件、典型应用场景及代码示例，助您精准掌握每个控件的使用方法。

三、核心控件精讲

3.8.图像控件（Image）

3.8.1、图像控件是什么？

Image控件是VBA中用于在用户窗体（UserForm）上显示图片的容器，支持常见图片格式（如BMP、JPG、GIF、PNG）。常用于制作可视化界面、显示图表或图标。

用途：显示图片（如Logo、产品图）。
核心属性：

Picture：加载图片文件（.jpg, .bmp, .png等）。
PictureSizeMode：图片缩放模式（0 - 原始大小，1 - 拉伸填充，3 - 缩放适应）。

示例代码：

' 动态更换图片
Private Sub btnChangeImage_Click()
    Image1.Picture = LoadPicture("C:\Logo.png")
End Sub

3.8.2、快速上手四步法

步骤1：插入用户窗体

打开VBA编辑器（Alt+F11）
右键项目 → 插入 → 用户窗体

步骤2：添加Image控件

打开工具箱（按F4或视图→工具箱）

选择Image控件 → 在窗体上拖动绘制区域

步骤3：设置基础属性

' 属性窗口设置（F4调出）：
名称：imgLogo       ' 控件命名
Picture：选择图片路径  ' 加载图片
PictureSizeMode：1-fmPictureSizeModeStretch ' 缩放模式
Visible：True       ' 是否可见

步骤4：动态加载图片

' 通过代码加载图片
Private Sub UserForm_Initialize()
    imgLogo.Picture = LoadPicture("C:\logo.png") ' 绝对路径
    ' 或使用相对路径（需设置正确工作目录）
    ' imgLogo.Picture = LoadPicture(ThisWorkbook.Path & "\logo.png")
End Sub

3.8.3、核心属性详解

1. 外观与布局

属性名称	数据类型	说明	示例值/选项
Picture	IPictureDisp	设置或返回控件显示的图片（支持.bmp, .jpg, .gif, .png, .ico等）	Image1.Picture = LoadPicture("C:\image.jpg")
PictureAlignment	Integer	图片在控件内的对齐方式	0 - fmPictureAlignmentTopLeft（左上） 1 - fmPictureAlignmentTopRight（右上） 2 - fmPictureAlignmentCenter（居中，默认） 3 - fmPictureAlignmentBottomLeft（左下） 4 - fmPictureAlignmentBottomRight（右下）
PictureSizeMode	Integer	图片缩放模式	0 - fmPictureSizeModeClip（原尺寸，超出部分裁剪） 1 - fmPictureSizeModeStretch（拉伸填充控件） 3 - fmPictureSizeModeZoom（按比例缩放，保持纵横比）
BackStyle	Integer	背景样式	0 - fmBackStyleTransparent（透明） 1 - fmBackStyleOpaque（实心背景，默认）
BackColor	Long	背景颜色（仅在BackStyle=1时生效）	RGB(255, 255, 255)（白色） &H8000000F&（系统按钮表面色）
BorderStyle	Integer	边框样式	0 - fmBorderStyleNone（无边框，默认） 1 - fmBorderStyleSingle（单线边框）
BorderColor	Long	边框颜色（仅在BorderStyle=1时生效）	RGB(0, 0, 0)（黑色）

2. 位置与尺寸

属性名称	数据类型	说明	示例值
Left	Single	控件左边缘到窗体的距离	Image1.Left = 20（单位：磅）
Top	Single	控件顶部到窗体的距离	Image1.Top = 30
Width	Single	控件宽度	Image1.Width = 200
Height	Single	控件高度	Image1.Height = 150
Visible	Boolean	是否可见	Image1.Visible = False（隐藏）

3. 交互与行为

属性名称	数据类型	说明	示例值/选项
Enabled	Boolean	是否启用控件（若为False，图片变灰且不响应事件）	Image1.Enabled = False
MousePointer	Integer	鼠标悬停时的光标样式	0 - fmMousePointerDefault（默认箭头） 2 - fmMousePointerCross（十字线） 11 - fmMousePointerHourglass（沙漏）
ToolTipText	String	鼠标悬停时的提示文本	Image1.ToolTipText = "点击上传图片"

3.8.4、常用事件操作

1. 核心事件

事件名称	触发时机	典型应用场景
Click	单击图像控件时	打开图片选择对话框、切换显示图片
DblClick	双击图像控件时	放大图片、进入编辑模式
MouseDown	按下鼠标按键时	拖拽图片、记录点击坐标
MouseUp	释放鼠标按键时	结束拖拽操作
MouseMove	鼠标在控件上

Click事件（点击图片触发）

Private Sub imgLogo_Click()
    MsgBox "您点击了LOGO！"
    ' 可扩展：切换图片/打开链接等操作
End Sub

MouseMove事件（鼠标悬停效果）

Private Sub imgLogo_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    imgLogo.BorderStyle = 1 ' 显示边框
    imgLogo.BackColor = vbYellow
End Sub

3.8.5、高阶技巧

1. 单击图片更换图片

Private Sub Image1_Click()
    Dim filePath As String
    filePath = Application.GetOpenFilename("图片文件 (*.jpg;*.png), *.jpg;*.png")
    If filePath <> "False" Then
        Image1.Picture = LoadPicture(filePath)
        Image1.PictureSizeMode = fmPictureSizeModeZoom  ' 按比例缩放
    End If
End Sub

2. 图片自适应控件大小

' 在窗体初始化时设置
Private Sub UserForm_Initialize()
    With imgLogo
        .PictureSizeMode = fmPictureSizeModeZoom
        .Width = 200
        .Height = 150
    End With
End Sub

3. 图片与数据联动

' 根据单元格值显示不同图片
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        If Target.Value > 100 Then
            UserForm1.imgStatus.Picture = LoadPicture("good.png")
        Else
            UserForm1.imgStatus.Picture = LoadPicture("bad.png")
        End If
    End If
End Sub

4.鼠标悬停显示提示

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Image1.ToolTipText = "当前图片尺寸：" & Image1.Width & "x" & Image1.Height
End Sub

5.双击放大图片

Private Sub Image1_DblClick()
    If Image1.Width < 500 Then
        Image1.Width = 500
        Image1.Height = 300
    Else
        Image1.Width = 200
        Image1.Height = 150
    End If
End Sub

6. 动态加载网络图片

（需借助API或第三方库，此处为简化示例）

' 需引用 "Microsoft XML, v6.0"
Private Sub LoadWebImage(url As String)
    Dim xmlHttp As Object
    Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
    xmlHttp.Open "GET", url, False
    xmlHttp.Send
    
    If xmlHttp.Status = 200 Then
        ' 将二进制数据保存为临时文件
        Dim tempPath As String
        tempPath = Environ("TEMP") & "\temp_image.jpg"
        Open tempPath For Binary As #1
        Put #1, , xmlHttp.responseBody
        Close #1
        
        ' 加载到图像控件
        Image1.Picture = LoadPicture(tempPath)
    End If
End Sub

' 调用示例
Private Sub btnLoadWeb_Click()
    LoadWebImage "https://example.com/image.jpg"
End Sub

7. 实现图片拖放功能

（需处理MouseDown、MouseMove、MouseUp事件）

Dim isDragging As Boolean
Dim dragStartX As Single, dragStartY As Single

Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 1 Then  ' 左键按下
        isDragging = True
        dragStartX = X
        dragStartY = Y
    End If
End Sub

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If isDragging Then
        Image1.Left = Image1.Left + (X - dragStartX)
        Image1.Top = Image1.Top + (Y - dragStartY)
    End If
End Sub

Private Sub Image1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    isDragging = False
End Sub

3.8.6、常见问题解决

Q1：图片无法显示？

检查路径是否正确（建议使用ThisWorkbook.Path获取当前文件路径）
确认图片格式支持（优先使用JPG/PNG）
检查文件名是否包含特殊字符

Q2：图片模糊/变形？

原因：PictureSizeMode设置为拉伸模式（fmPictureSizeModeStretch）导致失真。
解决：改用fmPictureSizeModeZoom保持纵横比缩放。

fmPictureSizeModeStretch（强制拉伸）
fmPictureSizeModeZoom（保持比例缩放）

Q3：如何实现透明背景或者透明背景失效？

条件：

BackStyle必须设置为0 - fmBackStyleTransparent。
图片格式需支持透明通道（如.png）。

Q4：加载大图片内存不足

优化方法：

压缩图片尺寸后再加载。
使用PictureSizeMode = fmPictureSizeModeClip仅显示部分区域。
释放旧图片资源：

Set Image1.Picture = Nothing  ' 清空原有图片
Image1.Picture = LoadPicture("new_image.jpg")

3.8.7、对比其他图片显示方式

方式	优点	缺点
Image控件	轻量、易用、支持动态操作	不支持GIF动画
OLE对象	支持更多格式	资源占用大、操作复杂
Shape对象	可直接插入工作表	无法直接绑定事件

3.8.8、综合案例：制作图片查看器

' 用户窗体代码
Dim imgIndex As Integer
Dim imgList As Variant

Private Sub UserForm_Initialize()
    ' 初始化图片列表
    imgList = Array("pic1.jpg", "pic2.png", "pic3.bmp")
    imgIndex = 0
    ShowCurrentImage
End Sub

Private Sub btnNext_Click()
    imgIndex = (imgIndex + 1) Mod 3
    ShowCurrentImage
End Sub

Private Sub btnPrev_Click()
    imgIndex = (imgIndex - 1 + 3) Mod 3
    ShowCurrentImage
End Sub

Sub ShowCurrentImage()
    imgViewer.Picture = LoadPicture(ThisWorkbook.Path & "\" & imgList(imgIndex))
End Sub

3.8.9、学习建议

先掌握基础属性操作
尝试制作简单图片切换程序
逐步增加事件交互功能
参考官方文档：MSDN - Image Control

通过以上内容，即使是零基础用户也能快速实现：图片显示动态切换交互操作界面美化等实用功能。

安美资源网

Excel常用技能分享与探讨(5-宏与VBA简介 VBA之用户窗体-图像控件)

三、核心控件精讲