Bruge makro i aktivt ark >LØST<

Brugerhjælp og support til makroer i LibreOffice Basic

Redaktører: Lodahl, LarsBrandi

Besvar
Jens Præst
Indlæg: 26
Tilmeldt: 6. aug 2009 22:25
Geografisk sted: nakskov

Bruge makro i aktivt ark >LØST<

Indlæg af Jens Præst » 1. okt 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
Senest rettet af Jens Præst 2. okt 2009 19:33, rettet i alt 1 gang.

Jens S
Indlæg: 1091
Tilmeldt: 25. mar 2007 22:42

Indlæg af Jens S » 2. okt 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
Indlæg: 26
Tilmeldt: 6. aug 2009 22:25
Geografisk sted: nakskov

Indlæg af Jens Præst » 2. okt 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

Besvar

Hvem er online

Brugere der viser dette forum: Ingen og 1 gæst