没办法的,只能用vba单独处理
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
For i As Integer = 1 To ws.UsedRange.Rows.Count
Dim cs = ws.Cells(i, 3)
ws.Shapes.AddShape(Type:=1, Left:=cs.Left, Top:=cs.Top, Width:=cs.Width, Height:=cs.Height).Select
With app.Selection.ShapeRange.Fill
.ForeColor.RGB = RGB(255, 0, 0)
End With
Next
app.visible = True
'app.quit
http://www.foxtable.com/help/topics/2121.htm