如何将shape.fill.userpicture从一种形状设置为另一种形状

时间:2013-06-18 01:27:41

标签: excel excel-vba vba

我希望将一个形状的填充属性(其中形状3包含用户图片)设置为另一个形状的填充属性,但似乎不可能。这是我的代码。

Sheet1.shapes("Rectangle 5").Fill = Sheet1.shapes("Rectangle 3").Fill

如果也尝试过。

Sheet1.shapes("Rectangle 5").Fill.UserPicture = Sheet1.shapes("Rectangle 3").Fill.UserPicture

请告知。

谢谢,

1 个答案:

答案 0 :(得分:1)

UserPicture是一种方法,似乎无法获取使用此方法应用的形状图片的信息。

通过调用这两行,我可以建议,通过我所做的简单测试,向这个方向发展:

Sheet1.shapes("Rectangle 3").PickUp
Sheet1.shapes("Rectangle 5").Apply

结果来自'矩形3'的图片将应用于'矩形5'。但是,在保持尺寸的同时,也可以更改其他一些属性。

相关问题