https://bugs.freedesktop.org/show_bug.cgi?id=79728

--- Comment #7 from m.a.riosv <[email protected]> ---
I don't know any direct way to get it and if it is really a bug.

I think what you can do is a macro with your solution and add it to the macro
in the file that runs when the file is opened.

The next, created using record macro seems to work.

sub RowHeigh

rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args101(0) as new com.sun.star.beans.PropertyValue
args101(0).Name = "ToPoint"
args101(0).Value = "$Etat.$A$1:$IV$100000"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args101())

dim args102(0) as new com.sun.star.beans.PropertyValue
args102(0).Name = "aExtraHeight"
args102(0).Value = 0

dispatcher.executeDispatch(document, ".uno:SetOptimalRowHeight", "", 0,
args102())

dim args103(0) as new com.sun.star.beans.PropertyValue
args103(0).Name = "ToPoint"
args103(0).Value = "$Etat.$A$1"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args103())

end sub

-- 
You are receiving this mail because:
You are the assignee for the bug.
_______________________________________________
Libreoffice-bugs mailing list
[email protected]
http://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs

Reply via email to