Добавление комментария к ячейке в макросе - PullRequest
Новая
       9

Добавление комментария к ячейке в макросе

3 голосов
/ 10 июля 2010

Я хочу добавить комментарий к ячейке в макросе. Я попытался записать макрос, чтобы сделать это, но он ничего не делает. Есть идеи? Вот мясо записанного макроса: 

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())

1 Ответ

2 голосов
/ 29 августа 2011

В 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)
...