[Libreoffice-bugs] [Bug 126058] New: No inner borders after replaying a recorded macro

[bugzilla-daemon at bugs.documentfoundation.org]

https://bugs.documentfoundation.org/show_bug.cgi?id=126058

            Bug ID: 126058
           Summary: No inner borders after replaying a recorded macro
           Product: LibreOffice
           Version: 6.2.4.2 release
          Hardware: All
                OS: Linux (All)
            Status: UNCONFIRMED
          Severity: normal
          Priority: medium
         Component: Calc
          Assignee: libreoffice-bugs at lists.freedesktop.org
          Reporter: kricsek at yahoo.com

Description:
There will be no inner borders after replaying a recorded macro.

I'm including the whole macro in the Additional Information field.

Steps to Reproduce:
1. Record a macro in which you add both outer and inner borders to the selected
cells.
2. Save the macro.
3. Replay it.

Actual Results:
There will be only outer borders around the cells.

Expected Results:
There should be inner borders as well.


Reproducible: Always


User Profile Reset: No



Additional Info:
sub test
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 args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$E$12:$G$15"

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

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:BorderTLBR", "", 0, Array())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:BorderBLTR", "", 0, Array())

rem ----------------------------------------------------------------------
dim args4(7) as new com.sun.star.beans.PropertyValue
args4(0).Name = "BorderOuter.LeftBorder"
args4(0).Value = Array(0,0,26,0,0,26)
args4(1).Name = "BorderOuter.LeftDistance"
args4(1).Value = 0
args4(2).Name = "BorderOuter.RightBorder"
args4(2).Value = Array(0,0,26,0,0,26)
args4(3).Name = "BorderOuter.RightDistance"
args4(3).Value = 0
args4(4).Name = "BorderOuter.TopBorder"
args4(4).Value = Array(0,0,26,0,0,26)
args4(5).Name = "BorderOuter.TopDistance"
args4(5).Value = 0
args4(6).Name = "BorderOuter.BottomBorder"
args4(6).Value = Array(0,0,26,0,0,26)
args4(7).Name = "BorderOuter.BottomDistance"
args4(7).Value = 0

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

rem ----------------------------------------------------------------------
dim args5(4) as new com.sun.star.beans.PropertyValue
args5(0).Name = "BorderInner.Horizontal"
args5(0).Value = Array(0,0,26,0,0,26)
args5(1).Name = "BorderInner.Vertical"
args5(1).Value = Array(0,0,26,0,0,26)
args5(2).Name = "BorderInner.Flags"
args5(2).Value = 3
args5(3).Name = "BorderInner.ValidFlags"
args5(3).Value = 127
args5(4).Name = "BorderInner.DefaultDistance"
args5(4).Value = 0

dispatcher.executeDispatch(document, ".uno:BorderInner", "", 0, args5())


end sub

-- 
You are receiving this mail because:
You are the assignee for the bug.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.freedesktop.org/archives/libreoffice-bugs/attachments/20190623/68554cc4/attachment.html>