Steuerelement via Makro verschieben
Verfasst: Do, 18.06.2009 16:29
Hallo..
Nachdem ich mein erstes Problem "Zellbezug" ändern, dank Jürgen, beheben konnte, stellt sich jetzt ein neues Problem.
1. Bin ich zu blöd x-ray zum laufen zu bekommen
ich führ das Makro entsprechend der BEschreibung aus aber ich krieg tausend Fehlermeldung bezüglich des Dokuments.
Folgedessen kann ich 2. nicht den Wert der "Position" des Steuerelements auslesen und habe etwas rumexperimentiert..
Leider ohne Erfolg.
Ich möchte über einen Butto einfach, dass das Steuerelement (hier Drehfeld) um eine Zeile nach unten verschoben wird. Das muss nichtmal Zeilenorientiert sein, da diese alle gleich hoch sind. Daher würde eine fixe Verschiebung über ein Maß reichen (z.B 1,5cm).
Leider kennt er meine selbst ausgedachten Funktionen nicht
Hier mein kläglicher Versuch:
Gibt es vielleicht sogar einen einfacheren Weg? Mit Makro aufzeichnen kann ich maximal die Optionen des Steuerelements öffnen, die Veränderung selbst wird nicht mit aufgezeichnet.
Ich kenne das auch mit dem Move-Befehl, aber da bin ich auch nicht weit mit gekommen.
Kann mir jemand einen Tipp geben, wie ich das am besten löse?
Vielen Dank im Voraus,
azd
Nachdem ich mein erstes Problem "Zellbezug" ändern, dank Jürgen, beheben konnte, stellt sich jetzt ein neues Problem.
1. Bin ich zu blöd x-ray zum laufen zu bekommen

Folgedessen kann ich 2. nicht den Wert der "Position" des Steuerelements auslesen und habe etwas rumexperimentiert..
Leider ohne Erfolg.
Ich möchte über einen Butto einfach, dass das Steuerelement (hier Drehfeld) um eine Zeile nach unten verschoben wird. Das muss nichtmal Zeilenorientiert sein, da diese alle gleich hoch sind. Daher würde eine fixe Verschiebung über ein Maß reichen (z.B 1,5cm).
Leider kennt er meine selbst ausgedachten Funktionen nicht

Hier mein kläglicher Versuch:
Code: Alles auswählen
Sub Move_SpinButtonDown
Dim vField, vForm
Dim oForm
oDoc = ThisComponent
oForm = ThisComponent.Sheets(0).DrawPage.Forms.getByIndex(0)
vField = oForm.getByName("Drehfeld1")
oRow = vField.yPosition.Row
Dim yPosition as new com.sund.star.table.Position
yPosition.Row = oRow - 0.50
Dim yPositionValue as new com.sun.star.beans.Position
oCVB = oDoc.createInstance("com.sun.star.table.CellValueBinding")
oCVB.Initialize(Array(yPositionValue))
vField.setyPositionValue(oCVB)
End Sub
Ich kenne das auch mit dem Move-Befehl, aber da bin ich auch nicht weit mit gekommen.
Kann mir jemand einen Tipp geben, wie ich das am besten löse?
Vielen Dank im Voraus,
azd