excel批注

最新推荐文章于 2021-01-12 20:11:32 发布

百炼成钢百忍成佛

最新推荐文章于 2021-01-12 20:11:32 发布

阅读量711

点赞数

分类专栏： delphi 文章标签： excel pascal delphi vb vba string

delphi 专栏收录该内容

78 篇文章 1 订阅

订阅专栏

if ExcelWS.Cells.Item[11,6].Comment <> nil then

PZ:=ExcelWS.Cells.Item[11,6].Comment.Text(EmptyParam,EmptyParam,EmptyParam)

range.SetComment...

給單元格添加批註
Delphi(Pascal) codeExcel_Obj.WorkSheets[1].Cells[1, 3].AddComment(Str);

是否存在批註
Delphi(Pascal) codeif ExcelWS.Cells.Item[11,6].Comment <> nil then
PZ:=ExcelWS.Cells.Item[11,6].Comment.Text(EmptyParam,EmptyParam,EmptyParam)；

至於寬度和長度，你看下有沒有width\height等屬性。。。VBA中有的，VB設定其格式如下。。。
VB codeSub InsertComment(rMyCells As Range, sCommentTxt As String)
With rMyCells
'如果單元格已有批注則清除已有批注
If Not .Comment Is Nothing Then
.ClearComments
End If
'插入批注並設置其格式
With .AddComment
.Visible = True
.Text Text:=sCommentTxt
End With
With .Comment.Shape
With .TextFrame
With .Characters.Font
.Name = "宋體"
.FontStyle = "常規"
.Size = 9
.ColorIndex = 49
End With
.AutoSize = True
End With
.Fill.ForeColor.RGB = RGB(255, 255, 204)
.Placement = xlMove
End With
End With
End Sub