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读取＆＃34;特殊文字＆＃34;目标是让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

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

1 个答案: