Bruge makro i aktivt ark >LØST<

Komponenter Makroprogrammering
1

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

2

Hej

Prøv denne
Ark = ThisComponent.CurrentController.ActiveSheet

Jeg har fundet den her: http://documentation.openoffice.org/HOW_TO/various_topics/VbaStarBasicXref.pdf

mvh
Jens

3

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

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