sc/source/ui/vba/vbahyperlinks.hxx

   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
  20 #ifndef INCLUDED_SC_SOURCE_UI_VBA_VBAHYPERLINKS_HXX
  21 #define INCLUDED_SC_SOURCE_UI_VBA_VBAHYPERLINKS_HXX
  22
  23 #include <ooo/vba/excel/XHyperlinks.hpp>
  24 #include <rtl/ref.hxx>
  25 #include <vbahelper/vbacollectionimpl.hxx>
  26
  27 class ScRangeList;
  28
  29 namespace detail {
  30
  31 class ScVbaHlinkContainer;
  32 typedef ::rtl::Reference< ScVbaHlinkContainer > ScVbaHlinkContainerRef;
  33
  34 /** Base class for ScVbaHyperlinks to get an initialized ScVbaHlinkContainer
  35     class member before the ScVbaHyperlinks_BASE base class will be constructed.
  36  */
  37 struct ScVbaHlinkContainerMember
  38 {
  39     ScVbaHlinkContainerRef mxContainer;
  40
  41     explicit ScVbaHlinkContainerMember( ScVbaHlinkContainer* pContainer );
  42     ~ScVbaHlinkContainerMember();
  43 };
  44
  45 } // namespace detail
  46
  47 class ScVbaHyperlinks;
  48 typedef ::rtl::Reference< ScVbaHyperlinks > ScVbaHyperlinksRef;
  49
  50 typedef CollTestImplHelper< ov::excel::XHyperlinks > ScVbaHyperlinks_BASE;
  51
  52 /** Represents a collection of hyperlinks of a worksheet or of a range.
  53
  54     When a Hyperlinks collection object has been constructed from a VBA
  55     Worksheet object, it will always represent the current set of all
  56     hyperlinks existing in the sheet. Insertion and deletion of hyperlinks will
  57     be reflected by the instance.
  58
  59     When a Hyperlinks collection object has been constructed from a VBA Range
  60     object, it will represent the set of hyperlinks that have existed at its
  61     construction time, and that are located completely inside the range(s)
  62     represented by the Range object. Insertion and deletion of hyperlinks will
  63     *not* be reflected by that instance. The instance will always offer all
  64     hyperlinks it has been constructed with, even if they no longer exist.
  65     Furthermore, the instance will not offer hyperlinks inserted later, even if
  66     the instance itself has been used to insert the new hyperlinks.
  67
  68     VBA code example:
  69
  70     With ThisWorkbook.Worksheets(1)
  71
  72         Set hlinks = .Hyperlinks                ' global Hyperlinks object
  73         Set myrange = .Range("A1:C3")
  74         Set rangelinks1 = myrange.Hyperlinks    ' hyperlinks of range A1:C3
  75
  76         MsgBox hlinks.Count                     ' 0
  77         MsgBox rangelinks1.Count                ' 0
  78
  79         hlinks.Add .Range("A1"), "http://example.com"
  80         ' a new hyperlink has been added in cell A1
  81
  82         MsgBox hlinks.Count                     ' 1
  83         MsgBox rangelinks1.Count                ' still 0!
  84         Set rangelinks2 = myrange.Hyperlinks    ' hyperlinks of range A1:C3
  85         MsgBox rangelinks2.Count                ' 1 (constructed after Add)
  86
  87         rangelinks1.Add .Range("A2"), "http://example.com"
  88         ' a new hyperlink has been constructed via the rangelinks1 object
  89         ' but this addition has been done by the worksheet Hyperlinks object
  90
  91         MsgBox hlinks.Count                     ' 2
  92         MsgBox rangelinks1.Count                ' still 0!!!
  93         MsgBox rangelinks2.Count                ' still 1!!!
  94         MsgBox myrange.Hyperlinks.Count         ' 2 (constructed after Add)
  95
  96     End With
  97  */
  98 class ScVbaHyperlinks : private detail::ScVbaHlinkContainerMember, public ScVbaHyperlinks_BASE
  99 {
 100 public:
 101     explicit ScVbaHyperlinks(
 102         const css::uno::Reference< ov::XHelperInterface >& rxParent,
 103         const css::uno::Reference< css::uno::XComponentContext >& rxContext ) throw (css::uno::RuntimeException);
 104
 105     explicit ScVbaHyperlinks(
 106         const css::uno::Reference< ov::XHelperInterface >& rxParent,
 107         const css::uno::Reference< css::uno::XComponentContext >& rxContext,
 108         const ScVbaHyperlinksRef& rxSheetHlinks, const ScRangeList& rScRanges ) throw (css::uno::RuntimeException);
 109
 110     virtual ~ScVbaHyperlinks();
 111
 112     // XHyperlinks
 113     virtual css::uno::Reference< ov::excel::XHyperlink > SAL_CALL Add(
 114         const css::uno::Any& rAnchor, const css::uno::Any& rAddress, const css::uno::Any& rSubAddress,
 115         const css::uno::Any& rScreenTip, const css::uno::Any& rTextToDisplay )
 116             throw (css::uno::RuntimeException, std::exception) SAL_OVERRIDE;
 117
 118     virtual void SAL_CALL Delete() throw (css::uno::RuntimeException, std::exception) SAL_OVERRIDE;
 119
 120     // XEnumerationAccess
 121     virtual css::uno::Reference< css::container::XEnumeration > SAL_CALL createEnumeration() throw (css::uno::RuntimeException) SAL_OVERRIDE;
 122
 123     // XElementAccess
 124     virtual css::uno::Type SAL_CALL getElementType() throw (css::uno::RuntimeException) SAL_OVERRIDE;
 125
 126     // ScVbaCollectionBase
 127     virtual css::uno::Any createCollectionObject( const css::uno::Any& rSource ) SAL_OVERRIDE;
 128
 129     // XHelperInterface
 130     VBAHELPER_DECL_XHELPERINTERFACE
 131
 132 private:
 133     ScVbaHyperlinksRef mxSheetHlinks;
 134 };
 135
 136 #endif
 137
 138 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */