Question

我有一张带有10个不同投递箱的主表，每个投递箱代表一张图片（根据选择）将在另一张表格上显示（Proposta1，Proposta2，...，Proposta10）。

例如，在工作表Proposta1中，将有一个image1，根据主工作表上的保管箱选择进行选择。在工作表Proposta10中，将再次根据保管箱选择显示image1，image2，...，image10。我已经设法做了这个代码，它工作正常，但我只能让它在一张纸上更改图像。我想要的是在所有纸张上更改相同的图像。见下文：

If Target.Row = 5 And Target.Column = 4 Then
Worksheets("Proposta1").Image1.Picture = LoadPicture(Worksheets("Rolos Compactadores").Range("AH5").Value)
End If

我是VBA和编码的新手，但我到了那里。我也试图找到类似的东西，但我找不到帮助我的somenthing。此外，对不起，如果我不清楚，随时问你我想要什么。

提前致谢！

Answer 1

请尝试以下代码：

For Each ws in Worksheets
    If Left(Trim(ws.name),8) = "Proposta" Then
        If Target.Row = 5 And Target.Column = 4 Then
            ws.Image1.Picture = LoadPicture(Worksheets("Rolos Compactadores").Range("AH5").Value)
        End If
    End If
Next

希望得到这个帮助。

更改多个工作表上的图像

1 个答案: