根据单元格内容显示和隐藏图片

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