From a7cc0faeff0f02d82b9cad2a95359f73cc871e8a Mon Sep 17 00:00:00 2001 From: Noel Power Date: Fri, 3 May 2013 10:24:33 +0100 Subject: support Shape.Alternative Change-Id: I6d822ef0d06e222f454c1279be16e33bcaae0037 --- vbahelper/source/vbahelper/vbashape.cxx | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) (limited to 'vbahelper') diff --git a/vbahelper/source/vbahelper/vbashape.cxx b/vbahelper/source/vbahelper/vbashape.cxx index 690f7b751545..f94d96d73a77 100644 --- a/vbahelper/source/vbahelper/vbashape.cxx +++ b/vbahelper/source/vbahelper/vbashape.cxx @@ -167,6 +167,22 @@ ScVbaShape::setName( const OUString& _name ) throw (uno::RuntimeException) xNamed->setName( _name ); } +OUString SAL_CALL +ScVbaShape::getAlternativeText() throw (uno::RuntimeException) +{ + OUString sAltText; + uno::Reference< beans::XPropertySet > xProps( m_xShape, uno::UNO_QUERY_THROW ); + xProps->getPropertyValue( OUString( "Title" ) ) >>= sAltText; + return sAltText; +} + +void SAL_CALL +ScVbaShape::setAlternativeText( const OUString& sAltText ) throw (uno::RuntimeException) +{ + uno::Reference< beans::XPropertySet > xProps( m_xShape, uno::UNO_QUERY_THROW ); + xProps->setPropertyValue( OUString( "Title" ), uno::Any( sAltText ) ); +} + double SAL_CALL ScVbaShape::getHeight() throw (uno::RuntimeException) { -- cgit