sc/source/ui/vba/vbahelper.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*
   3  * This file is part of the LibreOffice project.
   4  *
   5  * This Source Code Form is subject to the terms of the Mozilla Public
   6  * License, v. 2.0. If a copy of the MPL was not distributed with this
   7  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   8  *
   9  * This file incorporates work covered by the following license notice:
  10  *
  11  *   Licensed to the Apache Software Foundation (ASF) under one or more
  12  *   contributor license agreements. See the NOTICE file distributed
  13  *   with this work for additional information regarding copyright
  14  *   ownership. The ASF licenses this file to you under the Apache
  15  *   License, Version 2.0 (the "License"); you may not use this file
  16  *   except in compliance with the License. You may obtain a copy of
  17  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  18  */
  19 #include <cppuhelper/bootstrap.hxx>
  20 #include <com/sun/star/beans/XPropertySet.hpp>
  21 #include <com/sun/star/beans/theIntrospection.hpp>
  22 #include <com/sun/star/frame/XDispatchProvider.hpp>
  23 #include <com/sun/star/frame/XModel.hpp>
  24 #include <com/sun/star/frame/XFrame.hpp>
  25 #include <com/sun/star/frame/Desktop.hpp>
  26 #include <com/sun/star/frame/XController.hpp>
  27 #include <com/sun/star/lang/XMultiComponentFactory.hpp>
  28 #include <com/sun/star/script/Converter.hpp>
  29 #include <com/sun/star/sheet/GlobalSheetSettings.hpp>
  30 #include <com/sun/star/uno/XComponentContext.hpp>
  31 #include <com/sun/star/util/XURLTransformer.hpp>
  32
  33 #include <comphelper/processfactory.hxx>
  34
  35 #include <sfx2/objsh.hxx>
  36 #include <sfx2/viewfrm.hxx>
  37 #include <sfx2/dispatch.hxx>
  38 #include <sfx2/app.hxx>
  39 #include <svl/stritem.hxx>
  40
  41 #include <docuno.hxx>
  42
  43 #include <basic/sbx.hxx>
  44 #include <basic/sbstar.hxx>
  45 #include <basic/sbuno.hxx>
  46 #include <rtl/math.hxx>
  47
  48 #include <math.h>
  49 #include "vbahelper.hxx"
  50 #include "tabvwsh.hxx"
  51 #include "transobj.hxx"
  52 #include "scmod.hxx"
  53 #include "vbashape.hxx"
  54 #include "unonames.hxx"
  55 #include "cellsuno.hxx"
  56 using namespace ::com::sun::star;
  57 using namespace ::ooo::vba;
  58
  59 #define POINTTO100THMILLIMETERFACTOR 35.27778
  60
  61 namespace ooo
  62 {
  63 namespace vba
  64 {
  65
  66 const double Millimeter::factor =  35.27778;
  67
  68 uno::Reference< beans::XIntrospectionAccess >
  69 getIntrospectionAccess( const uno::Any& aObject ) throw (uno::RuntimeException)
  70 {
  71     static uno::Reference< beans::XIntrospection > xIntrospection;
  72     if( !xIntrospection.is() )
  73     {
  74         uno::Reference< uno::XComponentContext > xContext( comphelper::getProcessComponentContext() );
  75         xIntrospection.set( beans::theIntrospection::get(xContext) );
  76     }
  77     return xIntrospection->inspect( aObject );
  78 }
  79
  80 uno::Reference< script::XTypeConverter >
  81 getTypeConverter( const uno::Reference< uno::XComponentContext >& xContext ) throw (uno::RuntimeException)
  82 {
  83     static uno::Reference< script::XTypeConverter > xTypeConv( script::Converter::create(xContext) );
  84     return xTypeConv;
  85 }
  86 // helper method to determine if the view ( calc ) is in print-preview mode
  87 bool isInPrintPreview( SfxViewFrame* pView )
  88 {
  89     sal_uInt16 nViewNo = SID_VIEWSHELL1 - SID_VIEWSHELL0;
  90     if ( pView->GetObjectShell()->GetFactory().GetViewFactoryCount() >
  91 nViewNo && !pView->GetObjectShell()->IsInPlaceActive() )
  92     {
  93         SfxViewFactory &rViewFactory =
  94             pView->GetObjectShell()->GetFactory().GetViewFactory(nViewNo);
  95         if (  pView->GetCurViewId() == rViewFactory.GetOrdinal() )
  96             return true;
  97     }
  98     return false;
  99 }
 100
 101 const char REPLACE_CELLS_WARNING[] = "ReplaceCellsWarning";
 102
 103 const uno::Any&
 104 aNULL()
 105 {
 106      static  uno::Any aNULLL = uno::makeAny( uno::Reference< uno::XInterface >() );
 107     return aNULLL;
 108 }
 109
 110 class PasteCellsWarningReseter
 111 {
 112 private:
 113     bool bInitialWarningState;
 114     static uno::Reference< sheet::XGlobalSheetSettings > getGlobalSheetSettings() throw ( uno::RuntimeException )
 115     {
 116         static uno::Reference< sheet::XGlobalSheetSettings > xProps = sheet::sheet( comphelper::getProcessComponentContext() );
 117         return xProps;
 118     }
 119
 120     bool getReplaceCellsWarning() throw ( uno::RuntimeException )
 121     {
 122         sal_Bool res = getGlobalSheetSettings()->getReplaceCellsWarning();
 123         return ( res == sal_True );
 124     }
 125
 126     void setReplaceCellsWarning( bool bState ) throw ( uno::RuntimeException )
 127     {
 128         getGlobalSheetSettings()->setReplaceCellsWarning( bState );
 129     }
 130 public:
 131     PasteCellsWarningReseter() throw ( uno::RuntimeException )
 132     {
 133         bInitialWarningState = getReplaceCellsWarning();
 134         if ( bInitialWarningState )
 135             setReplaceCellsWarning( false );
 136     }
 137     ~PasteCellsWarningReseter()
 138     {
 139         if ( bInitialWarningState )
 140         {
 141             // don't allow dtor to throw
 142             try
 143             {
 144                 setReplaceCellsWarning( true );
 145             }
 146             catch (const uno::Exception&)
 147             {
 148             }
 149         }
 150     }
 151 };
 152
 153 void dispatchExecute(css::uno::Reference< css::frame::XModel>& xModel, sal_uInt16 nSlot, SfxCallMode nCall)
 154 {
 155     ScTabViewShell* pViewShell = getBestViewShell( xModel );
 156     SfxViewFrame* pViewFrame = NULL;
 157     if ( pViewShell )
 158         pViewFrame = pViewShell->GetViewFrame();
 159     if ( pViewFrame )
 160     {
 161         SfxDispatcher* pDispatcher = pViewFrame->GetDispatcher();
 162         if( pDispatcher )
 163         {
 164             pDispatcher->Execute( nSlot , nCall );
 165         }
 166     }
 167 }
 168
 169 void
 170 implnPaste()
 171 {
 172     PasteCellsWarningReseter resetWarningBox;
 173     ScTabViewShell* pViewShell = getCurrentBestViewShell();
 174     if ( pViewShell )
 175     {
 176         pViewShell->PasteFromSystem();
 177         pViewShell->CellContentChanged();
 178     }
 179 }
 180
 181 void
 182 implnCopy()
 183 {
 184     ScTabViewShell* pViewShell = getCurrentBestViewShell();
 185     if ( pViewShell )
 186         pViewShell->CopyToClip(NULL,false,false,true);
 187 }
 188
 189 void
 190 implnCut()
 191 {
 192     ScTabViewShell* pViewShell =  getCurrentBestViewShell();
 193     if ( pViewShell )
 194         pViewShell->CutToClip( NULL, sal_True );
 195 }
 196
 197 void implnPasteSpecial(sal_uInt16 nFlags,sal_uInt16 nFunction,sal_Bool bSkipEmpty, sal_Bool bTranspose)
 198 {
 199     PasteCellsWarningReseter resetWarningBox;
 200     sal_Bool bAsLink(false), bOtherDoc(false);
 201     InsCellCmd eMoveMode = INS_NONE;
 202
 203     ScTabViewShell* pTabViewShell = ScTabViewShell::GetActiveViewShell();
 204     if ( !pTabViewShell )
 205         // none active, try next best
 206         pTabViewShell = getCurrentBestViewShell();
 207     if ( pTabViewShell )
 208     {
 209         ScViewData* pView = pTabViewShell->GetViewData();
 210         vcl::Window* pWin = ( pView != NULL ) ? pView->GetActiveWin() : NULL;
 211         if ( pView && pWin )
 212         {
 213             if ( bAsLink && bOtherDoc )
 214                 pTabViewShell->PasteFromSystem(0);//SotClipboardFormatId::LINK
 215             else
 216             {
 217                 ScTransferObj* pOwnClip = ScTransferObj::GetOwnClipboard( pWin );
 218                 ScDocument* pDoc = NULL;
 219                 if ( pOwnClip )
 220                     pDoc = pOwnClip->GetDocument();
 221                 pTabViewShell->PasteFromClip( nFlags, pDoc,
 222                     nFunction, bSkipEmpty, bTranspose, bAsLink,
 223                     eMoveMode, IDF_NONE, sal_True );
 224                 pTabViewShell->CellContentChanged();
 225             }
 226         }
 227     }
 228
 229 }
 230
 231  uno::Reference< frame::XModel >
 232 getCurrentDocument() throw (uno::RuntimeException)
 233 {
 234     uno::Reference< frame::XModel > xModel;
 235     SbxObject* pBasic = dynamic_cast< SbxObject* > ( SfxGetpApp()->GetBasic() );
 236     SbxObject* basicChosen =  pBasic ;
 237     if ( basicChosen == NULL)
 238     {
 239         OSL_TRACE("getModelFromBasic() StarBASIC* is NULL" );
 240         return xModel;
 241     }
 242     SbxObject* p = pBasic;
 243     SbxObject* pParent = p->GetParent();
 244     SbxObject* pParentParent = pParent ? pParent->GetParent() : NULL;
 245
 246     if( pParentParent )
 247     {
 248         basicChosen = pParentParent;
 249     }
 250     else if( pParent )
 251     {
 252         basicChosen = pParent;
 253     }
 254
 255     uno::Any aModel;
 256     SbxVariable *pCompVar = basicChosen->Find( "ThisComponent", SbxCLASS_OBJECT );
 257
 258     if ( pCompVar )
 259     {
 260         aModel = sbxToUnoValue( pCompVar );
 261         if ( false == ( aModel >>= xModel ) ||
 262             !xModel.is() )
 263         {
 264             uno::Reference< uno::XComponentContext > xCtx(
 265                 comphelper::getProcessComponentContext() );
 266             uno::Reference< frame::XDesktop2 > xDesktop = frame::Desktop::create(xCtx);
 267             xModel.set( xDesktop->getCurrentComponent(), uno::UNO_QUERY );
 268             if ( !xModel.is() )
 269             {
 270                 throw uno::RuntimeException(
 271                     "Can't extract model from basic ( its obviously not set yet  therefore don't know the currently selected document)" );
 272             }
 273             return xModel;
 274         }
 275         else
 276         {
 277             OSL_TRACE("Have model ThisComponent points to url %s",
 278             OUStringToOString( xModel->getURL(),
 279                 RTL_TEXTENCODING_ASCII_US ).pData->buffer );
 280         }
 281     }
 282     else
 283     {
 284         OSL_TRACE("Failed to get ThisComponent");
 285         throw uno::RuntimeException( "Can't determine the currently selected document" );
 286     }
 287     return xModel;
 288 }
 289
 290 ScDocShell*
 291 getDocShell( css::uno::Reference< css::frame::XModel>& xModel )
 292 {
 293     uno::Reference< uno::XInterface > xIf( xModel, uno::UNO_QUERY_THROW );
 294     ScModelObj* pModel = dynamic_cast< ScModelObj* >( xIf.get() );
 295     ScDocShell* pDocShell = NULL;
 296     if ( pModel )
 297         pDocShell = (ScDocShell*)pModel->GetEmbeddedObject();
 298     return pDocShell;
 299
 300 }
 301
 302 ScTabViewShell*
 303 getBestViewShell(  css::uno::Reference< css::frame::XModel>& xModel )
 304 {
 305     ScDocShell* pDocShell = getDocShell( xModel );
 306     if ( pDocShell )
 307         return pDocShell->GetBestViewShell();
 308     return NULL;
 309 }
 310
 311 ScTabViewShell*
 312 getCurrentBestViewShell()
 313 {
 314     uno::Reference< frame::XModel > xModel = getCurrentDocument();
 315     return getBestViewShell( xModel );
 316 }
 317
 318 SfxViewFrame*
 319 getCurrentViewFrame()
 320 {
 321     ScTabViewShell* pViewShell = getCurrentBestViewShell();
 322     if ( pViewShell )
 323         return pViewShell->GetViewFrame();
 324     return NULL;
 325 }
 326
 327 sal_Int32
 328 OORGBToXLRGB( sal_Int32 nCol )
 329 {
 330     sal_Int32 nRed = nCol;
 331     nRed &= 0x00FF0000;
 332     nRed >>= 16;
 333     sal_Int32 nGreen = nCol;
 334     nGreen &= 0x0000FF00;
 335     nGreen >>= 8;
 336     sal_Int32 nBlue = nCol;
 337     nBlue &= 0x000000FF;
 338     sal_Int32 nRGB =  ( (nBlue << 16) | (nGreen << 8) | nRed );
 339     return nRGB;
 340 }
 341 sal_Int32
 342 XLRGBToOORGB( sal_Int32 nCol )
 343 {
 344     sal_Int32 nBlue = nCol;
 345     nBlue &= 0x00FF0000;
 346     nBlue >>= 16;
 347     sal_Int32 nGreen = nCol;
 348     nGreen &= 0x0000FF00;
 349     nGreen >>= 8;
 350     sal_Int32 nRed = nCol;
 351     nRed &= 0x000000FF;
 352     sal_Int32 nRGB =  ( (nRed << 16) | (nGreen << 8) | nBlue );
 353     return nRGB;
 354 }
 355 uno::Any
 356 OORGBToXLRGB( const uno::Any& aCol )
 357 {
 358     sal_Int32 nCol=0;
 359     aCol >>= nCol;
 360     nCol = OORGBToXLRGB( nCol );
 361     return uno::makeAny( nCol );
 362 }
 363 uno::Any
 364 XLRGBToOORGB(  const uno::Any& aCol )
 365 {
 366     sal_Int32 nCol=0;
 367     aCol >>= nCol;
 368     nCol = XLRGBToOORGB( nCol );
 369     return uno::makeAny( nCol );
 370 }
 371
 372 void PrintOutHelper( const uno::Any& From, const uno::Any& To, const uno::Any& Copies, const uno::Any& Preview, const uno::Any& /*ActivePrinter*/, const uno::Any& /*PrintToFile*/, const uno::Any& Collate, const uno::Any& PrToFileName, css::uno::Reference< frame::XModel >& xModel, sal_Bool bUseSelection  )
 373 {
 374     sal_Int32 nTo = 0;
 375     sal_Int32 nFrom = 0;
 376     sal_Int16 nCopies = 1;
 377     sal_Bool bPreview = false;
 378     sal_Bool bCollate = false;
 379     sal_Bool bSelection = bUseSelection;
 380     From >>= nFrom;
 381     To >>= nTo;
 382     Copies >>= nCopies;
 383     Preview >>= bPreview;
 384     if ( nCopies > 1 ) // Collate only useful when more that 1 copy
 385         Collate >>= bCollate;
 386
 387     OUString sRange(   "-"  );
 388     OUString sFileName;
 389
 390     if (( nFrom || nTo ) )
 391     {
 392         if ( nFrom )
 393             sRange = OUString::number( nFrom ) + sRange;
 394         if ( nTo )
 395             sRange += OUString::number( nTo );
 396     }
 397
 398     if (  PrToFileName.getValue() )
 399     {
 400         PrToFileName >>= sFileName;
 401     }
 402     ScTabViewShell* pViewShell = getBestViewShell( xModel );
 403     SfxViewFrame* pViewFrame = NULL;
 404     if ( pViewShell )
 405         pViewFrame = pViewShell->GetViewFrame();
 406     if ( pViewFrame )
 407     {
 408         SfxAllItemSet aArgs( SfxGetpApp()->GetPool() );
 409
 410         SfxBoolItem sfxCollate( SID_PRINT_COLLATE, bCollate );
 411         aArgs.Put( sfxCollate, sfxCollate.Which() );
 412         SfxInt16Item sfxCopies( SID_PRINT_COPIES, nCopies );
 413         aArgs.Put( sfxCopies, sfxCopies.Which() );
 414         if ( sFileName.getLength() )
 415         {
 416             SfxStringItem sfxFileName( SID_FILE_NAME, sFileName);
 417             aArgs.Put( sfxFileName, sfxFileName.Which() );
 418
 419         }
 420         if (  sRange.getLength() )
 421         {
 422             SfxStringItem sfxRange( SID_PRINT_PAGES, sRange );
 423             aArgs.Put( sfxRange, sfxRange.Which() );
 424         }
 425         SfxBoolItem sfxSelection( SID_SELECTION, bSelection );
 426         aArgs.Put( sfxSelection, sfxSelection.Which() );
 427         SfxBoolItem sfxAsync( SID_ASYNCHRON, false );
 428         aArgs.Put( sfxAsync, sfxAsync.Which() );
 429         SfxDispatcher* pDispatcher = pViewFrame->GetDispatcher();
 430
 431         if ( pDispatcher )
 432         {
 433             if ( bPreview )
 434             {
 435                 if ( !pViewFrame->GetFrame().IsInPlace() )
 436                 {
 437                     SC_MOD()->InputEnterHandler();
 438                     pViewFrame->GetDispatcher()->Execute( SID_VIEWSHELL1, SfxCallMode::SYNCHRON );
 439                     while ( isInPrintPreview( pViewFrame ) )
 440                         Application::Yield();
 441                 }
 442             }
 443             else
 444                 pDispatcher->Execute( (sal_uInt16)SID_PRINTDOC, (SfxCallMode)SfxCallMode::SYNCHRON, aArgs );
 445         }
 446
 447     }
 448
 449     // #FIXME #TODO
 450     // 1 ActivePrinter ( how/can we switch a printer via API? )
 451     // 2 PrintToFile ( ms behaviour if this option is specified but no
 452     //   filename supplied 'PrToFileName' then the user will be prompted )
 453     // 3 Need to check behaviour of Selected sheets with range ( e.g. From & To
 454     //    values ) in oOO these options are mutually exclusive
 455     // 4 There is a pop up to do with transparent objects in the print source
 456     //   should be able to disable that via configuration for the duration
 457     //   of this method
 458 }
 459
 460  void PrintPreviewHelper( const css::uno::Any& /*EnableChanges*/, css::uno::Reference< css::frame::XModel >& xModel )
 461 {
 462     dispatchExecute( xModel, SID_VIEWSHELL1 );
 463 }
 464
 465 OUString getAnyAsString( const uno::Any& pvargItem ) throw ( uno::RuntimeException )
 466 {
 467     uno::Type aType = pvargItem.getValueType();
 468     uno::TypeClass eTypeClass = aType.getTypeClass();
 469     OUString sString;
 470     switch ( eTypeClass )
 471     {
 472         case uno::TypeClass_BOOLEAN:
 473         {
 474             sal_Bool bBool = false;
 475             pvargItem >>= bBool;
 476             sString = OUString::boolean( bBool );
 477             break;
 478         }
 479         case uno::TypeClass_STRING:
 480             pvargItem >>= sString;
 481             break;
 482         case uno::TypeClass_FLOAT:
 483             {
 484                 float aFloat = 0;
 485                 pvargItem >>= aFloat;
 486                 sString = OUString::number( aFloat );
 487                 break;
 488             }
 489         case uno::TypeClass_DOUBLE:
 490             {
 491                 double aDouble = 0;
 492                 pvargItem >>= aDouble;
 493                 sString = OUString::number( aDouble );
 494                 break;
 495             }
 496         case uno::TypeClass_SHORT:
 497         case uno::TypeClass_LONG:
 498         case uno::TypeClass_BYTE:
 499             {
 500                 sal_Int32 aNum = 0;
 501                 pvargItem >>= aNum;
 502                 sString = OUString::number( aNum );
 503                 break;
 504             }
 505
 506         case uno::TypeClass_HYPER:
 507             {
 508                 sal_Int64 aHyper = 0;
 509                 pvargItem >>= aHyper;
 510                 sString = OUString::number( aHyper );
 511                 break;
 512             }
 513         default:
 514                    throw uno::RuntimeException("Invalid type, can't convert" );
 515     }
 516     return sString;
 517 }
 518
 519 OUString
 520 ContainerUtilities::getUniqueName( const uno::Sequence< OUString >&  _slist, const OUString& _sElementName, const OUString& _sSuffixSeparator)
 521 {
 522     return getUniqueName(_slist, _sElementName, _sSuffixSeparator, sal_Int32(2));
 523 }
 524
 525 OUString
 526 ContainerUtilities::getUniqueName( const uno::Sequence< OUString >& _slist, const OUString _sElementName, const OUString& _sSuffixSeparator, sal_Int32 _nStartSuffix)
 527 {
 528     sal_Int32 a = _nStartSuffix;
 529     OUString scompname = _sElementName;
 530     bool bElementexists = true;
 531     sal_Int32 nLen = _slist.getLength();
 532     if ( nLen == 0 )
 533         return _sElementName;
 534
 535     while (bElementexists == true)
 536     {
 537         for (sal_Int32 i = 0; i < nLen; i++)
 538         {
 539             if (FieldInList(_slist, scompname) == -1)
 540             {
 541                 return scompname;
 542             }
 543         }
 544         scompname = _sElementName + _sSuffixSeparator + OUString::number( a++ );
 545     }
 546     return OUString();
 547 }
 548
 549 sal_Int32
 550 ContainerUtilities::FieldInList( const uno::Sequence< OUString >& SearchList, const OUString& SearchString )
 551 {
 552     sal_Int32 FieldLen = SearchList.getLength();
 553     sal_Int32 retvalue = -1;
 554     for (sal_Int32 i = 0; i < FieldLen; i++)
 555     {
 556         // I wonder why comparing lexicographically is done
 557         // when it's a match is whats interesting?
 558         //if (SearchList[i].compareTo(SearchString) == 0)
 559         if ( SearchList[i] == SearchString )
 560         {
 561             retvalue = i;
 562             break;
 563         }
 564     }
 565     return retvalue;
 566
 567 }
 568 bool NeedEsc(sal_Unicode cCode)
 569 {
 570     OUString sEsc(".^$+\\|{}()");
 571     return (-1 != sEsc.indexOf(cCode));
 572 }
 573
 574 OUString VBAToRegexp(const OUString &rIn, bool bForLike )
 575 {
 576     OUStringBuffer sResult;
 577     const sal_Unicode *start = rIn.getStr();
 578     const sal_Unicode *end = start + rIn.getLength();
 579
 580     int seenright = 0;
 581     if ( bForLike )
 582         sResult.append('^');
 583
 584     while (start < end)
 585     {
 586         switch (*start)
 587         {
 588             case '?':
 589                 sResult.append('.');
 590                 start++;
 591                 break;
 592             case '*':
 593                 sResult.append(".*");
 594                 start++;
 595                 break;
 596             case '#':
 597                 sResult.append("[0-9]");
 598                 start++;
 599                 break;
 600             case '~':
 601                 sResult.append('\\');
 602                 sResult.append(*(++start));
 603                 start++;
 604                 break;
 605                 // dump the ~ and escape the next characture
 606             case ']':
 607                 sResult.append('\\');
 608                 sResult.append(*start++);
 609                 break;
 610             case '[':
 611                 sResult.append(*start++);
 612                 seenright = 0;
 613                 while (start < end && !seenright)
 614                 {
 615                     switch (*start)
 616                     {
 617                         case '[':
 618                         case '?':
 619                         case '*':
 620                         sResult.append('\\');
 621                         sResult.append(*start);
 622                             break;
 623                         case ']':
 624                         sResult.append(*start);
 625                             seenright = 1;
 626                             break;
 627                         case '!':
 628                             sResult.append('^');
 629                             break;
 630                         default:
 631                         if (NeedEsc(*start))
 632                             sResult.append('\\');
 633                         sResult.append(*start);
 634                             break;
 635                     }
 636                     start++;
 637                 }
 638                 break;
 639             default:
 640                 if (NeedEsc(*start))
 641                     sResult.append('\\');
 642                 sResult.append(*start++);
 643         }
 644     }
 645
 646     if ( bForLike )
 647         sResult.append('$');
 648
 649     return sResult.makeStringAndClear( );
 650 }
 651
 652 double getPixelTo100thMillimeterConversionFactor( css::uno::Reference< css::awt::XDevice >& xDevice, sal_Bool bVertical)
 653 {
 654     double fConvertFactor = 1.0;
 655     if( bVertical )
 656     {
 657         fConvertFactor = xDevice->getInfo().PixelPerMeterY/100000;
 658     }
 659     else
 660     {
 661         fConvertFactor = xDevice->getInfo().PixelPerMeterX/100000;
 662     }
 663     return fConvertFactor;
 664 }
 665
 666 double PointsToPixels( css::uno::Reference< css::awt::XDevice >& xDevice, double fPoints, sal_Bool bVertical)
 667 {
 668     double fConvertFactor = getPixelTo100thMillimeterConversionFactor( xDevice, bVertical );
 669     return fPoints * POINTTO100THMILLIMETERFACTOR * fConvertFactor;
 670 }
 671 double PixelsToPoints( css::uno::Reference< css::awt::XDevice >& xDevice, double fPixels, sal_Bool bVertical)
 672 {
 673     double fConvertFactor = getPixelTo100thMillimeterConversionFactor( xDevice, bVertical );
 674     return (fPixels/fConvertFactor)/POINTTO100THMILLIMETERFACTOR;
 675 }
 676
 677 ConcreteXShapeGeometryAttributes::ConcreteXShapeGeometryAttributes( const css::uno::Reference< css::uno::XComponentContext >& xContext, const css::uno::Reference< css::drawing::XShape >& xShape )
 678 {
 679     m_xShape = new ScVbaShape( xContext, xShape );
 680 }
 681
 682 #define VBA_LEFT "PositionX"
 683 #define VBA_TOP "PositionY"
 684 UserFormGeometryHelper::UserFormGeometryHelper( const uno::Reference< uno::XComponentContext >& /*xContext*/, const uno::Reference< awt::XControl >& xControl )
 685 {
 686     mxModel.set( xControl->getModel(), uno::UNO_QUERY_THROW );
 687 }
 688     double UserFormGeometryHelper::getLeft()
 689     {
 690     sal_Int32 nLeft = 0;
 691     mxModel->getPropertyValue( OUString(  VBA_LEFT  ) ) >>= nLeft;
 692     return Millimeter::getInPoints( nLeft );
 693     }
 694     void UserFormGeometryHelper::setLeft( double nLeft )
 695     {
 696         mxModel->setPropertyValue( OUString(  VBA_LEFT  ), uno::makeAny( Millimeter::getInHundredthsOfOneMillimeter( nLeft ) ) );
 697     }
 698     double UserFormGeometryHelper::getTop()
 699     {
 700     sal_Int32 nTop = 0;
 701     mxModel->getPropertyValue( OUString(   VBA_TOP  ) ) >>= nTop;
 702     return Millimeter::getInPoints( nTop );
 703     }
 704     void UserFormGeometryHelper::setTop( double nTop )
 705     {
 706     mxModel->setPropertyValue( OUString(   VBA_TOP  ), uno::makeAny( Millimeter::getInHundredthsOfOneMillimeter( nTop ) ) );
 707     }
 708     double UserFormGeometryHelper::getHeight()
 709     {
 710     sal_Int32 nHeight = 0;
 711     mxModel->getPropertyValue( OUString(   SC_UNONAME_CELLHGT  ) ) >>= nHeight;
 712     return Millimeter::getInPoints( nHeight );
 713     }
 714     void UserFormGeometryHelper::setHeight( double nHeight )
 715     {
 716     mxModel->setPropertyValue( OUString(   SC_UNONAME_CELLHGT  ), uno::makeAny( Millimeter::getInHundredthsOfOneMillimeter( nHeight ) ) );
 717     }
 718     double UserFormGeometryHelper::getWidth()
 719     {
 720     sal_Int32 nWidth = 0;
 721     mxModel->getPropertyValue( OUString(   SC_UNONAME_CELLWID  ) ) >>= nWidth;
 722     return Millimeter::getInPoints( nWidth );
 723     }
 724     void UserFormGeometryHelper::setWidth( double nWidth)
 725     {
 726     mxModel->setPropertyValue( OUString(   SC_UNONAME_CELLWID  ), uno::makeAny(  Millimeter::getInHundredthsOfOneMillimeter( nWidth ) ) );
 727     }
 728
 729 SfxItemSet*
 730 ScVbaCellRangeAccess::GetDataSet( ScCellRangeObj* pRangeObj )
 731 {
 732     SfxItemSet* pDataSet = pRangeObj ? pRangeObj->GetCurrentDataSet( true ) : NULL ;
 733     return pDataSet;
 734
 735 }
 736
 737 } // vba
 738 } // ooo
 739
 740 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */