问大侠： 如何使用代码进行“设置批注格式”？？？在网上找了好久都没找到(100分)

如题：
Range("M2:M3&quot.Select
Range("M2&quot.AddComment
Range("M2&quot.Comment.Visible = False
Range("M2&quot.Comment.Text Text:="sdfsdf" & Chr(10) & ""
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlTop
.ReadingOrder = xlContext
.Orientation = xlHorizontal
.AutoSize = True
.AddIndent = False
End With
这是 vb代码，可是 我转成delphi的就不好使啊？
Excelid.WorkSheets[1].Range['N2'].addComment;
Excelid.WorkSheets[1].Range['N2'].Comment.Visible := False;
Excelid.WorkSheets[1].Range['N2'].Comment.Text('asdfasda');
//////////或者
Excelid.WorkSheets[1].Range['N2'].AddComment('按时打发似的');
这两种插入批注的代码都行 可是怎么设置 批注的宽和高呢？
哪位大侠给指点下啊

批注是自适应的吧， 你能在excel里设置它的宽高嘛， 能的话，就录制宏，然后翻译了。

1.批注不是自适应的，至少我的电脑上的excel2003不是
2.我可以在excel中设置它的宽高，代码我已经录制完了，可是我不知道怎么该成delphi的
我提问题的时候已经贴出来了。

自己顶啊

顶

ding