Bugzilla – Attachment 149326 Details for
Bug 123490
Keyboard-alternative to selecting various dispersed cells in Calc
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
Imperfect macro solution
AddActiveCellToSelection.txt (text/plain), 654 bytes, created by
Buovjaga
on 2019-02-16 09:53:20 UTC
(
hide
)
Description:
Imperfect macro solution
Filename:
MIME Type:
Creator:
Buovjaga
Created:
2019-02-16 09:53:20 UTC
Size:
654 bytes
patch
obsolete
>Sub AddActiveCellToSelection() > Dim oOldSelection 'The original selection of cell ranges > Dim oRanges 'A blank range created by the document > Dim oActiveCell 'The current active cell > > REM store the current selection > oOldSelection = ThisComponent.CurrentSelection > > oRanges = ThisComponent.createInstance("com.sun.star.sheet.SheetCellRanges") > ThisComponent.CurrentController.Select(oRanges) > 'get the active cell! > oActiveCell = ThisComponent.CurrentSelection > > 'add new selection to the old selection > oOldSelection.addRangeAddress(oActiveCell.getRangeAddress, False) > ThisComponent.CurrentController.Select(oOldSelection) >End Sub
<b>You cannot view the attachment while viewing its details because your browser does not support IFRAMEs. <a href="attachment.cgi?id=149326">View the attachment on a separate page</a>.</b>
View Attachment As Raw
Actions:
View
Attachments on
bug 123490
: 149326 |
149337