Sub select_merged()
basket = ThisComponent.createInstance("com.sun.star.sheet.SheetCellRanges")
view = ThisComponent.getCurrentController()
sel = view.getSelection()
on error goto exitErr
sh = sel.getSpreadsheet()
on error goto 0
ufr = sel.getUniqueCellFormatRanges()
e = ufr.createEnumeration()
while e.hasMoreElements()
rgs = e.nextElement()
rg = rgs.getByIndex(0)
curs = sh.createCursorByRange(rg)
if curs.IsMerged then basket.addRangeAddresses(rgs.getRangeAddresses(), False)
wend
view.select(basket)
exit sub
exitErr:
Msgbox "Select a single cell range, please", 16, "macro: select_merged"
End Sub
Users browsing this forum: Hagar Delest and 13 guests