怎样使用VBA用复合框控制图片显示?

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Private Sub UserForm_Initialize() '窗体初始化时执行

With Me.ComboBox1
    .AddItem "手机样式一"   '为复合框添加列表条目
    .AddItem "手机样式二"
    .AddItem "手机样式三"
    .Text="手机样式一"
    End With
    手机样式一.BorderStyle=fmBorderStyleNone '为三个图像控件设置边框样式为不显示边框
    手机样式二.BorderStyle=fmBorderStyleNone
    手机样式三.BorderStyle=fmBorderStyleNone
End Sub
Private 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、单击复合框的下拉箭头，选择“手机样式二”，则图片跟随变化为名为“手机样式二”的图片，如图