Steuerelemente und Makros

[komma4]

Hallo MFG,

1: ja
2: ja
3: hier verstehe ich die Frage nicht
4: ja (nehme Textmarken)
5: siehe http://webtools.projects.ooodev.org/support/

EDIT: ja

[komma4]

ist praktisch alles in Andrew Pitonyaks Makro Dokument beschrieben...

Bei konkreten Fragen helfen wir Dir hier gerne, aber Deine Arbeit musst Du schon selbst erledigen.

[komma4]

Mmm, allzu schwer ist das nicht, aber ich kenne noch keinen Einsteiger in OOo StarBasic Programmierung, der sich leicht getan hat.

[hawe]

@Winfried: Wie wahr !
@MFG
Nach meiner Einschätzung kannst Du ohne einschlägige Erfahrung gleich die Finger davon lassen!
Als günstige Adresse zu OOME Ebook würde ich
http://book.opensourceproject.org.cn/of ... penmacros/
empfehlen...

[komma4]

aber das ganz große problem is immernoch, das die 1 wieder zur 0 wird, wenn ich den haken wieder wegmache - geht das irgendwie einfach zu bewerkstelligen?

siehe angehängtes Beispiel...

writer_FormularCheckbox.odt

Writer mit Checkbox, Umschalten des Inhalts einer Textmarke

(15.99 KiB) 75-mal heruntergeladen

[komma4]

automatische Berechnung ausgeschaltet?

Code: Alles auswählen

ThisComponent.calculateAll()

[komma4]

is ja nen string, ich probiers mal mit integer

+1

[komma4]

nicht das Lesen ist das Problem, sondern das Setzen in Calc:

Code: Alles auswählen

If oFeld.State = 1 Then
   oCalcDoc.Sheets().getByName( "Tabelle1").getCellByPosition( 1, 2 ).Value = 1
'[...]

...wenn oCalcDoc das Objekt Deiner Calc-Datei ist

[komma4]

na, wenn das Formular mit den Schaltflächen in der gleichen Calc-Datei sind, dann geht auch ThisComponent.Sheets()....

[komma4]

Eine Sheets()-Sammlung gibt es nur in einer Calc-Tabelle.

Du befindest Dich weiterhin aussschliesslich in Writer? Zeige mal Code, wie Du die Tabelle ansprichst...

Erste Tabelle (=zuerst eingefügte Tabelle, nicht unbedingt die erste im Dokument sichtbare) einer Writer-Datei:

Code: Alles auswählen

oTabelle = ThisComponent.getTextTables().getByIndex(0)

[komma4]

...i see...

nun, dann halt nicht über Textmarken, sondern über die Texttabelle:

Code: Alles auswählen

oForm = ThisComponent.Drawpage.Forms(0)
oFeld = oForm.getByName( "CheckBox" )

' Texttabellle, Index 0 
oTxtTab = ThisComponent.getTextTables().getByIndex( 0 )

If oFeld.State = 1 Then
' eingeschaltet
' Position, bei null beginnend (Spalte, Zeile)
	oTxtTab.getCellByPosition( 0 , 1 ).Value = 1 
Else
' ausgeschaltet
	oTxtTab.getCellByPosition( 0 , 1 ).Value = 0  
End If

Hiermit klappt auch die automatische Berechnung wieder.

Dir hilft das?

[komma4]

0 , 3
aber krieg immer die selbe fehlermeldung
BASIC Laufzeitfehler
Es ist eine Exception aufgetreten
Type: com.sun.star.lang.IndexOutOfBoundsException

Die Zelle A4 kannst Du nur über 0,3 ansprechen. Wenn der o.a. Fehler auftritt, dann ist diese Zelle nicht vorhanden.

Spreche Deine Tabelle über den Namen an (re. Maustaste>Tabelle...>Tabelle>Namen)

Code: Alles auswählen

oTxtTab = ThisComponent.getTextTables().getByName( "Tabelle7" )

damit Du wirklich die richtige erhälst.

[komma4]

Na, alla... dann weiterhin guten Erfolg!