셀 내용을 기반으로 사진을 표시하거나 숨기려면

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 

목표는 다른 시트에 B13는 "특별한 텍스트를"읽는 경우 Picture5 표시해야하고, B13는 다른 텍스트를 읽는 경우 Picture6 표시하는 것입니다.

Answer 1

그림 모양이 아닙니다.

그리고 마지막으로 응답을 준 것처럼 If가 필요하지 않습니다.

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