OpenOffice.info

oDoc = StarDesktop.CurrentComponent 
oSheet = oDoc.Sheets.GetByIndex(1)
oDrawPage = oSheet.DrawPage 
For nIdx = 0 to oDrawPage.Count - 1 
	oShape = oDrawPage(nIdx)
	If HasUnoInterfaces(oShape, "com.sun.star.drawing.XControlShape") Then 
		If oShape.Control.Name = "Button1" Then
			oPoint.X = 2500
			oPoint.Y = 10900
			oSize.Width = 800
			oSize.Height = 400
			oShape.Size = oSize
			oShape.Position = oPoint
		ElseIf oShape.Control.Name = "Button2" Then
			...
		End If
	End If
Next nIdx

Hallo,

danke für die Info.
Da ich die Position des Buttons verändern wollte ging es über den folgenden Weg:

[code]oDoc = StarDesktop.CurrentComponent
oSheet = oDoc.Sheets.GetByIndex(1)
oDrawPage = oSheet.DrawPage
For nIdx = 0 to oDrawPage.Count - 1
oShape = oDrawPage(nIdx)
If HasUnoInterfaces(oShape, "com.sun.star.drawing.XControlShape") Then
If oShape.Control.Name = "Button1" Then
oPoint.X = 2500
oPoint.Y = 10900
oSize.Width = 800
oSize.Height = 400
oShape.Size = oSize
oShape.Position = oPoint
ElseIf oShape.Control.Name = "Button2" Then
...
End If
End If
Next nIdx[/code]

Bei mir sind die Buttons etwas störrisch und verändern ihre Größe und Position auf dem Formular mit der Zeit. Mit dem obigen Code werden Sie jetzt bei jedem Laden des Dokuments neu positioniert. Damit bleiben sie jetzt endlich dort, wo sie hingehören.

Gruß
Jürgen

Sub Button_ansprechen
	Dim vButton, vForm
	Dim oForms
	oForms = ThisComponent.CurrentController.ActiveSheet.DrawPage.Forms
	vForm=oForms.getByIndex(0)
	vButton = vForm.getByName("PushButton")
	vButton.Label = "OpenOffice.org" 'Button Titel
	vButton.enabled=False 'Button deaktivieren
End Sub

Hallo Jürgen,

hier mal ein Beispiel:[code]Sub Button_ansprechen
Dim vButton, vForm
Dim oForms
oForms = ThisComponent.CurrentController.ActiveSheet.DrawPage.Forms
vForm=oForms.getByIndex(0)
vButton = vForm.getByName("PushButton")
vButton.Label = "OpenOffice.org" 'Button Titel
vButton.enabled=False 'Button deaktivieren
End Sub[/code]

Hilft das weiter?

Jürgen

Hallo,

weiß jemand wie man auf einen Button zugreift, der innerhalb eines Sheets platziert ist?
GetControl gibt es ja leider nur innerhalb eines Dialogs und nicht innerhalb eines Sheets.

Gruß�ür�n