添加图标,参考
Dim g = Tables("表A").gridDim cs = g.GetCellRange(0, 1)cs.Image = Getimage("d:\test.Ico")If cs.style Is Nothing Then cs.style = g.Styles.add("第一列")End Ifcs.Style.ImageAlign = 7