根據單元格內容顯示和隱藏圖片

Question

我無法獲得此代碼與我合作。我認爲它可以簡化爲With函數，但我不確定如何實現它。

If Worksheets("input").Range("B13").Value = "special text" Then 
    Worksheets("Customer Report").Pictures("Picture5").Visible = True 
    Worksheets("Customer Report").Pictures("Picture6").Visible = False 
Else 
    Worksheets("Customer Report").Pictures("Picture5").Visible = False 
    Worksheets("Customer Report").Pictures("Picture6").Visible = True 
End If 

的目標是讓圖片5，如果出現在B13另一張寫着「特殊文本」，並有圖片6如果出現讀取B13其他任何文本。

Answer 1

它是形狀不是圖片。

而且就像我上次給你的答案一樣，不需要。

Dim rng As Range 
Set rng = Worksheets("input").Range("B13") 
With Worksheets("Customer Report") 
    .Shapes("Picture5").Visible = rng.Value = "special text" 
    .Shapes("Picture6").Visible = Not rng.Value = "special text" 
End With