1*cdf0e10cSrcweir /************************************************************************* 2*cdf0e10cSrcweir * 3*cdf0e10cSrcweir * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 4*cdf0e10cSrcweir * 5*cdf0e10cSrcweir * Copyright 2000, 2010 Oracle and/or its affiliates. 6*cdf0e10cSrcweir * 7*cdf0e10cSrcweir * OpenOffice.org - a multi-platform office productivity suite 8*cdf0e10cSrcweir * 9*cdf0e10cSrcweir * This file is part of OpenOffice.org. 10*cdf0e10cSrcweir * 11*cdf0e10cSrcweir * OpenOffice.org is free software: you can redistribute it and/or modify 12*cdf0e10cSrcweir * it under the terms of the GNU Lesser General Public License version 3 13*cdf0e10cSrcweir * only, as published by the Free Software Foundation. 14*cdf0e10cSrcweir * 15*cdf0e10cSrcweir * OpenOffice.org is distributed in the hope that it will be useful, 16*cdf0e10cSrcweir * but WITHOUT ANY WARRANTY; without even the implied warranty of 17*cdf0e10cSrcweir * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18*cdf0e10cSrcweir * GNU Lesser General Public License version 3 for more details 19*cdf0e10cSrcweir * (a copy is included in the LICENSE file that accompanied this code). 20*cdf0e10cSrcweir * 21*cdf0e10cSrcweir * You should have received a copy of the GNU Lesser General Public License 22*cdf0e10cSrcweir * version 3 along with OpenOffice.org. If not, see 23*cdf0e10cSrcweir * <http://www.openoffice.org/license.html> 24*cdf0e10cSrcweir * for a copy of the LGPLv3 License. 25*cdf0e10cSrcweir * 26*cdf0e10cSrcweir ************************************************************************/ 27*cdf0e10cSrcweir #include <vbahelper/helperdecl.hxx> 28*cdf0e10cSrcweir #include <com/sun/star/drawing/TextFitToSizeType.hpp> 29*cdf0e10cSrcweir #include <com/sun/star/text/XText.hpp> 30*cdf0e10cSrcweir #include "vbatextframe.hxx" 31*cdf0e10cSrcweir #include "vbacharacters.hxx" 32*cdf0e10cSrcweir 33*cdf0e10cSrcweir using namespace ::ooo::vba; 34*cdf0e10cSrcweir using namespace ::com::sun::star; 35*cdf0e10cSrcweir 36*cdf0e10cSrcweir 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 ) ) 37*cdf0e10cSrcweir { 38*cdf0e10cSrcweir } 39*cdf0e10cSrcweir 40*cdf0e10cSrcweir // Methods 41*cdf0e10cSrcweir uno::Any SAL_CALL 42*cdf0e10cSrcweir ScVbaTextFrame::Characters() throw (uno::RuntimeException) 43*cdf0e10cSrcweir { 44*cdf0e10cSrcweir uno::Reference< text::XSimpleText > xSimpleText( m_xShape, uno::UNO_QUERY_THROW ); 45*cdf0e10cSrcweir ScVbaPalette aPalette( SfxObjectShell::Current() ); 46*cdf0e10cSrcweir uno::Any aStart( sal_Int32( 1 ) ); 47*cdf0e10cSrcweir uno::Any aLength(sal_Int32( -1 ) ); 48*cdf0e10cSrcweir return uno::makeAny( uno::Reference< ov::excel::XCharacters >( new ScVbaCharacters( this, mxContext, aPalette, xSimpleText, aStart, aLength, sal_True ) ) ); 49*cdf0e10cSrcweir } 50*cdf0e10cSrcweir 51*cdf0e10cSrcweir rtl::OUString& 52*cdf0e10cSrcweir ScVbaTextFrame::getServiceImplName() 53*cdf0e10cSrcweir { 54*cdf0e10cSrcweir static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("ScVbaTextFrame") ); 55*cdf0e10cSrcweir return sImplName; 56*cdf0e10cSrcweir } 57*cdf0e10cSrcweir 58*cdf0e10cSrcweir uno::Sequence< rtl::OUString > 59*cdf0e10cSrcweir ScVbaTextFrame::getServiceNames() 60*cdf0e10cSrcweir { 61*cdf0e10cSrcweir static uno::Sequence< rtl::OUString > aServiceNames; 62*cdf0e10cSrcweir if ( aServiceNames.getLength() == 0 ) 63*cdf0e10cSrcweir { 64*cdf0e10cSrcweir aServiceNames.realloc( 1 ); 65*cdf0e10cSrcweir aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.excel.TextFrame" ) ); 66*cdf0e10cSrcweir } 67*cdf0e10cSrcweir return aServiceNames; 68*cdf0e10cSrcweir } 69*cdf0e10cSrcweir 70*cdf0e10cSrcweir namespace textframe 71*cdf0e10cSrcweir { 72*cdf0e10cSrcweir namespace sdecl = comphelper::service_decl; 73*cdf0e10cSrcweir sdecl::vba_service_class_<ScVbaTextFrame, sdecl::with_args<true> > serviceImpl; 74*cdf0e10cSrcweir extern sdecl::ServiceDecl const serviceDecl( 75*cdf0e10cSrcweir serviceImpl, 76*cdf0e10cSrcweir "ScVbaTextFrame", 77*cdf0e10cSrcweir "ooo.vba.excel.TextFrame" ); 78*cdf0e10cSrcweir } 79