从形状表加载图像表单时出错

Question

我使用以下代码以来自工作表中的形状的形式加载图像。但随后出现错误信息。

Sub gbrload()
Me.Image1.Picture = Sheets("GBR").Shapes("Picture 21").Fill
End Sub

任何人都可以解决这个问题吗？

Answer 1

问题解决了。

Sub gbrload()
Me.Image1.Picture = Sheets("GBR").Shapes("Picture 21").picture
End Su