1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
|
/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
/*************************************************************************
*
* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
*
* Copyright 2000, 2010 Oracle and/or its affiliates.
*
* OpenOffice.org - a multi-platform office productivity suite
*
* This file is part of OpenOffice.org.
*
* OpenOffice.org is free software: you can redistribute it and/or modify
* it under the terms of the GNU Lesser General Public License version 3
* only, as published by the Free Software Foundation.
*
* OpenOffice.org is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU Lesser General Public License version 3 for more details
* (a copy is included in the LICENSE file that accompanied this code).
*
* You should have received a copy of the GNU Lesser General Public License
* version 3 along with OpenOffice.org. If not, see
* <http://www.openoffice.org/license.html>
* for a copy of the LGPLv3 License.
*
************************************************************************/
#ifndef SC_VBA_HYPERLINKS_HXX
#define SC_VBA_HYPERLINKS_HXX
#include <ooo/vba/excel/XHyperlinks.hpp>
#include <rtl/ref.hxx>
#include <vbahelper/vbacollectionimpl.hxx>
class ScRangeList;
// ============================================================================
namespace detail {
class ScVbaHlinkContainer;
typedef ::rtl::Reference< ScVbaHlinkContainer > ScVbaHlinkContainerRef;
/** Base class for ScVbaHyperlinks to get an initialized ScVbaHlinkContainer
class member before the ScVbaHyperlinks_BASE base class will be constructed.
*/
struct ScVbaHlinkContainerMember
{
ScVbaHlinkContainerRef mxContainer;
explicit ScVbaHlinkContainerMember( ScVbaHlinkContainer* pContainer );
~ScVbaHlinkContainerMember();
};
} // namespace detail
// ============================================================================
class ScVbaHyperlinks;
typedef ::rtl::Reference< ScVbaHyperlinks > ScVbaHyperlinksRef;
typedef CollTestImplHelper< ov::excel::XHyperlinks > ScVbaHyperlinks_BASE;
/** Represents a collection of hyperlinks of a worksheet or of a range.
When a Hyperlinks collection object has been constructed from a VBA
Worksheet object, it will always represent the current set of all
hyperlinks existing in the sheet. Insertion and deletion of hyperlinks will
be reflected by the instance.
When a Hyperlinks collection object has been constructed from a VBA Range
object, it will represent the set of hyperlinks that have existed at its
construction time, and that are located completely inside the range(s)
represented by the Range object. Insertion and deletion of hyperlinks will
*not* be reflected by that instance. The instance will always offer all
hyperlinks it has been constructed with, even if they no longer exist.
Furthermore, the instance will not offer hyperlinks inserted later, even if
the instance itself has been used to insert the new hyperlinks.
VBA code example:
With ThisWorkbook.Worksheets(1)
Set hlinks = .Hyperlinks ' global Hyperlinks object
Set myrange = .Range("A1:C3")
Set rangelinks1 = myrange.Hyperlinks ' hyperlinks of range A1:C3
MsgBox hlinks.Count ' 0
MsgBox rangelinks1.Count ' 0
hlinks.Add .Range("A1"), "http://example.com"
' a new hyperlink has been added in cell A1
MsgBox hlinks.Count ' 1
MsgBox rangelinks1.Count ' still 0!
Set rangelinks2 = myrange.Hyperlinks ' hyperlinks of range A1:C3
MsgBox rangelinks2.Count ' 1 (constructed after Add)
rangelinks1.Add .Range("A2"), "http://example.com"
' a new hyperlink has been constructed via the rangelinks1 object
' but this addition has been done by the worksheet Hyperlinks object
MsgBox hlinks.Count ' 2
MsgBox rangelinks1.Count ' still 0!!!
MsgBox rangelinks2.Count ' still 1!!!
MsgBox myrange.Hyperlinks.Count ' 2 (constructed after Add)
End With
*/
class ScVbaHyperlinks : private detail::ScVbaHlinkContainerMember, public ScVbaHyperlinks_BASE
{
public:
explicit ScVbaHyperlinks(
const css::uno::Reference< ov::XHelperInterface >& rxParent,
const css::uno::Reference< css::uno::XComponentContext >& rxContext ) throw (css::uno::RuntimeException);
explicit ScVbaHyperlinks(
const css::uno::Reference< ov::XHelperInterface >& rxParent,
const css::uno::Reference< css::uno::XComponentContext >& rxContext,
const ScVbaHyperlinksRef& rxSheetHlinks, const ScRangeList& rScRanges ) throw (css::uno::RuntimeException);
virtual ~ScVbaHyperlinks();
// XHyperlinks
virtual css::uno::Reference< ov::excel::XHyperlink > SAL_CALL Add(
const css::uno::Any& rAnchor, const css::uno::Any& rAddress, const css::uno::Any& rSubAddress,
const css::uno::Any& rScreenTip, const css::uno::Any& rTextToDisplay )
throw (css::uno::RuntimeException);
virtual void SAL_CALL Delete() throw (css::uno::RuntimeException);
// XEnumerationAccess
virtual css::uno::Reference< css::container::XEnumeration > SAL_CALL createEnumeration() throw (css::uno::RuntimeException);
// XElementAccess
virtual css::uno::Type SAL_CALL getElementType() throw (css::uno::RuntimeException);
// ScVbaCollectionBase
virtual css::uno::Any createCollectionObject( const css::uno::Any& rSource );
// XHelperInterface
VBAHELPER_DECL_XHELPERINTERFACE
private:
ScVbaHyperlinksRef mxSheetHlinks;
};
// ============================================================================
#endif
/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|
