OpenOffice.info

Code: Alles auswählen

Sub Table_RelativeWidth_100
   Dim oTable As Object
   Dim tabs()
   oDoc = ThisComponent
   oTables = oDoc.GetTextTables()
   Anzahl = oTables.getcount
   page = oDoc.drawPage
   MyPageStyle = oDoc.createInstance( "com.sun.star.style.PageStyle")
   PageWidth = MyPageStyle.width
   L_Margin = MyPageStyle.LeftMargin
   R_Margin = MyPageStyle.RightMargin
   UsedWidth = PageWidth - L_Margin - R_Margin
   nNumShapes = Page.getCount()
   for i = 0 to Anzahl -1   
   oTable = odoc.texttables(i)
   Table_Width = otable.Width
   if Table_Width > UsedWidth then
   oTable.RelativeWidth = 100
   oTable.RightMargin = 0
   end if
   next i
End Sub

Code: Alles auswählen

Sub Image_Customize_2
	Dim size As New com.sun.star.awt.Size
	oDocument = thisComponent
	page = oDocument.drawPage
	MyPageStyle = oDocument.createInstance( "com.sun.star.style.PageStyle")
	PageWidth = MyPageStyle.width
	L_Margin = MyPageStyle.LeftMargin
	R_Margin = MyPageStyle.RightMargin
	UsedWidth = PageWidth - L_Margin - R_Margin
	nNumShapes = Page.getCount()
	k = 0
	For i = 0 To nNumShapes - 1
	oShape = Page.getByIndex( i )
	oImage = oShape.FrameStyleName
	if oImage = "Graphics" then
	CurWidth = oshape.Width
	CurHeight = oshape.Height
	if  CurWidth > UsedWidth Then
	Factor =  UsedWidth  / CurWidth
	NewWidth = CurWidth * Factor
	NewHeight= CurHeight * Factor
	size.Width = NewWidth
	size.Height = NewHeight	
	oshape.setSize(size)
	k = k + 1	
	end if
	end if
	next i
	msgbox "Es wurde(n) " & k & " Bild(er) angepasst." , 64, "Bildgrösse anpassen"
End Sub[

Code: Alles auswählen

Sub Image_Customize
	Dim size As New com.sun.star.awt.Size
	oDocument = thisComponent
	page = oDocument.drawPage
	nNumShapes = Page.getCount()
	k = 0
	For i = 0 To nNumShapes - 1
	oShape = Page.getByIndex( i )
	oImage = oShape.FrameStyleName
	if oImage = "Graphics" then
	CurWidth = oshape.Width
	CurHeight = oshape.Height
	if  CurWidth > 17000 Then
	Factor =  17000  / CurWidth
	NewWidth = CurWidth * Factor
	NewHeight= CurHeight * Factor
	size.Width = NewWidth
	size.Height = NewHeight	
	oshape.setSize(size)
	k = k + 1	
	end if
	end if
	next i
	msgbox "Es wurde(n) " & k & " Bild(er) angepasst." , 64, "Bildgrösse anpassen"
End Sub