LibreOffice-Forum

Code: Alles auswählen

Sub Schaltflaeche_Test()
	meinDok		=	thisComponent
	oMeinBlatt	=	meinDok.sheets.getByName("Tabelle1")	

	With oMeinBlatt.Drawpage.getForms.getByIndex(0)

		.getByName("btn_1").EnableVisible = True
		.getByName("btn_1").Label = "Neuer Name"
		
	End With
End Sub

Code: Alles auswählen

	.getByName("btn_1").PositionX = 100
	.getByName("btn_1").PositionY = 50
	.getByName("btn_1").SizeX = 30
	.getByName("btn_1").SizeY = 10

Code: Alles auswählen

sub changesize
odoc=thiscomponent
osheet= odoc.getsheets().getbyname("Tabelle1")
ooShape = GetControlShape(osheet, "btn_1")
Position= ooShape.getPosition()
Position.X = Position.X-50
Position.Y = Position.Y -50
ooShape.setPosition(Position) 

Size=  ooShape.getSize()
Size.Height = Size.Height+50
Size.Width = Size.Width+50

ooShape.setSize(Size)

End Sub

Function GetControlShape(oContainer as Object,CName as String)
Dim i as integer
Dim aShape as Object
	for i = 0 to oContainer.DrawPage.Count-1
	aShape = oContainer.DrawPage(i)
	if HasUnoInterfaces(aShape, "com.sun.star.drawing.XControlShape") then
	if ashape.Control.Name = CName then
	GetControlShape = aShape
	exit Function
	endif
	endif
	next
End Function