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