OpenOffice.info

Hi Clag,

[quote="clag"]und zwar finde ich auch mit X-ray keinen Hinweis darauf, welche Zelle als Datenbereich zugewiesen wurde
um die per Makro wechseln zu können? [/quote]

Wer suchet > "Drehfeld" der [url=http://de.openoffice.info/viewtopic.php?f=2&t=25280&hilit=+drehfeld#p108034]findet[/url]. :wink:

Viel Erfolg.


Jürgen

....
oControlModel1.ScrollValue = 100

Hallo DPunch,

[quote="DPunch"]Da Du ja mittlerweile weisst, wie man Xray benutzt und Werte aus Zellen ausliest,[/quote] noch nicht wirklich

aber mit deiner prima Anleitung habe ich es jetzt geschafft und konnte die Werte direkt auslesen und hineinschreiben

[code]....
oControlModel1.ScrollValue = 100[/code]

wenn denn endlich mal was funktioniert ist das schon motivierend :D


[b][color=#FF0000]Edit ![/color][/b]

jetzt habe ich aber doch immer noch ein Problem
und zwar finde ich auch mit X-ray keinen Hinweis darauf, welche Zelle als Datenbereich zugewiesen wurde
um die per Makro wechseln zu können?
Speziell bei der zwei Bildlaufleisten wollte ich da per Makro wechseln um einen Schleppeffekt zu bekommen

Danke

sSpinButtonName = "Drehfeld 1"  ' <--- muss natürlich der Name sein, den Du Deinem Drehfeld gegeben hast
oDoc = thisComponent
oSheet = oDoc.CurrentController.ActiveSheet
oDrawpage = oSheet.Drawpage
oForm = oDrawpage.Forms(0)
oControlModel = oForm.getByName(sSpinButtonName)
xray oControlModel

sSpinButtonName = "Drehfeld 1"  ' <--- muss natürlich der Name sein, den Du Deinem Drehfeld gegeben hast
oDoc = thisComponent
oSheet = oDoc.CurrentController.ActiveSheet
oDrawpage = oSheet.Drawpage
For i = 0 To oDrawpage.Count-1
	If oDrawpage(i).supportsService("com.sun.star.drawing.ControlShape") Then
		oControlModel = oDrawpage(i).Control
		If oControlModel.Name = sSpinButtonName Then
			xray oControlModel
		End If
	End If
Next i

Aloha

Da Du ja mittlerweile weisst, wie man Xray benutzt und Werte aus Zellen ausliest, sollte Dir eigentlich nur noch der Zugriff zum Drehfeld fehlen.
Den kriegst Du (in einem Calc-Dokument) folgendermassen:

[code]sSpinButtonName = "Drehfeld 1" ' <--- muss natürlich der Name sein, den Du Deinem Drehfeld gegeben hast
oDoc = thisComponent
oSheet = oDoc.CurrentController.ActiveSheet
oDrawpage = oSheet.Drawpage
oForm = oDrawpage.Forms(0)
oControlModel = oForm.getByName(sSpinButtonName)
xray oControlModel[/code]
oder auch
[code]sSpinButtonName = "Drehfeld 1" ' <--- muss natürlich der Name sein, den Du Deinem Drehfeld gegeben hast
oDoc = thisComponent
oSheet = oDoc.CurrentController.ActiveSheet
oDrawpage = oSheet.Drawpage
For i = 0 To oDrawpage.Count-1
If oDrawpage(i).supportsService("com.sun.star.drawing.ControlShape") Then
oControlModel = oDrawpage(i).Control
If oControlModel.Name = sSpinButtonName Then
xray oControlModel
End If
End If
Next i[/code]

Hallo Leutz,

kann man in den Eigenschaften eines Drehfeldes den Werten von Min und Max Werte aus Zellen zuweisen ?
Da ich so in den Eigenschaften nichts gefunden habe, wie man da eine Zelle einbinden könnte vermute ich,
es geht nur über einen Makro Befehle?

Wenn ja, wie oder womit krieg ich da 'nen Zellenwert rein ?

schonmal Danke