sc/source/ui/vba/vbaglobals.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 "vbaglobals.hxx"
  20
  21 #include <com/sun/star/lang/XMultiComponentFactory.hpp>
  22 #include <comphelper/sequence.hxx>
  23 #include <com/sun/star/beans/PropertyValue.hpp>
  24 #include <com/sun/star/frame/XModel.hpp>
  25
  26 #include "vbaapplication.hxx"
  27
  28 using namespace ::com::sun::star;
  29 using namespace ::com::sun::star::uno;
  30 using namespace ::ooo::vba;
  31
  32 // ScVbaGlobals
  33
  34 //ScVbaGlobals::ScVbaGlobals(  css::uno::Reference< css::uno::XComponentContext >const& rxContext,  ) : ScVbaGlobals_BASE( uno::Reference< XHelperInterface >(), rxContext )
  35
  36 ScVbaGlobals::ScVbaGlobals( uno::Sequence< uno::Any > const& aArgs, uno::Reference< uno::XComponentContext >const& rxContext ) : ScVbaGlobals_BASE( uno::Reference< XHelperInterface >(), rxContext, "ExcelDocumentContext" )
  37 {
  38     uno::Sequence< beans::PropertyValue > aInitArgs( aArgs.hasElements() ? 2 : 1 );
  39     auto pInitArgs = aInitArgs.getArray();
  40     pInitArgs[ 0 ].Name = "Application";
  41     pInitArgs[ 0 ].Value <<= getApplication();
  42     if ( aArgs.hasElements() )
  43     {
  44         pInitArgs[ 1 ].Name = "ExcelDocumentContext";
  45         pInitArgs[ 1 ].Value <<= getXSomethingFromArgs< frame::XModel >( aArgs, 0 );
  46     }
  47     init( aInitArgs );
  48 }
  49
  50 ScVbaGlobals::~ScVbaGlobals()
  51 {
  52 }
  53
  54 // XGlobals
  55
  56 uno::Reference<excel::XApplication > const &
  57 ScVbaGlobals::getApplication()
  58 {
  59     if ( !mxApplication.is() )
  60         mxApplication.set( new ScVbaApplication( mxContext) );
  61     return mxApplication;
  62 }
  63
  64 uno::Reference<excel::XApplication > SAL_CALL
  65 ScVbaGlobals::getExcel()
  66 {
  67        return getApplication();
  68 }
  69
  70 uno::Reference< excel::XWorkbook > SAL_CALL
  71 ScVbaGlobals::getActiveWorkbook()
  72 {
  73     uno::Reference< excel::XWorkbook > xWorkbook( getApplication()->getActiveWorkbook(), uno::UNO_SET_THROW);
  74     return xWorkbook;
  75 }
  76
  77 uno::Reference< excel::XWindow > SAL_CALL
  78 ScVbaGlobals::getActiveWindow()
  79 {
  80     return getApplication()->getActiveWindow();
  81 }
  82
  83 uno::Reference< excel::XWorksheet > SAL_CALL
  84 ScVbaGlobals::getActiveSheet()
  85 {
  86     return getApplication()->getActiveSheet();
  87 }
  88
  89 uno::Any SAL_CALL
  90 ScVbaGlobals::WorkBooks( const uno::Any& aIndex )
  91 {
  92     return getApplication()->Workbooks(aIndex);
  93 }
  94
  95 uno::Any SAL_CALL
  96 ScVbaGlobals::WorkSheets(const uno::Any& aIndex)
  97 {
  98     return getApplication()->Worksheets( aIndex );
  99 }
 100 uno::Any SAL_CALL
 101 ScVbaGlobals::Sheets( const uno::Any& aIndex )
 102 {
 103     return WorkSheets( aIndex );
 104 }
 105
 106 uno::Any SAL_CALL
 107 ScVbaGlobals::Range( const uno::Any& Cell1, const uno::Any& Cell2 )
 108 {
 109     return getApplication()->Range( Cell1, Cell2 );
 110 }
 111
 112 uno::Any SAL_CALL
 113 ScVbaGlobals::Names( const css::uno::Any& aIndex )
 114 {
 115     return getApplication()->Names( aIndex );
 116 }
 117
 118 uno::Reference< excel::XRange > SAL_CALL
 119 ScVbaGlobals::getActiveCell()
 120 {
 121     return getApplication()->getActiveCell();
 122 }
 123
 124 uno::Reference< XAssistant > SAL_CALL
 125 ScVbaGlobals::getAssistant()
 126 {
 127     return getApplication()->getAssistant();
 128 }
 129
 130 uno::Any SAL_CALL
 131 ScVbaGlobals::getSelection()
 132 {
 133     return getApplication()->getSelection();
 134 }
 135
 136 uno::Reference< excel::XWorkbook > SAL_CALL
 137 ScVbaGlobals::getThisWorkbook()
 138 {
 139     return getApplication()->getThisWorkbook();
 140 }
 141 void SAL_CALL
 142 ScVbaGlobals::Calculate()
 143 {
 144     return getApplication()->Calculate();
 145 }
 146
 147 uno::Reference< excel::XRange > SAL_CALL
 148 ScVbaGlobals::Cells( const uno::Any& RowIndex, const uno::Any& ColumnIndex )
 149 {
 150     return getApplication()->getActiveSheet()->Cells( RowIndex, ColumnIndex );
 151 }
 152 uno::Reference< excel::XRange > SAL_CALL
 153 ScVbaGlobals::Columns( const uno::Any& aIndex )
 154 {
 155     return getApplication()->getActiveSheet()->Columns( aIndex );
 156 }
 157
 158 uno::Any SAL_CALL
 159 ScVbaGlobals::CommandBars( const uno::Any& aIndex )
 160 {
 161     uno::Reference< XApplicationBase > xBase( getApplication(), uno::UNO_QUERY_THROW );
 162     return xBase->CommandBars( aIndex );
 163 }
 164
 165 css::uno::Reference< ov::excel::XRange > SAL_CALL
 166 ScVbaGlobals::Union( const css::uno::Reference< ov::excel::XRange >& Arg1, const css::uno::Reference< ov::excel::XRange >& Arg2, const css::uno::Any& Arg3, const css::uno::Any& Arg4, const css::uno::Any& Arg5, const css::uno::Any& Arg6, const css::uno::Any& Arg7, const css::uno::Any& Arg8, const css::uno::Any& Arg9, const css::uno::Any& Arg10, const css::uno::Any& Arg11, const css::uno::Any& Arg12, const css::uno::Any& Arg13, const css::uno::Any& Arg14, const css::uno::Any& Arg15, const css::uno::Any& Arg16, const css::uno::Any& Arg17, const css::uno::Any& Arg18, const css::uno::Any& Arg19, const css::uno::Any& Arg20, const css::uno::Any& Arg21, const css::uno::Any& Arg22, const css::uno::Any& Arg23, const css::uno::Any& Arg24, const css::uno::Any& Arg25, const css::uno::Any& Arg26, const css::uno::Any& Arg27, const css::uno::Any& Arg28, const css::uno::Any& Arg29, const css::uno::Any& Arg30 )
 167 {
 168     return getApplication()->Union(  Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, Arg9, Arg10, Arg11, Arg12, Arg13, Arg14, Arg15, Arg16, Arg17, Arg18, Arg19, Arg20, Arg21, Arg22, Arg23, Arg24, Arg25, Arg26, Arg27, Arg28, Arg29, Arg30 );
 169 }
 170 css::uno::Reference< ov::excel::XRange > SAL_CALL
 171 ScVbaGlobals::Intersect( const css::uno::Reference< ov::excel::XRange >& Arg1, const css::uno::Reference< ov::excel::XRange >& Arg2, const css::uno::Any& Arg3, const css::uno::Any& Arg4, const css::uno::Any& Arg5, const css::uno::Any& Arg6, const css::uno::Any& Arg7, const css::uno::Any& Arg8, const css::uno::Any& Arg9, const css::uno::Any& Arg10, const css::uno::Any& Arg11, const css::uno::Any& Arg12, const css::uno::Any& Arg13, const css::uno::Any& Arg14, const css::uno::Any& Arg15, const css::uno::Any& Arg16, const css::uno::Any& Arg17, const css::uno::Any& Arg18, const css::uno::Any& Arg19, const css::uno::Any& Arg20, const css::uno::Any& Arg21, const css::uno::Any& Arg22, const css::uno::Any& Arg23, const css::uno::Any& Arg24, const css::uno::Any& Arg25, const css::uno::Any& Arg26, const css::uno::Any& Arg27, const css::uno::Any& Arg28, const css::uno::Any& Arg29, const css::uno::Any& Arg30 )
 172 {
 173     return getApplication()->Intersect(  Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, Arg9, Arg10, Arg11, Arg12, Arg13, Arg14, Arg15, Arg16, Arg17, Arg18, Arg19, Arg20, Arg21, Arg22, Arg23, Arg24, Arg25, Arg26, Arg27, Arg28, Arg29, Arg30 );
 174 }
 175
 176 uno::Any SAL_CALL
 177 ScVbaGlobals::Evaluate( const OUString& Name )
 178 {
 179     return getApplication()->Evaluate( Name );
 180 }
 181
 182 css::uno::Any SAL_CALL
 183 ScVbaGlobals::WorksheetFunction(  )
 184 {
 185     return getApplication()->WorksheetFunction();
 186 }
 187
 188 uno::Any SAL_CALL
 189 ScVbaGlobals::Windows( const uno::Any& aIndex )
 190 {
 191     return getApplication()->Windows( aIndex );
 192 }
 193
 194 uno::Reference< excel::XRange > SAL_CALL
 195 ScVbaGlobals::Rows( const uno::Any& aIndex )
 196 {
 197     return getApplication()->getActiveSheet()->Rows( aIndex );
 198
 199 }
 200
 201 uno::Any SAL_CALL
 202 ScVbaGlobals::getDebug()
 203 {
 204     try // return empty object on error
 205     {
 206         uno::Reference< lang::XMultiComponentFactory > xServiceManager( mxContext->getServiceManager(), uno::UNO_SET_THROW );
 207         uno::Reference< uno::XInterface > xVBADebug = xServiceManager->createInstanceWithContext(
 208             u"ooo.vba.Debug"_ustr, mxContext );
 209         return uno::Any( xVBADebug );
 210     }
 211     catch( uno::Exception& )
 212     {
 213     }
 214     return uno::Any();
 215 }
 216
 217 uno::Any SAL_CALL
 218 ScVbaGlobals::MenuBars( const uno::Any& aIndex )
 219 {
 220     return getApplication()->MenuBars(aIndex);
 221 }
 222
 223 uno::Sequence< OUString > SAL_CALL
 224 ScVbaGlobals::getAvailableServiceNames(  )
 225 {
 226     static const uno::Sequence< OUString > serviceNames = comphelper::concatSequences(
 227         ScVbaGlobals_BASE::getAvailableServiceNames(),
 228         std::initializer_list<OUString>
 229         {
 230             u"ooo.vba.excel.Range"_ustr,
 231             u"ooo.vba.excel.Workbook"_ustr,
 232             u"ooo.vba.excel.Window"_ustr,
 233             u"ooo.vba.excel.Worksheet"_ustr,
 234             u"ooo.vba.excel.Application"_ustr,
 235             u"ooo.vba.excel.Hyperlink"_ustr,
 236             u"com.sun.star.script.vba.VBASpreadsheetEventProcessor"_ustr
 237         } );
 238     return serviceNames;
 239 }
 240
 241 OUString
 242 ScVbaGlobals::getServiceImplName()
 243 {
 244     return u"ScVbaGlobals"_ustr;
 245 }
 246
 247 uno::Sequence< OUString >
 248 ScVbaGlobals::getServiceNames()
 249 {
 250         static uno::Sequence< OUString > aServiceNames
 251         {
 252             u"ooo.vba.excel.Globals"_ustr
 253         };
 254         return aServiceNames;
 255 }
 256
 257 extern "C" SAL_DLLPUBLIC_EXPORT css::uno::XInterface *
 258 ScVbaGlobals_get_implementation(
 259     css::uno::XComponentContext *context,
 260     css::uno::Sequence<css::uno::Any> const &arguments)
 261 {
 262     return cppu::acquire(new ScVbaGlobals(arguments, context));
 263 }
 264
 265 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */