OpenOffice.info

Hallo Fachleute,
komme leider erst jetzt dazu zu antworten, sorry.
Habe die Extension heruntergeladen. Muß aber leider gestehen, dass meien Englischkenntnisse völlig unzureichend sind. :oops:
Trotzdem danke für den Hinweis.
Möchte meine Frage momentan auch nicht weiter verfolgen, da meine "Lösung" bis jetzt gut funktioniert.
Gruß Jörg

oDoc.Sheets().getByName("Tabelle1").getDrawPage()

[quote="Jörg"][code]oForm = odoc.sheets().DrawPage.Forms(sbNames(i))[/code]
Eigenschaft oder Methode nicht gefunden:Drawpage[/quote]


[color=#008000]Sheets()[/color] ist die Sammlung aller Tabellenblätter - die hat keine [color=#008000]DrawPage[/color].

Eine [color=#008000]DrawPage[/color] findest Du aber bei jedem Sheet..., also:

[code]oDoc.Sheets().getByName("Tabelle1").getDrawPage()[/code]

verwende [url=http://extensions.services.openoffice.org/project/MRI]MRI[/url] zur Untersuchung Deiner Objekte (das kann sogar Code generieren!)

sub Markierfeld
odoc = ThisComponent
osheet = odoc.sheets(2)

Dim i as integer
Dim sBNames (1 to 3) as String
sBNames(1) = "Erstverord"
sBNames(2) = "Folgeverord"
sBNames (3) = "Regelfall"
oForm = odoc.sheets().DrawPage.Forms(sbNames(i))
oControl = oForm.getByName(sbNames(i))
For i = 1 To 3
   if oControl.state=1 then
      oControl.state=0 
     
   endif

next i
end sub

oForm = odoc.sheets().DrawPage.Forms(sbNames(i))

Hallo Fachleute,
@Stephan
Danke Dir für die Antwort. Deine Vorgehensweise ist natürlich professioneller.
Wollte es auch mal so versuchen, komme aber nicht weiter.
[code]sub Markierfeld
odoc = ThisComponent
osheet = odoc.sheets(2)

Dim i as integer
Dim sBNames (1 to 3) as String
sBNames(1) = "Erstverord"
sBNames(2) = "Folgeverord"
sBNames (3) = "Regelfall"
oForm = odoc.sheets().DrawPage.Forms(sbNames(i))
oControl = oForm.getByName(sbNames(i))
For i = 1 To 3
if oControl.state=1 then
oControl.state=0

endif

next i
end sub[/code]
Momentan meckert ooo diese Zeile an.
[code]oForm = odoc.sheets().DrawPage.Forms(sbNames(i))[/code]
Eigenschaft oder Methode nicht gefunden:Drawpage
Mir fehlt es halt an Wissen.

Vielleicht kannst Du ja mal drüberschaun.
Gruß Jörg

Ich sehe da keine Probleme, habe aber keine Erfahrungen weil ich es vorziehe den Haken zu entfernen.


Gruß
Stephan

Hallo Fachleute,
Nach dem Motto "Neuer Kunde Neue Runde" lösche ich per Makro die Refenzwerte in einigen verknüpften Zellen.
Danach ist auch der Haken raus und kann wieder gesetzt werden.
Meine Frage ist, ob das auf Dauer gut gehen kann oder ob OOO irgendwie durcheinander kommen könnte?
Bis jetzt ist nichts passiert.

Gruß Jörg