<html>
<head>
<base href="https://bugs.documentfoundation.org/">
</head>
<body><table border="1" cellspacing="0" cellpadding="8">
<tr>
<th>Bug ID</th>
<td><a class="bz_bug_link
bz_status_UNCONFIRMED "
title="UNCONFIRMED - No inner borders after replaying a recorded macro"
href="https://bugs.documentfoundation.org/show_bug.cgi?id=126058">126058</a>
</td>
</tr>
<tr>
<th>Summary</th>
<td>No inner borders after replaying a recorded macro
</td>
</tr>
<tr>
<th>Product</th>
<td>LibreOffice
</td>
</tr>
<tr>
<th>Version</th>
<td>6.2.4.2 release
</td>
</tr>
<tr>
<th>Hardware</th>
<td>All
</td>
</tr>
<tr>
<th>OS</th>
<td>Linux (All)
</td>
</tr>
<tr>
<th>Status</th>
<td>UNCONFIRMED
</td>
</tr>
<tr>
<th>Severity</th>
<td>normal
</td>
</tr>
<tr>
<th>Priority</th>
<td>medium
</td>
</tr>
<tr>
<th>Component</th>
<td>Calc
</td>
</tr>
<tr>
<th>Assignee</th>
<td>libreoffice-bugs@lists.freedesktop.org
</td>
</tr>
<tr>
<th>Reporter</th>
<td>kricsek@yahoo.com
</td>
</tr></table>
<p>
<div>
<pre>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</pre>
</div>
</p>
<hr>
<span>You are receiving this mail because:</span>
<ul>
<li>You are the assignee for the bug.</li>
</ul>
</body>
</html>