Date: prev next · Thread: first prev next last
2012 Archives by date, by thread · List index


Hi Marc

   Range(Foo).select
   If ActiveCell.MergeCells Then
   MergedInfo = ActiveCell.MergeArea
   MergedValue = MergedInfo(1, 1)
   End If


for Libreoffice basic
assuming a calc sheet, with some content in A1 and B1

Sub Main

        doc = thisComponent ' the current document
        curSheet = doc.CurrentController.activeSheet
        
        cellRange = curSheet.getCellRangeByName("A1:B1")
        
        cellRange.merge(true)

        if cellRange.isMerged then
                cellContent = cellrange.dataArray
        endif
        
        anArray = cellContent(0)
        print join(anArray, " ---- ")
        
End Sub

did you have a look there

http://wiki.openoffice.org/wiki/Documentation/BASIC_Guide
http://wiki.openoffice.org/wiki/Documentation/DevGuide/OpenOffice.org_Developers_Guide

i assumle you already identified this ressource (IDL reference)
http://api.libreoffice.org/docs/common/ref/com/sun/star/module-ix.html

HTH

laurent

Context


Privacy Policy | Impressum (Legal Info) | Copyright information: Unless otherwise specified, all text and images on this website are licensed under the Creative Commons Attribution-Share Alike 3.0 License. This does not include the source code of LibreOffice, which is licensed under the Mozilla Public License (MPLv2). "LibreOffice" and "The Document Foundation" are registered trademarks of their corresponding registered owners or are in actual use as trademarks in one or more countries. Their respective logos and icons are also subject to international copyright laws. Use thereof is explained in our trademark policy.