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

Question

我使用以下内容在工作簿的第一张表上填充图像控件：

 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

有人可以告诉我如何实现这一目标吗？

提前非常感谢！