sc/source/ui/vba/vbaaxis.cxx

   1 /*************************************************************************
   2  *
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * Copyright 2008 by Sun Microsystems, Inc.
   6  *
   7  * OpenOffice.org - a multi-platform office productivity suite
   8  *
   9  * $RCSfile: vbaaxis.cxx,v $
  10  * $Revision: 1.3 $
  11  *
  12  * This file is part of OpenOffice.org.
  13  *
  14  * OpenOffice.org is free software: you can redistribute it and/or modify
  15  * it under the terms of the GNU Lesser General Public License version 3
  16  * only, as published by the Free Software Foundation.
  17  *
  18  * OpenOffice.org is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU Lesser General Public License version 3 for more details
  22  * (a copy is included in the LICENSE file that accompanied this code).
  23  *
  24  * You should have received a copy of the GNU Lesser General Public License
  25  * version 3 along with OpenOffice.org.  If not, see
  26  * <http://www.openoffice.org/license.html>
  27  * for a copy of the LGPLv3 License.
  28  *
  29  ************************************************************************/
  30
  31 #include "vbaaxis.hxx"
  32 #include <ooo/vba/excel/XlAxisCrosses.hpp>
  33 #include <ooo/vba/excel/XlAxisType.hpp>
  34 #include <ooo/vba/excel/XlScaleType.hpp>
  35 #include "vbaaxistitle.hxx"
  36 #include "vbachart.hxx"
  37 using namespace ::com::sun::star;
  38 using namespace ::ooo::vba;
  39 using namespace ::ooo::vba::excel::XlAxisCrosses;
  40 using namespace ::ooo::vba::excel::XlAxisType;
  41 using namespace ::ooo::vba::excel::XlScaleType;
  42
  43 const rtl::OUString ORIGIN( RTL_CONSTASCII_USTRINGPARAM("Origin") );
  44 const rtl::OUString AUTOORIGIN( RTL_CONSTASCII_USTRINGPARAM("AutoOrigin") );
  45 const rtl::OUString VBA_MIN( RTL_CONSTASCII_USTRINGPARAM("Max") );
  46 const rtl::OUString VBA_MAX( RTL_CONSTASCII_USTRINGPARAM("Min") );
  47 ScVbaChart*
  48 ScVbaAxis::getChartPtr() throw( uno::RuntimeException )
  49 {
  50     ScVbaChart* pChart = static_cast< ScVbaChart* >( moChartParent.get() );
  51     if ( !pChart )
  52         throw uno::RuntimeException( rtl::OUString::createFromAscii("Can't access parent chart impl"), uno::Reference< uno::XInterface >() );
  53     return pChart;
  54 }
  55
  56 sal_Bool
  57 ScVbaAxis::isValueAxis() throw( script::BasicErrorException )
  58 {
  59     if ( getType() == xlCategory )
  60     {
  61         DebugHelper::exception(SbERR_METHOD_FAILED, rtl::OUString());
  62     }
  63     return sal_True;
  64 }
  65
  66 ScVbaAxis::ScVbaAxis( const uno::Reference< XHelperInterface >& xParent,const uno::Reference< uno::XComponentContext > & xContext, const uno::Reference< beans::XPropertySet >& _xPropertySet, sal_Int32 _nType, sal_Int32 _nGroup  ) : ScVbaAxis_BASE( xParent, xContext ), mxPropertySet( _xPropertySet ), mnType( _nType ), mnGroup( _nGroup ), bCrossesAreCustomized( sal_False )
  67 {
  68     oShapeHelper.reset( new ShapeHelper( uno::Reference< drawing::XShape >( mxPropertySet, uno::UNO_QUERY ) ) );
  69     moChartParent.set( xParent, uno::UNO_QUERY_THROW  );
  70     setType(_nType);
  71     setCrosses(xlAxisCrossesAutomatic);
  72 }
  73
  74 void SAL_CALL
  75 ScVbaAxis::Delete(  ) throw (script::BasicErrorException, uno::RuntimeException)
  76 {
  77     uno::Reference< lang::XComponent > xComponent( mxPropertySet, uno::UNO_QUERY_THROW );
  78     xComponent->dispose();
  79 }
  80
  81  uno::Reference< ::ooo::vba::excel::XAxisTitle > SAL_CALL
  82 ScVbaAxis::getAxisTitle(  ) throw (script::BasicErrorException, uno::RuntimeException)
  83 {
  84     uno::Reference< excel::XAxisTitle > xAxisTitle;
  85     try
  86     {
  87         ScVbaChart* pChart = getChartPtr();
  88
  89         if (getHasTitle() )
  90         {
  91             int nType = getType();
  92             switch(nType)
  93             {
  94                 case xlCategory:
  95                     xAxisTitle =  new ScVbaAxisTitle(this, mxContext, pChart->xAxisXSupplier->getXAxisTitle());
  96                     break;
  97                 case xlSeriesAxis:
  98                     xAxisTitle = new ScVbaAxisTitle(this, mxContext, pChart->xAxisZSupplier->getZAxisTitle());
  99                     break;
 100                 default: // xlValue:
 101                     xAxisTitle = new ScVbaAxisTitle(this, mxContext, pChart->xAxisYSupplier->getYAxisTitle());
 102                     break;
 103             }
 104         }
 105     }
 106     catch (uno::Exception& e)
 107     {
 108         DebugHelper::exception(e);
 109     }
 110     return xAxisTitle;
 111
 112 }
 113
 114 void SAL_CALL
 115 ScVbaAxis::setDisplayUnit( ::sal_Int32 /*DisplayUnit*/ ) throw (script::BasicErrorException, uno::RuntimeException)
 116 {
 117     DebugHelper::exception(SbERR_NOT_IMPLEMENTED, rtl::OUString());
 118 }
 119
 120 ::sal_Int32 SAL_CALL
 121 ScVbaAxis::getDisplayUnit(  ) throw (script::BasicErrorException, uno::RuntimeException)
 122 {
 123     DebugHelper::exception(SbERR_NOT_IMPLEMENTED, rtl::OUString());
 124     return -1;
 125 }
 126
 127 void SAL_CALL
 128 ScVbaAxis::setCrosses( ::sal_Int32 _nCrosses ) throw (script::BasicErrorException, uno::RuntimeException)
 129 {
 130     try
 131     {
 132         double fNum = 0.0;
 133         switch (_nCrosses)
 134         {
 135             case  xlAxisCrossesAutomatic:       //Microsoft Excel sets the axis crossing point.
 136                 mxPropertySet->setPropertyValue(AUTOORIGIN, uno::makeAny( sal_True ) );
 137                 bCrossesAreCustomized = sal_False;
 138                 return;
 139             case xlAxisCrossesMinimum:                     // The axis crosses at the minimum value.
 140                 mxPropertySet->getPropertyValue(VBA_MIN) >>= fNum;
 141                 setCrossesAt( fNum );
 142                 bCrossesAreCustomized = sal_False;
 143                 break;
 144             case xlAxisCrossesMaximum:                     // The axis crosses at the maximum value.
 145                 mxPropertySet->getPropertyValue(VBA_MAX) >>= fNum;
 146                 setCrossesAt(fNum);
 147                 bCrossesAreCustomized = sal_False;
 148                 break;
 149             default: //xlAxisCrossesCustom
 150                 bCrossesAreCustomized = sal_True;
 151                 break;
 152         }
 153         mxPropertySet->setPropertyValue(AUTOORIGIN, uno::makeAny(sal_False) );
 154     }
 155     catch (uno::Exception& )
 156     {
 157         DebugHelper::exception(SbERR_METHOD_FAILED, rtl::OUString());
 158     }
 159 }
 160 ::sal_Int32 SAL_CALL
 161 ScVbaAxis::getCrosses(  ) throw (script::BasicErrorException, uno::RuntimeException)
 162 {
 163     sal_Int32 nCrosses = xlAxisCrossesCustom;
 164     try
 165     {
 166         sal_Bool bisAutoOrigin = sal_False;
 167         mxPropertySet->getPropertyValue(AUTOORIGIN) >>= bisAutoOrigin;
 168         if (bisAutoOrigin)
 169             nCrosses = xlAxisCrossesAutomatic;
 170         else
 171         {
 172             if (bCrossesAreCustomized)
 173                 nCrosses = xlAxisCrossesCustom;
 174             else
 175             {
 176                 double forigin = 0.0;
 177                 mxPropertySet->getPropertyValue(ORIGIN) >>= forigin;
 178 //obsolete      double fmax = AnyConverter.toDouble(mxPropertySet.getPropertyValue("Max"));
 179                 double fmin = 0.0;
 180                 mxPropertySet->getPropertyValue(VBA_MIN) >>= fmin;
 181                 if (forigin == fmin)
 182                     nCrosses = xlAxisCrossesMinimum;
 183                 else
 184                     nCrosses = xlAxisCrossesMaximum;
 185             }
 186         }
 187     }
 188     catch (uno::Exception& )
 189     {
 190         DebugHelper::exception(SbERR_METHOD_FAILED, rtl::OUString() );
 191     }
 192     return nCrosses;
 193 }
 194
 195  void SAL_CALL
 196 ScVbaAxis::setCrossesAt( double _fCrossesAt ) throw (script::BasicErrorException, uno::RuntimeException)
 197 {
 198     try
 199     {
 200 //        if (getCrosses() == xlAxisCrossesCustom){
 201         setMaximumScaleIsAuto( sal_False );
 202         setMinimumScaleIsAuto( sal_False );
 203         mxPropertySet->setPropertyValue(ORIGIN, uno::makeAny(_fCrossesAt));
 204 //        }
 205     }
 206     catch (uno::Exception& e)
 207     {
 208         DebugHelper::exception(e);
 209     }
 210 }
 211
 212  double SAL_CALL
 213 ScVbaAxis::getCrossesAt(  ) throw (script::BasicErrorException, uno::RuntimeException)
 214 {
 215     double fCrosses = 0.0;
 216     try
 217     {
 218         mxPropertySet->getPropertyValue(ORIGIN) >>= fCrosses;
 219     }
 220     catch (uno::Exception& )
 221     {
 222         DebugHelper::exception(SbERR_METHOD_FAILED, rtl::OUString());
 223     }
 224     return fCrosses;
 225 }
 226
 227 void SAL_CALL
 228 ScVbaAxis::setType( ::sal_Int32 _nType ) throw (script::BasicErrorException, uno::RuntimeException)
 229 {
 230     mnType = _nType;
 231 }
 232
 233 ::sal_Int32 SAL_CALL
 234 ScVbaAxis::getType(  ) throw (script::BasicErrorException, uno::RuntimeException)
 235 {
 236     return mnType;
 237 }
 238
 239 void SAL_CALL
 240 ScVbaAxis::setHasTitle( ::sal_Bool _bHasTitle ) throw (script::BasicErrorException, uno::RuntimeException)
 241 {
 242     try
 243     {
 244         ScVbaChart* pChart = getChartPtr();
 245         sal_Int32 nType = getType();
 246         switch(nType)
 247         {
 248             case xlCategory:
 249                 pChart->mxDiagramPropertySet->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("HasXAxisTitle")), uno::makeAny(_bHasTitle));
 250                 break;
 251             case xlSeriesAxis:
 252                 pChart->mxDiagramPropertySet->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("HasZAxisTitle")), uno::makeAny(_bHasTitle));
 253                 break;
 254             default: // xlValue:
 255                 pChart->mxDiagramPropertySet->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("HasYAxisTitle")), uno::makeAny(_bHasTitle));
 256         }
 257
 258     }
 259     catch (uno::Exception& e)
 260     {
 261         DebugHelper::exception(e);
 262     }
 263 }
 264
 265  ::sal_Bool SAL_CALL
 266 ScVbaAxis::getHasTitle(  ) throw (script::BasicErrorException, uno::RuntimeException)
 267 {
 268     sal_Bool bHasTitle = sal_False;
 269     try
 270     {
 271         ScVbaChart* pChart = getChartPtr();
 272         int nType = getType();
 273         switch(nType)
 274         {
 275             case xlCategory:
 276                 pChart->mxDiagramPropertySet->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("HasXAxisTitle")) ) >>= bHasTitle;
 277                 break;
 278             case xlSeriesAxis:
 279                 pChart->mxDiagramPropertySet->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("HasZAxisTitle")) ) >>= bHasTitle;
 280                 break;
 281             default: // xlValue:
 282                 pChart->mxDiagramPropertySet->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("HasYAxisTitle")) ) >>= bHasTitle;
 283         }
 284     }
 285     catch (uno::Exception& e)
 286     {
 287         DebugHelper::exception(e);
 288     }
 289     return bHasTitle;
 290 }
 291
 292 void SAL_CALL
 293 ScVbaAxis::setMinorUnit( double _fMinorUnit ) throw (script::BasicErrorException, uno::RuntimeException)
 294 {
 295     try
 296     {
 297         if (isValueAxis())
 298             mxPropertySet->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("StepHelp") ), uno::makeAny(_fMinorUnit));
 299     }
 300     catch (uno::Exception& )
 301     {
 302         DebugHelper::exception(SbERR_METHOD_FAILED, rtl::OUString());
 303     }
 304 }
 305
 306 double SAL_CALL
 307 ScVbaAxis::getMinorUnit(  ) throw (script::BasicErrorException, uno::RuntimeException)
 308 {
 309     double fMinor = 1.0;
 310     try
 311     {
 312         if (isValueAxis())
 313             mxPropertySet->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("StepHelp"))) >>= fMinor;
 314     }
 315     catch (uno::Exception& )
 316     {
 317         DebugHelper::exception(SbERR_METHOD_FAILED, rtl::OUString());
 318     }
 319     return fMinor;
 320 }
 321
 322 void SAL_CALL
 323 ScVbaAxis::setMinorUnitIsAuto( ::sal_Bool _bMinorUnitIsAuto ) throw (script::BasicErrorException, uno::RuntimeException)
 324 {
 325     try
 326     {
 327         if (isValueAxis())
 328             mxPropertySet->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "AutoStepHelp" ) ), uno::makeAny(_bMinorUnitIsAuto));
 329     }
 330     catch (uno::Exception& )
 331     {
 332         DebugHelper::exception(SbERR_METHOD_FAILED, rtl::OUString() );
 333     }
 334 }
 335
 336  ::sal_Bool SAL_CALL
 337 ScVbaAxis::getMinorUnitIsAuto(  ) throw (script::BasicErrorException, uno::RuntimeException)
 338 {
 339     sal_Bool bIsAuto = sal_False;
 340     try
 341     {
 342         if (isValueAxis())
 343         {
 344             mxPropertySet->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "AutoStepHelp")) ) >>= bIsAuto;
 345         }
 346     }
 347     catch (uno::Exception& )
 348     {
 349         DebugHelper::exception(SbERR_METHOD_FAILED, rtl::OUString());
 350     }
 351     return bIsAuto;
 352 }
 353
 354 void SAL_CALL
 355 ScVbaAxis::setReversePlotOrder( ::sal_Bool /*ReversePlotOrder*/ ) throw (script::BasicErrorException, uno::RuntimeException)
 356 {
 357     DebugHelper::exception(SbERR_NOT_IMPLEMENTED, rtl::OUString());
 358 }
 359
 360 ::sal_Bool SAL_CALL
 361 ScVbaAxis::getReversePlotOrder(  ) throw (script::BasicErrorException, uno::RuntimeException)
 362 {
 363     DebugHelper::exception(SbERR_NOT_IMPLEMENTED, rtl::OUString());
 364     return sal_False;
 365 }
 366
 367 void SAL_CALL
 368 ScVbaAxis::setMajorUnit( double _fMajorUnit ) throw (script::BasicErrorException, uno::RuntimeException)
 369 {
 370     try
 371     {
 372         if (isValueAxis())
 373         {
 374             mxPropertySet->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("StepMain")), uno::makeAny(_fMajorUnit));
 375         }
 376     }
 377     catch (uno::Exception& )
 378     {
 379         DebugHelper::exception(SbERR_METHOD_FAILED, rtl::OUString());
 380     }
 381 }
 382
 383 double SAL_CALL
 384 ScVbaAxis::getMajorUnit(  ) throw (script::BasicErrorException, uno::RuntimeException)
 385 {
 386     double fMax = 1.0;
 387     try
 388     {
 389         if (isValueAxis())
 390             mxPropertySet->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("StepMain"))) >>= fMax;
 391     }
 392     catch (uno::Exception& )
 393     {
 394         DebugHelper::exception(SbERR_METHOD_FAILED, rtl::OUString() );
 395     }
 396     return fMax;
 397 }
 398
 399 void SAL_CALL
 400 ScVbaAxis::setMajorUnitIsAuto( ::sal_Bool _bMajorUnitIsAuto ) throw (script::BasicErrorException, uno::RuntimeException)
 401 {
 402     try
 403     {
 404         if (isValueAxis())
 405         {
 406             mxPropertySet->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "AutoStepMain" ) ), uno::makeAny( _bMajorUnitIsAuto ));
 407         }
 408     }
 409     catch (uno::Exception& )
 410     {
 411         DebugHelper::exception(SbERR_METHOD_FAILED, rtl::OUString());
 412     }
 413 }
 414
 415 ::sal_Bool SAL_CALL
 416 ScVbaAxis::getMajorUnitIsAuto(  ) throw (script::BasicErrorException, uno::RuntimeException)
 417 {
 418     sal_Bool bIsAuto = sal_False;
 419     try
 420     {
 421         if (isValueAxis())
 422         {
 423             mxPropertySet->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "AutoStepMain"))) >>= bIsAuto;
 424         }
 425     }
 426     catch (uno::Exception& )
 427     {
 428         DebugHelper::exception(SbERR_METHOD_FAILED, rtl::OUString());
 429     }
 430     return bIsAuto;
 431 }
 432
 433 void SAL_CALL
 434 ScVbaAxis::setMaximumScale( double _fMaximumScale ) throw (script::BasicErrorException, uno::RuntimeException)
 435 {
 436     try
 437     {
 438         if ( isValueAxis() )
 439         {
 440             mxPropertySet->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Max" ) ), uno::makeAny(_fMaximumScale));
 441         }
 442     }
 443     catch ( uno::Exception& )
 444     {
 445         DebugHelper::exception(SbERR_METHOD_FAILED, rtl::OUString());
 446     }
 447 }
 448
 449 double SAL_CALL
 450 ScVbaAxis::getMaximumScale(  ) throw (script::BasicErrorException, uno::RuntimeException)
 451 {
 452     double fMax = 1.0;
 453     try
 454     {
 455         if (isValueAxis())
 456         {
 457             mxPropertySet->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Max" ))) >>= fMax;
 458         }
 459     }
 460     catch (uno::Exception& )
 461     {
 462         DebugHelper::exception(SbERR_METHOD_FAILED, rtl::OUString());
 463     }
 464     return fMax;
 465
 466 }
 467
 468 void SAL_CALL
 469 ScVbaAxis::setMaximumScaleIsAuto( ::sal_Bool _bMaximumScaleIsAuto ) throw (script::BasicErrorException, uno::RuntimeException)
 470 {
 471     try
 472     {
 473         if ( isValueAxis() )
 474             mxPropertySet->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "AutoMax" ) ), uno::makeAny( _bMaximumScaleIsAuto ));
 475
 476     }
 477     catch ( uno::Exception& )
 478     {
 479         DebugHelper::exception(SbERR_METHOD_FAILED, rtl::OUString());
 480     }
 481 }
 482
 483
 484 ::sal_Bool SAL_CALL
 485 ScVbaAxis::getMaximumScaleIsAuto(  ) throw (script::BasicErrorException, uno::RuntimeException)
 486 {
 487     sal_Bool bIsAuto = sal_False;
 488     try
 489     {
 490         if (isValueAxis())
 491             mxPropertySet->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "AutoMax" )) ) >>= bIsAuto;
 492     }
 493     catch ( uno::Exception& )
 494     {
 495         DebugHelper::exception( SbERR_METHOD_FAILED, rtl::OUString() );
 496     }
 497     return bIsAuto;
 498 }
 499
 500 void SAL_CALL
 501 ScVbaAxis::setMinimumScale( double _fMinimumScale ) throw (script::BasicErrorException, uno::RuntimeException)
 502 {
 503     try
 504     {
 505         if (isValueAxis())
 506             mxPropertySet->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("Min") ), uno::makeAny( _fMinimumScale )  );
 507     }
 508     catch ( uno::Exception& )
 509     {
 510         DebugHelper::exception(SbERR_METHOD_FAILED, rtl::OUString() );
 511     }
 512 }
 513
 514 double SAL_CALL
 515 ScVbaAxis::getMinimumScale(  ) throw (script::BasicErrorException, uno::RuntimeException)
 516 {
 517     double fMin = 0.0;
 518     try
 519     {
 520         if (isValueAxis())
 521             mxPropertySet->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Min") )) >>= fMin;
 522     }
 523     catch (uno::Exception& e)
 524     {
 525         DebugHelper::exception(e);
 526     }
 527     return fMin;
 528 }
 529
 530 void SAL_CALL
 531 ScVbaAxis::setMinimumScaleIsAuto( ::sal_Bool _bMinimumScaleIsAuto ) throw (script::BasicErrorException, uno::RuntimeException)
 532 {
 533     try
 534     {
 535         if (isValueAxis())
 536         {
 537             mxPropertySet->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("AutoMin") ), uno::makeAny(_bMinimumScaleIsAuto));
 538         }
 539     }
 540     catch (uno::Exception& )
 541     {
 542         DebugHelper::exception(SbERR_METHOD_FAILED, rtl::OUString());
 543     }
 544 }
 545
 546 ::sal_Bool SAL_CALL
 547 ScVbaAxis::getMinimumScaleIsAuto(  ) throw (script::BasicErrorException, uno::RuntimeException)
 548 {
 549     sal_Bool bIsAuto = sal_False;
 550     try
 551     {
 552         if (isValueAxis())
 553         {
 554             mxPropertySet->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("AutoMin")) ) >>= bIsAuto;
 555         }
 556     }
 557     catch (uno::Exception& )
 558     {
 559         DebugHelper::exception(SbERR_METHOD_FAILED, rtl::OUString());
 560     }
 561     return bIsAuto;
 562 }
 563
 564 ::sal_Int32 SAL_CALL
 565 ScVbaAxis::getAxisGroup(  ) throw (uno::RuntimeException)
 566 {
 567     return mnGroup;
 568 }
 569
 570 void SAL_CALL
 571 ScVbaAxis::setScaleType( ::sal_Int32 _nScaleType ) throw (script::BasicErrorException, uno::RuntimeException)
 572 {
 573     try
 574     {
 575         if (isValueAxis())
 576         {
 577             switch (_nScaleType)
 578             {
 579                 case xlScaleLinear:
 580                     mxPropertySet->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Logarithmic" ) ), uno::makeAny( sal_False ) );
 581                     break;
 582                 case xlScaleLogarithmic:
 583                     mxPropertySet->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Logarithmic" ) ), uno::makeAny( sal_True ) );
 584                     break;
 585                 default:
 586                     // According to MS the paramenter is ignored and no Error is thrown
 587                     break;
 588             }
 589         }
 590     }
 591     catch (uno::Exception& )
 592     {
 593         DebugHelper::exception(SbERR_METHOD_FAILED, rtl::OUString() );
 594     }
 595 }
 596
 597 ::sal_Int32 SAL_CALL
 598 ScVbaAxis::getScaleType(  ) throw (script::BasicErrorException, uno::RuntimeException)
 599 {
 600     sal_Int32 nScaleType = xlScaleLinear;
 601     try
 602     {
 603         if (isValueAxis())
 604         {
 605             sal_Bool bisLogarithmic = sal_False;
 606             mxPropertySet->getPropertyValue( rtl::OUString( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("Logarithmic"))) ) >>= bisLogarithmic;
 607             if (bisLogarithmic)
 608                 nScaleType = xlScaleLogarithmic;
 609             else
 610                 nScaleType = xlScaleLinear;
 611         }
 612     }
 613     catch (uno::Exception& )
 614     {
 615         DebugHelper::exception(SbERR_METHOD_FAILED, rtl::OUString());
 616     }
 617     return nScaleType;
 618 }
 619
 620 double SAL_CALL
 621 ScVbaAxis::getHeight(  ) throw (css::script::BasicErrorException, css::uno::RuntimeException)
 622 {
 623     return oShapeHelper->getHeight();
 624 }
 625
 626 void SAL_CALL ScVbaAxis::setHeight( double height ) throw (css::script::BasicErrorException, css::uno::RuntimeException)
 627 {
 628     oShapeHelper->setHeight( height );
 629 }
 630 double SAL_CALL ScVbaAxis::getWidth(  ) throw (css::script::BasicErrorException, css::uno::RuntimeException)
 631 {
 632     return oShapeHelper->getWidth( );
 633 }
 634 void SAL_CALL ScVbaAxis::setWidth( double width ) throw (css::script::BasicErrorException, css::uno::RuntimeException)
 635 {
 636     oShapeHelper->setWidth( width );
 637 }
 638 double SAL_CALL ScVbaAxis::getTop(  ) throw (css::script::BasicErrorException, css::uno::RuntimeException)
 639 {
 640     return oShapeHelper->getTop( );
 641 }
 642 void SAL_CALL ScVbaAxis::setTop( double top ) throw (css::script::BasicErrorException, css::uno::RuntimeException)
 643 {
 644     oShapeHelper->setTop( top );
 645 }
 646 double SAL_CALL ScVbaAxis::getLeft(  ) throw (css::script::BasicErrorException, css::uno::RuntimeException)
 647 {
 648     return oShapeHelper->getLeft( );
 649 }
 650 void SAL_CALL ScVbaAxis::setLeft( double left ) throw (css::script::BasicErrorException, css::uno::RuntimeException)
 651 {
 652     oShapeHelper->setLeft( left );
 653 }
 654
 655 rtl::OUString&
 656 ScVbaAxis::getServiceImplName()
 657 {
 658     static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("ScVbaAxis") );
 659     return sImplName;
 660 }
 661
 662 uno::Sequence< rtl::OUString >
 663 ScVbaAxis::getServiceNames()
 664 {
 665     static uno::Sequence< rtl::OUString > aServiceNames;
 666     if ( aServiceNames.getLength() == 0 )
 667     {
 668         aServiceNames.realloc( 1 );
 669         aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.excel.Axis" ) );
 670     }
 671     return aServiceNames;
 672 }
 673