Delphi控制Excel的问题，请高手帮忙解决 ( 积分: 50 )

我在Delphi程序中调用了Excel，可以向单元格中填充数据，可是不知道如何将文本设置为上标。请大家帮忙解决，不胜感谢。

我在Delphi程序中调用了Excel，可以向单元格中填充数据，可是不知道如何将文本设置为上标。请大家帮忙解决，不胜感谢。

看excel 中的VBA
先录宏
后看VBA代码

Excel有上标的功能吗

你说的是不是批注

偶这样做的
function TNWD_DataModule.BrithNewWellDesignRep(YT: String): Boolean;
var
MSExcel : OleVariant; //Excel进程
Selection: OleVariant;
Range : OleVariant;
begin
//创建MS Excel对象。
try
MSExcel := ComObj.CreateOleObject('Excel.Application'); //创建Excel工作表
except
MessageDlg('MS Excel没有安装！',mtWarning,[mbok],0);
exit;
end;
MSExcel.visible:= False;
MSExcel.Caption := YT + ' 油田新井设计申报表';
MSExcel.WorkBooks.Add; //增加Sheet;
MSExcel.Range['C2'].select;
MSExcel.ActiveCell.FormulaR1C1 := 'M3';
MSExcel.ActiveCell.Characters(Start:=2, Length:=1).Font.Color := clBlue;
MSExcel.ActiveCell.Characters(Start:=2, Length:=1).Font.Name := '隶书';
MSExcel.ActiveCell.Characters(Start:=2, Length:=1).Font.Size := 18;
MSExcel.ActiveCell.Characters(Start:=2, Length:=1).Font.Strikethrough:= False;
MSExcel.ActiveCell.Characters(Start:=2, Length:=1).Font.Superscript := True;
MSExcel.ActiveCell.Characters(Start:=2, Length:=1).Font.Subscript := False;
MSExcel.ActiveCell.Characters(Start:=2, Length:=1).Font.OutlineFont := False;
MSExcel.ActiveCell.Characters(Start:=2, Length:=1).Font.Shadow := False;
MSExcel.ActiveCell.Characters(Start:=2, Length:=1).Font.Underline := xlUnderlineStyleNone;
MSExcel.ActiveCell.Characters(Start:=2, Length:=1).Font.ColorIndex := xlAutomatic;
MSExcel.visible:= True;
end;