2010-10-21 46 views

回答

1

尝试使用UserPicture方法代替:似乎工作(Excel 2003,未在其他版本中测试)。

从Excel的VBA帮助

UserPicture方法 见AlsoApplies ToExampleSpecificsUserPicture方法,因为它适用于FillFormat对象。

用图像填充指定的形状。

expression.UserPicture(PictureFile) expression必需。返回上述对象之一的表达式。

PictureFile必填字符串。图片文件的名称。

UserPicture方法,因为它适用于ChartFillFormat对象。

用图像填充指定的形状。

expression.UserPicture(PictureFile,PictureFormat,PictureStackUnit,PicturePlacement) expression必需。返回上述对象之一的表达式。

PictureFile可选Variant。

PictureFormat必需XlChartPictureType。 XlChartPictureType可以是这些XlChartPictureType常量之一。 xlStack xlStackScale xlStretch

XlChartPictureType可以是这些XlChartPictureType常数之一。 xlStack xlStackScale xlStretch

PictureStackUnit必龙。图片堆栈或缩放单元(取决于PictureFormat参数)。

PicturePlacement必需XlChartPicturePlacement。

XlChartPicturePlacement可以是这些XlChartPicturePlacement常量之一。 xlAllFaces xlEnd xlEndSides

xlFront

xlFrontEnd

xlFrontSides

xlSides

例 本示例为图2的填充格式。

图表(2).ChartArea.Fill.UserPicture“brick.gif”

+0

你好,威廉斯先生这个作品!首先,我必须使填充可见,Sheets.Item ['Chart1']。ChartArea.Fill.Visible = True非常感谢您 – addelichtman 2010-10-21 14:41:21