sc/source/ui/vba/vbaname.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*
   3  * This file is part of the LibreOffice project.
   4  *
   5  * This Source Code Form is subject to the terms of the Mozilla Public
   6  * License, v. 2.0. If a copy of the MPL was not distributed with this
   7  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   8  *
   9  * This file incorporates work covered by the following license notice:
  10  *
  11  *   Licensed to the Apache Software Foundation (ASF) under one or more
  12  *   contributor license agreements. See the NOTICE file distributed
  13  *   with this work for additional information regarding copyright
  14  *   ownership. The ASF licenses this file to you under the Apache
  15  *   License, Version 2.0 (the "License"); you may not use this file
  16  *   except in compliance with the License. You may obtain a copy of
  17  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  18  */
  19 #include <vbahelper/helperdecl.hxx>
  20
  21 #include <com/sun/star/table/XCellRange.hpp>
  22 #include <com/sun/star/sheet/XCellRangeAddressable.hpp>
  23 #include <com/sun/star/sheet/XCellRangeReferrer.hpp>
  24
  25 #include "vbaname.hxx"
  26 #include "vbarange.hxx"
  27 #include "vbaglobals.hxx"
  28 #include <vector>
  29 #include <rangenam.hxx>
  30 #include <vcl/msgbox.hxx>
  31 #include "tabvwsh.hxx"
  32 #include "viewdata.hxx"
  33 #include "nameuno.hxx"
  34 #include "compiler.hxx"
  35 #include "tokenarray.hxx"
  36
  37 using namespace ::ooo::vba;
  38 using namespace ::com::sun::star;
  39
  40 ScVbaName::ScVbaName(const css::uno::Reference< ov::XHelperInterface >& xParent,
  41             const css::uno::Reference< css::uno::XComponentContext >& xContext,
  42             const css::uno::Reference< css::sheet::XNamedRange >& xName,
  43             const css::uno::Reference< css::sheet::XNamedRanges >& xNames,
  44             const css::uno::Reference< css::frame::XModel >& xModel ):
  45             NameImpl_BASE(  xParent , xContext ),
  46             mxModel( xModel ),
  47             mxNamedRange( xName ),
  48             mxNames( xNames )
  49 {
  50 }
  51
  52 ScVbaName::~ScVbaName()
  53 {
  54 }
  55
  56 css::uno::Reference< ov::excel::XWorksheet >
  57 ScVbaName::getWorkSheet() throw (css::uno::RuntimeException)
  58 {
  59     uno::Reference< excel::XApplication > xApplication( Application(), uno::UNO_QUERY_THROW );
  60     return xApplication->getActiveSheet();
  61 }
  62
  63 OUString
  64 ScVbaName::getName() throw (css::uno::RuntimeException)
  65 {
  66     return mxNamedRange->getName();
  67 }
  68
  69 void
  70 ScVbaName::setName( const OUString & rName ) throw (css::uno::RuntimeException)
  71 {
  72     mxNamedRange->setName( rName );
  73 }
  74
  75 OUString
  76 ScVbaName::getNameLocal() throw (css::uno::RuntimeException)
  77 {
  78     return getName();
  79 }
  80
  81 void
  82 ScVbaName::setNameLocal( const OUString & rName ) throw (css::uno::RuntimeException)
  83 {
  84     setName( rName );
  85 }
  86
  87 sal_Bool
  88 ScVbaName::getVisible() throw (css::uno::RuntimeException)
  89 {
  90     return true;
  91 }
  92
  93 void
  94 ScVbaName::setVisible( sal_Bool /*bVisible*/ ) throw (css::uno::RuntimeException)
  95 {
  96 }
  97
  98 OUString ScVbaName::getContent( const formula::FormulaGrammar::Grammar eGrammar, bool bPrependEquals )
  99 {
 100     ScNamedRangeObj* pNamedRange = dynamic_cast< ScNamedRangeObj* >( mxNamedRange.get() );
 101     OUString aContent;
 102     if ( pNamedRange )
 103     {
 104         ScRangeData* pData = pNamedRange->GetRangeData_Impl();
 105         if (pData)
 106             pData->GetSymbol( aContent, eGrammar );
 107     }
 108     if ( bPrependEquals )
 109     {
 110         if (aContent.indexOf('=') != 0)
 111             aContent = OUString::createFromAscii("=") + aContent;
 112     }
 113     return aContent;
 114 }
 115
 116 void  ScVbaName::setContent( const OUString& rContent, const formula::FormulaGrammar::Grammar eGrammar, bool bRemoveEquals )
 117 {
 118     OUString sContent( rContent );
 119     if ( bRemoveEquals )
 120     {
 121         if (sContent.indexOf('=') == 0)
 122             sContent = sContent.copy(1);
 123     }
 124     ScNamedRangeObj* pNamedRange = dynamic_cast< ScNamedRangeObj* >( mxNamedRange.get() );
 125
 126     // We should be able to do the below by just setting calling SetCode on pNamedRange
 127     // right?
 128     if ( pNamedRange && pNamedRange->pDocShell )
 129     {
 130
 131         ScDocument* pDoc = pNamedRange->pDocShell->GetDocument();
 132         ScRangeData* pOldData = pNamedRange->GetRangeData_Impl();
 133         if (pOldData)
 134         {
 135             // Shorter way of doing this ?
 136             ScCompiler aComp( pDoc, pOldData->GetPos() );
 137             aComp.SetGrammar( eGrammar );
 138             ScTokenArray aArray(*aComp.CompileString( sContent ) );
 139             pOldData->SetCode( aArray );
 140         }
 141     }
 142 }
 143
 144 OUString
 145 ScVbaName::getValue() throw (css::uno::RuntimeException)
 146 {
 147     rtl::OUString sResult = getContent( formula::FormulaGrammar::GRAM_NATIVE_XL_A1, true );
 148
 149     return sResult;
 150 }
 151
 152 void
 153 ScVbaName::setValue( const OUString & rValue ) throw (css::uno::RuntimeException)
 154 {
 155     setContent( rValue, formula::FormulaGrammar::GRAM_NATIVE_XL_A1, true );
 156 }
 157
 158 OUString
 159 ScVbaName::getRefersTo() throw (css::uno::RuntimeException)
 160 {
 161     return getValue();
 162 }
 163
 164 void
 165 ScVbaName::setRefersTo( const OUString & rRefersTo ) throw (css::uno::RuntimeException)
 166 {
 167     setValue( rRefersTo );
 168 }
 169
 170 OUString
 171 ScVbaName::getRefersToLocal() throw (css::uno::RuntimeException)
 172 {
 173     return getRefersTo();
 174 }
 175
 176 void
 177 ScVbaName::setRefersToLocal( const OUString & rRefersTo ) throw (css::uno::RuntimeException)
 178 {
 179     setRefersTo( rRefersTo );
 180 }
 181
 182 OUString
 183 ScVbaName::getRefersToR1C1() throw (css::uno::RuntimeException)
 184 {
 185     rtl::OUString sResult = getContent( formula::FormulaGrammar::GRAM_NATIVE_XL_R1C1, true );
 186     return  sResult;
 187 }
 188
 189 void
 190 ScVbaName::setRefersToR1C1( const OUString & rRefersTo ) throw (css::uno::RuntimeException)
 191 {
 192     setContent( rRefersTo, formula::FormulaGrammar::GRAM_NATIVE_XL_R1C1, true );
 193 }
 194
 195 OUString
 196 ScVbaName::getRefersToR1C1Local() throw (css::uno::RuntimeException)
 197 {
 198     return getRefersToR1C1();
 199 }
 200
 201 void
 202 ScVbaName::setRefersToR1C1Local( const OUString & rRefersTo ) throw (css::uno::RuntimeException)
 203 {
 204     setRefersTo( rRefersTo );
 205 }
 206
 207 css::uno::Reference< ov::excel::XRange >
 208 ScVbaName::getRefersToRange() throw (css::uno::RuntimeException)
 209 {
 210     uno::Reference< ov::excel::XRange > xRange = ScVbaRange::getRangeObjectForName(
 211         mxContext, mxNamedRange->getName(), excel::getDocShell( mxModel ), formula::FormulaGrammar::CONV_XL_R1C1 );
 212     return xRange;
 213 }
 214
 215 void
 216 ScVbaName::setRefersToRange( const css::uno::Reference< ov::excel::XRange > /*rRange*/ ) throw (css::uno::RuntimeException)
 217 {
 218 }
 219
 220 void
 221 ScVbaName::Delete() throw (css::uno::RuntimeException)
 222 {
 223     mxNames->removeByName( mxNamedRange->getName() );
 224 }
 225
 226 OUString
 227 ScVbaName::getServiceImplName()
 228 {
 229     return OUString( "ScVbaName" );
 230 }
 231
 232 uno::Sequence< OUString >
 233 ScVbaName::getServiceNames()
 234 {
 235     static uno::Sequence< OUString > aServiceNames;
 236     if ( aServiceNames.getLength() == 0 )
 237     {
 238         aServiceNames.realloc( 1 );
 239         aServiceNames[ 0 ] = OUString( "ooo.vba.excel.Name" );
 240     }
 241     return aServiceNames;
 242 }
 243
 244 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */