OLE控制excel,如何改变所选单元格的背景颜色？

[nnhlx]

变量定义如下：
OLEObject xlapp , xlsub, xls

xlapp = Create OLEObject
ret = xlApp.ConnectToNewObject( "Excel.Application" )
if ret < 0 then
MessageBox("Connect to Excel Failed !",string(ret))
return
end if
xls=xlapp.application.activeworkbook
xlsub=xlapp.application.activeworkbook.worksheets[1]
xlsub.Cells[1,1]='hello'
如果我想改变单元格[1,1]的背景颜色，应该怎么做？

[dotnba]

看看MSDN

[juwuyi]

Worksheets("Sheet1").Cells(5, 3).Font.Size = 14

Worksheets("Sheet1").Cells(5, 3).Font.BackGround = 2

[qqjj7758]

呵呵
yeah!

[xiaoshuier]

顺便我想问一下，如何设置单元格的边框呢？比如要使坐标为1,1的单元格四周全为实线。怎样来设置呢？

[runsoft]

老天，看看OFFICE的宏跟踪，要社么样的属性页可以。

[nnhlx]

juwuyi(我有，我可以)
请问 Worksheets("Sheet1").Cells(5, 3).Font.BackGround = 2
'2'这个值是怎么定义的，比如说红色应该是什么呢

[cwel]

可以吗？
我试过了，没有效果啊！

[sinkiangscorpio]

录制宏，就知道怎么写了。
你可以先设置为红色，然后看宏里面是怎么写的，然后引用。