首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 数据库 > VFP >

无法设置excel批注的字体解决思路

2012-03-22 
无法设置excel批注的字体olecreateobject( excel.application )......ole.range( a3 ).comment.Font.

无法设置excel批注的字体
ole=createobject( "excel.application ")
......
ole.range( "a3 ").comment.Font.Bold=.f.
该句出错,提示:OLE   错误码   0x80020006   UnKnown   name
查阅vba帮助,comment对象就没有font属性,可是在excel中能设置,记录的宏为:

Sub   宏1()
        Range( "A3 ").Select
        Range( "A3 ").Comment.Text   Text:= "这里填批注文本 "
        Selection.Font.Bold   =   False
End   Sub
咋办?


[解决办法]
设置字体
eole.ActiveSheet.Cells(2,1).Font.Name= "黑体 "

设置字体大小
eole.ActiveSheet.Cells(1,1).Font.Size=25

设置字体为斜体
eole.ActiveSheet.Cells(1,1).Font.Italic=.t.

设置整列字体为粗体
eole.ActiveSheet.Columns(1).Font.Bold=.t.

设置字体为粗体
eole.ActiveSheet.Cells(1).Font.Bold=.t.

eole.ActiveSheet.Range( "A3 ").Font.Bold=.t.


[解决办法]
1、你的EXCEL版本,在2000中无法设置;
2、从你的代码来看,是设置单元格的格式。

热点排行