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

Question

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

Answer 1

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表示颜色由深到浅的过渡系数
与大家共享，欢迎指正