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 

任何人都可以告诉我如何做到这一点？

提前非常感谢！