Bruge makro i aktivt ark >LØST<

Jens Præst · Post by **Jens Præst** » 1. Oct 2009 17:12

Er der en kommando så makro'en bliver afspillet i det aktuelle ark??
noget i retning af

Dim Dok as object, ark as object
dok = thisCompont
ark = dok.sheets.thisSheet eller ark=thisSheet.

Jeg har prøvet at søge/læse i diverse 'manualer' rundt omkring uden at kunne finde noget.

På forhånd tak

Jens Præst

Jens S · Post by **Jens S** » 2. Oct 2009 11:10

Hej

Prøv denne
Ark = ThisComponent.CurrentController.ActiveSheet

Jeg har fundet den her: http://documentation.openoffice.org/HOW ... icXref.pdf

mvh
Jens

Jens Præst · Post by **Jens Præst** » 2. Oct 2009 18:59

Takker
Det ser rigtigt ud, og linket ryger i min bookmark folder med makro sider

<EDIT>
Jeg har lige afprøvet følgende kode, og den gør hvad jeg vil have den til.

Den virker på det ark som er aktivt, så jeg har en makro som kan bruges på alle ark i regnearket

Sub Main

dim ark as object

dim OldCell as Object, Old as string
dim NyCell as Object,Ny as string
dim i as integer

Ark = ThisComponent.CurrentController.ActiveSheet
Oldcell=ark.getcellbyposition(0,0)
old=oldcell.getstring
i=1
do while i < 11
NYCell=ark.getcellbyposition(0,i)
Nycell.string=old
i=i+1
LOOP
end sub