excel 2010 vba 图像标志交换开关

Question

在资源表中插入多个 Logo 图像(大小相似)。需要一种方法让用户轻松选择他们想要的公司，并让该 Logo 替换几张工作表左上角的默认 Logo 。

想使用下拉菜单，以前动态使用过，效果很好。下拉列表可以在用户表单中，也可以在仪表板表上。我已经看过堆叠 Logo 并尝试使用 z 轴开关，但 Excel 似乎不支持此功能。我也试过 .Replace 和 .Copy。

同样， Logo 已粘贴到隐藏的资源表中，因此我不希望用户去寻找图像目录，也不希望用户依赖互联网连接来获取图像(他们有时需要离线工作)。默认图像已经放置在左上角，只需要一种方法将他们的(文本)公司选择与相应的 Logo 图像/名称相匹配，然后在我指定的几个页面上用新 Logo 切换旧 Logo ，在同一个左上角。

编辑:

这是迄今为止我尝试过的内容的大杂烩，在不同时间未注释的各种行，在这一点上，有些行在其呈现方式上确实没有意义。我猜只是为了获得街头信誉而发帖。我只是想弄清楚一个小功能，而不是要求任何人为我编写我的程序(这在范围上有很大的不同):

Private Sub CompanySelectComboBox_Change()
    If CompanySelectComboBox.Value <> "Select a company" Then
        ' select logo here Sheets(Sheets("TaskNew").Index + TaskSheetsComboBox.ListIndex + 1).Activate
    'Private Sub TaskSheetsComboBox_Click()
    'If TaskSheetsComboBox.Value <> "Go directly to a yellow task sheet" Then
     '   Sheets(Sheets("TaskNew").Index + TaskSheetsComboBox.ListIndex + 1).Activate
    'End If
    'End Sub
        MsgBox CompanySelectComboBox.Value
        MsgBox CompanySelectComboBox.ListIndex
        Image("Logo").Replace Image("Logo"), Sheets("Config").Image("Logo2")
        'Logo.Select
        ' another possibility:
        ' LogoPic.Picture = LoadPicture(Fname)
        ' another possibility:
        'Sheets("Configs").Image("Logo").Copy Before:=Sheets("TaskEnd")
        ' another possibility:
            'CodeNames of Sheets
            'Sheets("Configs").Shapes("Picture 1").Copy
            'Sheets("Dashboard").Range("A1").PasteSpecial
    Else
        ' user didn't select a company, so just keep default (Generic) for now
    End If
End Sub

Answer 1

尝试

http://www.officevb.com/2009/11/utilizando-o-procv-com-imagens.html