如何在excel上單擊單元格顯示圖片？

-1

下面的代碼使我能夠選擇只有一個單元格（在這種情況下A3），單擊一個按鈕，並帶來一張圖片。令人討厭的是我需要它在其他單元格上工作（從A3到A22），我不知道如何修改代碼才能這樣做。有什麼建議麼？謝謝如何在excel上單擊單元格顯示圖片？

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

來源

2015-12-20 AlbF

所以你想突出顯示一個單元格，比如說A10，並且代碼會將該單元格中的圖片命名爲？ –

我想選擇單元格A3，點擊按鈕並帶上圖片，然後我想單元格A15，所以我去那裏選擇單元格並單擊不同圖片的按鈕。這種機制應該從單元格A3工作到單元格A22。 – AlbF

更改此行'運動=範圍（「A3」）'到'運動=選擇' –

嘗試改變...

Exercise = Range("A3")

到

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

這將使用選定的圖片任何單元格的文本，並只接受來自A列細胞

來源

2015-12-20 21:26:46 cantelope

幹得好它工作正常 – AlbF

如何在excel上單擊單元格顯示圖片？

回答

相關問題