主题：[求助]图形字典居中问题

执行如下代码

Dim t As Table = Tables("表A")
Dim rn = t.grid.GetCellRange(1, t.cols("第七列").index+1, t.rows.count+t.HeaderRows-1, t.cols("第七列").index+1)
Dim cs = t.grid.Styles.Add("emp")
cs.imagealign = 5
cs.backcolor = color.yellow
rn.style = cs