Excel，VBA：复制图像控件'；将图片复制到另一张图纸上的图像控件

我正在使用以下命令填充工作簿第一页上的图像控件：

 Private Sub Image1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
 Application.ScreenUpdating = False
     On Error GoTo ErrHandler
     Image1.Picture = LoadPicture(Application.GetOpenFilename)
     Image2.Picture = Image1.Picture
 ErrHandler:
 ActiveSheet.Range("C8").Select
 Application.ScreenUpdating = True
 End Sub

工作簿中还有其他几张工作表，我想将所有图像更改为第一张工作表上的图像。这些图像将是透明的gif文件。此外，所有页面都受到保护

我尝试过这样做，但没有成功：

 Dim WS as Worksheet
 Set WS = Sheets(2)
 With WS
    .OLEObjects("Image1").Object.Picture = Image1.Picture
 End With

有人能告诉我如何做到这一点吗

---

非常感谢您

您遇到了什么错误？哪一行抛出了错误？有违规行的sub在哪里？我的库中有一个合适的代码，用于从userForm上的image控件将图像插入工作表的特定单元格。如果它有帮助并且可以适应您的情况，我可以将其作为一个答案发布，因为它不会包含在评论中。它只是没有填充其他页面上的其他图像控件。简单地说，我只想在第一张纸上选择所需的图像（效果很好），然后让它用相同的图片更新不同页面上的所有其他图像。如果你可以想象，第一张工作表是各种各样的仪表板，所选图像是签名的透明图像，该签名在整个工作簿中应用了多次。我得到的唯一错误是，当我双击第一张图纸上的第一个图像控件时，文件选择器将打开，但如果我单击“取消”，它将抛出一个错误。