添加評論到宏中的單元格

Question

我想添加一個評論到宏中的單元格。我曾試着錄製一個宏來做它，但它什麼也沒做。有任何想法嗎？這裏是錄製宏的肉：

dim document as object 
dim dispatcher as object 
document = ThisComponent.CurrentController.Frame 
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") 
dispatcher.executeDispatch(document, ".uno:DrawEditNote", "", 0, Array()) 
rem dispatcher.executeDispatch(document, ".uno:InsertAnnotation", "", 0, Array()) 
dispatcher.executeDispatch(document, ".uno:DrawEditNote", "", 0, Array()) 
dim args4(0) as new com.sun.star.beans.PropertyValue 
args4(0).Name = "ToPoint" 
args4(0).Value = "$A$2" 

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args4()) 

Answer 1

在OpenOffice的它被稱爲「插入批註」

' col, row - Zero-based 
sub insertAnnotation(col, row, text) 
    sheet = thiscomponent.getcurrentcontroller.activesheet 
    cell = sheet.getCellByPosition(col, row) 
    sheet.Annotations.insertNew(cell.getCellAddress, text) 
    cell.Annotation.isVisible = True 
end sub 

' row, col - Zero-based 
sub removeAnnotation(col, row) 
    sheet = thiscomponent.getcurrentcontroller.activesheet 
    cell = sheet.getCellByPosition(col, row) 
    cell.clearContents(com.sun.star.sheet.CellFlags.ANNOTATION) 
end sub 

insertAnnotation(2, 0, "Hello " & Now)