Re: [libreoffice-users] CALC - copy formula via macro

On 09/02/2011 12:21 PM, Bill Gradwohl wrote:
> Assume:
>
> A1 contains the formula =SUM(B1:E1)
>
> I want to programatically copy A1's formula to somewhere else in column
> A that is determined at execution time, and I need the cell references
> adjusted accordingly.
>
> If it gets copied to A19, for example, I need the formula to read:
>         =SUM(B19:E19)
>
> The getFormula and setFormula methods don't adjust the relative
> references - they get and set text.
>
> Is there a way to get the references adjusted auto-magically?
> Is there a method that can take the formula obtained via the getFormula
> and apply a row and column distance offset to the contents?
>
> I don't want to use the macro recorder/dispatcher - too ugly.


  Dim o
  Dim oSheet
  Dim oRange
  Dim oDoc

  oRange = oDoc1.Sheets(0).getCellRangeByName("B2:C3")
  oDoc1.CurrentController.select(oRange)
  o = oDoc1.CurrentController.getTransferable()

  oRange = oDoc2.Sheets(0).getCellRangeByName("F1")
  oDoc2.CurrentController.select(oRange)
  oDoc2.CurrentController.insertTransferable(o)

--
Andrew Pitonyak
My Macro Document: http://www.pitonyak.org/AndrewMacro.odt
Info:  http://www.pitonyak.org/oo.php


--
For unsubscribe instructions e-mail to: users+help@global.libreoffice.org
Problems? http://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/
Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette
List archive: http://listarchives.libreoffice.org/global/users/
All messages sent to this list will be publicly archived and cannot be deleted