如何设置条形图表的填充效果

[wgzaaa]

我用delphi 操作word 在word 中插入图表，现在碰到验题：
如何设置条形图表的填充效果，例：底纹式样选纵向，变形选4，请高手们不吝赐教

[wgzaaa]

问题解决,分数献给在这里帮助大家的同志们

[fonganzen]

怎么做的介绍下啊 ：）

[wgzaaa]

var v_ran:Variant;v_ran表示word中的范围略。。。
var oShape,ochart: olevariant;
oShape:=v_ran.InlineShapes.AddOLEObject(ClassType :='msgraph.chart.8',FileName :='',LinkToFile :=False,DisplayAsIcon :=False);
ochart:=oshape.OLEFormat.Object;
ochart.SeriesCollection(1).Fill.OneColorGradient($00000002,4,0.3);
//SeriesCollection(1)表示第一个条形；$00000002表示“msoGradientVertical”即为底纹式样为纵向；
4代表变形的第4种；0.3表示颜色由深到浅的过渡系数
与大家共享，欢迎指正

[wgzaaa]

还有人接分么

[zhaixing0101]

顶一下

[stherix]

jf

[无条件为你]

恭喜楼主自己成功解决！