1*b1cdbd2cSJim Jagielski /**************************************************************
2*b1cdbd2cSJim Jagielski *
3*b1cdbd2cSJim Jagielski * Licensed to the Apache Software Foundation (ASF) under one
4*b1cdbd2cSJim Jagielski * or more contributor license agreements. See the NOTICE file
5*b1cdbd2cSJim Jagielski * distributed with this work for additional information
6*b1cdbd2cSJim Jagielski * regarding copyright ownership. The ASF licenses this file
7*b1cdbd2cSJim Jagielski * to you under the Apache License, Version 2.0 (the
8*b1cdbd2cSJim Jagielski * "License"); you may not use this file except in compliance
9*b1cdbd2cSJim Jagielski * with the License. You may obtain a copy of the License at
10*b1cdbd2cSJim Jagielski *
11*b1cdbd2cSJim Jagielski * http://www.apache.org/licenses/LICENSE-2.0
12*b1cdbd2cSJim Jagielski *
13*b1cdbd2cSJim Jagielski * Unless required by applicable law or agreed to in writing,
14*b1cdbd2cSJim Jagielski * software distributed under the License is distributed on an
15*b1cdbd2cSJim Jagielski * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16*b1cdbd2cSJim Jagielski * KIND, either express or implied. See the License for the
17*b1cdbd2cSJim Jagielski * specific language governing permissions and limitations
18*b1cdbd2cSJim Jagielski * under the License.
19*b1cdbd2cSJim Jagielski *
20*b1cdbd2cSJim Jagielski *************************************************************/
21*b1cdbd2cSJim Jagielski
22*b1cdbd2cSJim Jagielski
23*b1cdbd2cSJim Jagielski #include <vbahelper/helperdecl.hxx>
24*b1cdbd2cSJim Jagielski #include <com/sun/star/drawing/TextFitToSizeType.hpp>
25*b1cdbd2cSJim Jagielski #include <com/sun/star/text/XText.hpp>
26*b1cdbd2cSJim Jagielski #include "vbatextframe.hxx"
27*b1cdbd2cSJim Jagielski #include "vbacharacters.hxx"
28*b1cdbd2cSJim Jagielski
29*b1cdbd2cSJim Jagielski using namespace ::ooo::vba;
30*b1cdbd2cSJim Jagielski using namespace ::com::sun::star;
31*b1cdbd2cSJim Jagielski
ScVbaTextFrame(uno::Sequence<uno::Any> const & args,uno::Reference<uno::XComponentContext> const & xContext)32*b1cdbd2cSJim Jagielski ScVbaTextFrame::ScVbaTextFrame( uno::Sequence< uno::Any> const & args, uno::Reference< uno::XComponentContext> const & xContext ) throw ( lang::IllegalArgumentException ) : ScVbaTextFrame_BASE( getXSomethingFromArgs< XHelperInterface >( args, 0 ), xContext, getXSomethingFromArgs< drawing::XShape >( args, 1, false ) )
33*b1cdbd2cSJim Jagielski {
34*b1cdbd2cSJim Jagielski }
35*b1cdbd2cSJim Jagielski
36*b1cdbd2cSJim Jagielski // Methods
37*b1cdbd2cSJim Jagielski uno::Any SAL_CALL
Characters()38*b1cdbd2cSJim Jagielski ScVbaTextFrame::Characters() throw (uno::RuntimeException)
39*b1cdbd2cSJim Jagielski {
40*b1cdbd2cSJim Jagielski uno::Reference< text::XSimpleText > xSimpleText( m_xShape, uno::UNO_QUERY_THROW );
41*b1cdbd2cSJim Jagielski ScVbaPalette aPalette( SfxObjectShell::Current() );
42*b1cdbd2cSJim Jagielski uno::Any aStart( sal_Int32( 1 ) );
43*b1cdbd2cSJim Jagielski uno::Any aLength(sal_Int32( -1 ) );
44*b1cdbd2cSJim Jagielski return uno::makeAny( uno::Reference< ov::excel::XCharacters >( new ScVbaCharacters( this, mxContext, aPalette, xSimpleText, aStart, aLength, sal_True ) ) );
45*b1cdbd2cSJim Jagielski }
46*b1cdbd2cSJim Jagielski
47*b1cdbd2cSJim Jagielski rtl::OUString&
getServiceImplName()48*b1cdbd2cSJim Jagielski ScVbaTextFrame::getServiceImplName()
49*b1cdbd2cSJim Jagielski {
50*b1cdbd2cSJim Jagielski static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("ScVbaTextFrame") );
51*b1cdbd2cSJim Jagielski return sImplName;
52*b1cdbd2cSJim Jagielski }
53*b1cdbd2cSJim Jagielski
54*b1cdbd2cSJim Jagielski uno::Sequence< rtl::OUString >
getServiceNames()55*b1cdbd2cSJim Jagielski ScVbaTextFrame::getServiceNames()
56*b1cdbd2cSJim Jagielski {
57*b1cdbd2cSJim Jagielski static uno::Sequence< rtl::OUString > aServiceNames;
58*b1cdbd2cSJim Jagielski if ( aServiceNames.getLength() == 0 )
59*b1cdbd2cSJim Jagielski {
60*b1cdbd2cSJim Jagielski aServiceNames.realloc( 1 );
61*b1cdbd2cSJim Jagielski aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.excel.TextFrame" ) );
62*b1cdbd2cSJim Jagielski }
63*b1cdbd2cSJim Jagielski return aServiceNames;
64*b1cdbd2cSJim Jagielski }
65*b1cdbd2cSJim Jagielski
66*b1cdbd2cSJim Jagielski namespace textframe
67*b1cdbd2cSJim Jagielski {
68*b1cdbd2cSJim Jagielski namespace sdecl = comphelper::service_decl;
69*b1cdbd2cSJim Jagielski sdecl::vba_service_class_<ScVbaTextFrame, sdecl::with_args<true> > serviceImpl;
70*b1cdbd2cSJim Jagielski extern sdecl::ServiceDecl const serviceDecl(
71*b1cdbd2cSJim Jagielski serviceImpl,
72*b1cdbd2cSJim Jagielski "ScVbaTextFrame",
73*b1cdbd2cSJim Jagielski "ooo.vba.excel.TextFrame" );
74*b1cdbd2cSJim Jagielski }
75