OpenOffice.info

Hey F3K,
sowas habe ich gesucht. [b]Funktioniert einfach super ![/b]

Ich wollte die Sache nicht "kompliziert" machen, sondern ich hatte einfach keine Ahnung, wie es gehen könnte.
Wo kann man sowas nachlesen, um den eigenen Basic-Horizont zu erweitern? Denn bei den üblichen Quellen Dannenhöfer, Pitonyak, Krumbein und in OO-, LO-Foren bin ich nicht so richtig fündig geworden.

Kleiner Nachtrag:
Bei den hochgeladenen Beispieldateien habe ich versehentlich die nicht sauber bereinigten Urdateien benutzt, die noch Makros enthielten, die dort nichts zu suchen haben. Jetzt sind sie sauber.
[attachment=0]Steuerelemente-02.ods[/attachment]

Nochmal Dank & Gruß
Gerd

SUB read_checkbox(oEvent)
    ochkbox = oEvent.source.model
    oForm = ochkbox.Parent
    ocmd1 = oform.getbyName("Schaltfläche 1")
    ocmd2 = oform.getbyName("Schaltfläche 2")
    oController = ThisComponent.CurrentController    
    if ochkbox.state = 0 then 
        sValue = ochkbox.SecondaryRefValue
        ocmd1.Label = sValue
        ocmd1.EnableVisible = true
        ocmd2.EnableVisible = false
    else 
        sValue = ochkbox.Refvalue
        ocmd2.Label = sValue
        ocmd1.EnableVisible = false
        ocmd2.EnableVisible = true
    endif
end SUB

SUB MAKRO_A
 PRINT "MAKRO A"
end SUB

SUB MAKRO_B
 PRINT "MAKRO B"
end SUB

Hey,
warum so kompliziert, weshalb willst du der Schaltfläche per Makro ein Makro zuordnen? Geht zwar, aber ich denke die angehängte Lösung ist einfacher. Ich habe einfach zwei Schaltflächen eingebaut, die per Makro wechselseitig ein- bzw. ausgeblendet werden. Ausserdem lese ich den aktuellen Wert direkt aus dem Markierfeld aus, so dass die Hilfszelle nicht benötigt wird.
[code]SUB read_checkbox(oEvent)
ochkbox = oEvent.source.model
oForm = ochkbox.Parent
ocmd1 = oform.getbyName("Schaltfläche 1")
ocmd2 = oform.getbyName("Schaltfläche 2")
oController = ThisComponent.CurrentController
if ochkbox.state = 0 then
sValue = ochkbox.SecondaryRefValue
ocmd1.Label = sValue
ocmd1.EnableVisible = true
ocmd2.EnableVisible = false
else
sValue = ochkbox.Refvalue
ocmd2.Label = sValue
ocmd1.EnableVisible = false
ocmd2.EnableVisible = true
endif
end SUB

SUB MAKRO_A
PRINT "MAKRO A"
end SUB

SUB MAKRO_B
PRINT "MAKRO B"
end SUB
[/code]
Gruß R

Hallo an Alle,
wie kann ich per Makro in LO-Calc einem Steuerelement oder einer Grafik aus der Gallery in Abhängigkeit vom Inhalt einer Zelle ein auszuführendes Makro zuordnen und die Eigenschaften der Schaltfläche ändern?
[attachment=0]Steuerelemente-01.ods[/attachment]

Danke & mfG
Gerd