我正在通过OLE参数化Excel图表。背景图片已设置。
Sheets.Item['Chart1'].SetBackgroundPicture("ThePicture.jpg")
我想将Picturetype更改为拉伸。
答案 0 :(得分:1)
尝试使用UserPicture方法:似乎有效(Excel 2003,未在其他版本中测试过)。
从Excel VBA帮助
UserPicture方法 另请参阅应用于FillFormat对象的ToExampleSpecificsUserPicture方法。
用图像填充指定的形状。
expression.UserPicture(PictureFile的) 表达式必需。返回上述对象之一的表达式。
PictureFile必需字符串。图片文件的名称。
适用于ChartFillFormat对象的UserPicture方法。
用图像填充指定的形状。
expression.UserPicture(PictureFile,PictureFormat,PictureStackUnit,PicturePlacement) 表达式必需。返回上述对象之一的表达式。
PictureFile可选变体。
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”