如何通过单击单元格在excel上显示图片？

下面的代码使我能够只选择一个单元格（在本例中为A3），单击按钮并带来一张图片。令人讨厌的是，我还需要它在其他单元格（从A3到A22）上工作，我不知道如何修改代码才能做到这一点。有什么建议吗？多谢各位

Private Sub cmdDisplayPhoto_Click()
    Application.ScreenUpdating = False
    Dim myObj
    Dim Pictur
    Set myObj = ActiveSheet.DrawingObjects
    For Each Pictur In myObj
    If Left(Pictur.Name, 7) = "Picture" Then
    Pictur.Select
    Pictur.Delete
    End If
    Next

    Dim Exercise As String, T As String

    myDir = "C:\Users\Computer\Desktop\Pictures of Exercises\"
    Exercise = Range("A3")
    T = ".PNG"

    ActiveSheet.Shapes.AddPicture Filename:=myDir & Exercise & T, linktofile:=msoFalse, savewithdocument:=msoTrue, Left:=770, Top:=60, Width:=160, Height:=150
    Application.ScreenUpdating = True
    End Sub

尝试改变

Exercise = Range("A3")

到

---

这将使用为图片选择的任何单元格的文本，并且只接受A列中的单元格。

因此您想突出显示一个单元格，比如A10，代码将显示该单元格中命名的图片？我想选择单元格A3，单击按钮并显示图片，然后我想显示单元格A15，因此，我去那里选择单元格并单击按钮以获得不同的图片。这个机制应该从单元格A3一直工作到单元格A22。将这一行

Exercise=Range（“A3”）

更改为

Exercise=Selection

，非常简单，它工作正常

if ActiveCell.column = 1 then Exercise = ActiveCell Else Exit Sub