https://bugs.freedesktop.org/show_bug.cgi?id=70380
Priority: medium
Bug ID: 70380
Assignee: libreoffice-bugs@lists.freedesktop.org
Summary: [1] BASIC: Unable to set cell cross border using macro
Severity: normal
Classification: Unclassified
OS: Windows (All)
Reporter: ziotib...@libero.it
Hardware: x86 (IA32)
Status: UNCONFIRMED
Version: 4.1.2.3 rc
Component: Spreadsheet
Product: LibreOffice
- Open an empty spreadsheet
- Select a cell
- Start a macro recording
- open cell format and add a cross border
- apply, stop recording macro and save macro.
Generated code is:
sub Main
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(3) as new com.sun.star.beans.PropertyValue
args1(0).Name = "BorderBLTR.LineFGColor"
args1(0).Value = 0
args1(1).Name = "BorderBLTR.LineOutWidth"
args1(1).Value = 1
args1(2).Name = "BorderBLTR.LineInWidth"
args1(2).Value = 0
args1(3).Name = "BorderBLTR.LineDistance"
args1(3).Value = 0
dispatcher.executeDispatch(document, ".uno:BorderBLTR", "", 0, args1())
end sub
Now select another cell, execute macro and the cross border is not set.
Executing the same procedure with any other border (top, bottom....) the
resulting macro is functionally.
--
You are receiving this mail because:
You are the assignee for the bug.
_______________________________________________
Libreoffice-bugs mailing list
Libreoffice-bugs@lists.freedesktop.org
http://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs
