diff options
Diffstat (limited to 'sc/source/ui/vba/excelvbahelper.hxx')
| -rw-r--r-- | sc/source/ui/vba/excelvbahelper.hxx | 97 |
1 files changed, 97 insertions, 0 deletions
diff --git a/sc/source/ui/vba/excelvbahelper.hxx b/sc/source/ui/vba/excelvbahelper.hxx new file mode 100644 index 000000000..0b72481e3 --- /dev/null +++ b/sc/source/ui/vba/excelvbahelper.hxx @@ -0,0 +1,97 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/* + * This file is part of the LibreOffice project. + * + * This Source Code Form is subject to the terms of the Mozilla Public + * License, v. 2.0. If a copy of the MPL was not distributed with this + * file, You can obtain one at http://mozilla.org/MPL/2.0/. + * + * This file incorporates work covered by the following license notice: + * + * Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed + * with this work for additional information regarding copyright + * ownership. The ASF licenses this file to you under the Apache + * License, Version 2.0 (the "License"); you may not use this file + * except in compliance with the License. You may obtain a copy of + * the License at http://www.apache.org/licenses/LICENSE-2.0 . + */ +#pragma once + +#include <sal/config.h> + +#include <comphelper/servicehelper.hxx> + +#include <vector> +#include <global.hxx> + +namespace com::sun::star::frame { class XModel; } +namespace com::sun::star::uno { class XComponentContext; } + +namespace com::sun::star::sheet { class XDatabaseRange; } +namespace com::sun::star::sheet { class XUnnamedDatabaseRanges; } +namespace com::sun::star::table { class XCell; } +namespace com::sun::star::table { class XCellRange; } +namespace com::sun::star::sheet { class XSheetCellRangeContainer; } +namespace com::sun::star::sheet { class XSpreadsheet; } +namespace com::sun::star::sheet { class XSpreadsheetDocument; } +namespace ooo::vba { class XHelperInterface; } + +class ScCellRangesBase; +class ScTabViewShell; +class SfxViewFrame; + +namespace ooo::vba::excel { + +// nTabs empty means apply zoom to all sheets +void implSetZoom( const css::uno::Reference< css::frame::XModel >& xModel, sal_Int16 nZoom, std::vector< SCTAB >& nTabs ); +void implnCopy( const css::uno::Reference< css::frame::XModel>& xModel ); +void implnPaste ( const css::uno::Reference< css::frame::XModel>& xModel ); +void implnCut( const css::uno::Reference< css::frame::XModel>& xModel ); +void implnPasteSpecial( const css::uno::Reference< css::frame::XModel>& xModel, InsertDeleteFlags nFlags, ScPasteFunc nFunction, bool bSkipEmpty, bool bTranspose); +ScTabViewShell* getBestViewShell( const css::uno::Reference< css::frame::XModel>& xModel ) ; +ScDocShell* getDocShell( const css::uno::Reference< css::frame::XModel>& xModel ) ; +ScTabViewShell* getCurrentBestViewShell( const css::uno::Reference< css::uno::XComponentContext >& xContext ); +SfxViewFrame* getViewFrame( const css::uno::Reference< css::frame::XModel >& xModel ); + +/// @throws css::uno::RuntimeException +css::uno::Reference< css::sheet::XUnnamedDatabaseRanges > GetUnnamedDataBaseRanges( const ScDocShell* pShell ); + +/// @throws css::uno::RuntimeException +css::uno::Reference< css::sheet::XDatabaseRange > GetAutoFiltRange( const ScDocShell* pShell, sal_Int16 nSheet ); +/// @throws css::uno::RuntimeException +css::uno::Reference< ooo::vba::XHelperInterface > getUnoSheetModuleObj( const css::uno::Reference< css::sheet::XSpreadsheet >& xSheet ); +/// @throws css::uno::RuntimeException +css::uno::Reference< ooo::vba::XHelperInterface > getUnoSheetModuleObj( const css::uno::Reference< css::sheet::XSheetCellRangeContainer >& xRanges ); +/// @throws css::uno::RuntimeException +css::uno::Reference< ooo::vba::XHelperInterface > getUnoSheetModuleObj( const css::uno::Reference< css::table::XCellRange >& xRange ); +/// @throws css::uno::RuntimeException +css::uno::Reference< ooo::vba::XHelperInterface > getUnoSheetModuleObj( const css::uno::Reference< css::table::XCell >& xCell ); +/// @throws css::uno::RuntimeException +css::uno::Reference< ooo::vba::XHelperInterface > getUnoSheetModuleObj( const css::uno::Reference< css::frame::XModel >& xModel, SCTAB nTab ); + +/// @throws css::uno::RuntimeException +ScDocShell* GetDocShellFromRange( const css::uno::Reference< css::uno::XInterface >& xRange ); +void setUpDocumentModules( const css::uno::Reference< css::sheet::XSpreadsheetDocument >& xDoc ); + +class ScVbaCellRangeAccess +{ +public: + static SfxItemSet* GetDataSet( ScCellRangesBase* pRangeObj ); +}; + +// Extracts an implementation object (via XUnoTunnel) from a UNO object. +// Will throw if unsuccessful. +/// @throws css::uno::RuntimeException +template < typename ImplObject > + ImplObject* getImplFromDocModuleWrapper( const css::uno::Reference< css::uno::XInterface >& rxWrapperIf ) + { + ImplObject* pObj = comphelper::getFromUnoTunnel<ImplObject>(rxWrapperIf); + if ( !pObj ) + throw css::uno::RuntimeException("Internal error, can't extract implementation object", rxWrapperIf ); + return pObj; + } + +} // namespace ooo::vba::excel + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ |