在excel VBA中使用图片

Question

我有6张照片。我需要创建一个包含所有图片名称的下拉框，然后当用户从下拉框中选择某个值时，我需要选择该图片，将其复制并粘贴到我的excel文件中的指定位置。任何帮助将不胜感激！

这是我最终做的事情，也许并不优雅，但现在已经完成了工作：

Sub DropDown60_Change（）

With ActiveSheet
    .Shapes("Picture 19").Visible = False
    .Shapes("Picture 20").Visible = False
    .Shapes("Picture 21").Visible = False
    .Shapes("Picture 22").Visible = False
    .Shapes("Chart 4").Visible = False
    Select Case .Shapes("Drop Down 60").ControlFormat.Value
    Case 1
        .Shapes("Picture 19").Visible = True
    Case 2
        .Shapes("Picture 20").Visible = True
    Case 3
        .Shapes("Picture 21").Visible = True
    Case 4
        .Shapes("Picture 22").Visible = True
    Case 5
        .Shapes("Chart 4").Visible = True
    End Select
End With

End Sub