1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Private Sub UserForm_Initialize() '窗体初始化时执行With Me.ComboBox1 .AddItem "手机样式一" '为复合框添加列表条目 .AddItem "手机样式二" .AddItem "手机样式三" .Text="手机样式一" End With 手机样式一.BorderStyle=fmBorderStyleNone '为三个图像控件设置边框样式为不显示边框 手机样式二.BorderStyle=fmBorderStyleNone 手机样式三.BorderStyle=fmBorderStyleNoneEnd SubPrivate Sub ComboBox1_Change() '复合框改变时执行 Dim ss As Control For Each ss In Me.Controls If TypeName(ss)="Image" Then '如果是图像控件 ss.Visible=False '将之隐藏 End If Next Me.Controls(Me.ComboBox1.Text).Visible=True '显示与复合框对应的图像End Sub
5、单击复合框的下拉箭头，选择“手机样式二”，则图片跟随变化为名为“手机样式二”的图片，如图
