OpenOffice.info

Code: Alles auswählen

sub nologo_testomania
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
Dim Zufallszahl As Integer
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem -----------Zufallszahl generieren-----------------------------
	Randomize	
	Zufallszahl = Int((9999 * Rnd + 1)) 

rem ----------------------------------------------------------------------
dim args1(3) as new com.sun.star.beans.PropertyValue
args1(0).Name = "FileName"
args1(0).Value = "file://networkpath/Dateiname" & Zufallszahl & ".tif"
args1(1).Name = "FilterName"
args1(1).Value = "<Alle Formate>"
args1(2).Name = "AsLink"
args1(2).Value = false
args1(3).Name = "Style"
args1(3).Value = "Grafik"

dispatcher.executeDispatch(document, ".uno:InsertGraphic", "", 0, args1())
wait 2500
rem ----------------------------------------------------------------------
 dispatcher.executeDispatch(document, ".uno:WrapThrough", "", 0, Array())

rem ----------------------------------------------------------------------
 dispatcher.executeDispatch(document, ".uno:SendToBack", "", 0, Array())

rem ----------------------------------------------------------------------
 dispatcher.executeDispatch(document, ".uno:WrapThroughTransparent", "", 0, Array())

end sub

Code: Alles auswählen

Dim Page As Object
Dim GraphicObjectShape As Object
Dim Point As New com.sun.star.awt.Point
Dim Size As New com.sun.star.awt.Size

Sub BildEinfuegen

	Doc = ThisComponent
	Page = Doc.drawPage
	
	GraphicObjectShape = Doc.createInstance("com.sun.star.drawing.GraphicObjectShape")
	
	Size.Width = 10000 'Grösse
	Size.Height = 10000 'Grösse
	GraphicObjectShape.Size = Size
	
	Point.x = 2000 'Position   
	Point.y = 1500 'Position
	GraphicObjectShape.Position = Point
	
	GraphicObjectShape.GraphicURL = "Deine URL zum Bild"
	GraphicObjectShape.AdjustBlue = 0
	GraphicObjectShape.AdjustGreen = 0
	GraphicObjectShape.AdjustBlue = 0
	GraphicObjectShape.AdjustContrast = 0
	GraphicObjectShape.AdjustLuminance = 0
	GraphicObjectShape.Transparency = 30
	GraphicObjectShape.AnchorType=0
	GraphicObjectShape.Name = "Mein Bild"
	GraphicObjectShape.IsFollowingTextFlow (true)
	GraphicObjectShape.GraphicColorMode = com.sun.star.drawing.ColorMode.STANDARD
	Page.add(GraphicObjectShape)
End Sub

Code: Alles auswählen

Sub Linie_Zeichnen
	oDoc = thisComponent
	oGrafiken = oDoc.Drawpage
	anzahl = oGrafiken.count
	For i = 1 to anzahl
	oGrafik = oGrafiken.getByIndex(i-1)
	'Objekt entfernen
	if oGrafik.Name = "Meine Linie" then oGrafiken.remove(oGrafik)
	next i
	oLinie = oDoc.createInstance("com.sun.star.drawing.LineShape")
	dim oPos3 as new com.sun.star.awt.Point
	oPos3.X = 5000 'Abstand von Links
	oPos3.Y = 4800 'Abstand von Oben
	dim LineSize as new com.sun.star.awt.Size
	LineSize.Width = 10000  '100 mm lang
	LineSize.Height = 0 'Endpunkt = oPos3.Y + LineSize.Height
	with oLinie
		.name = "Meine Linie"
		.lineColor = RGB(211,211,211)
		.lineWidth = 80
		.position = oPos3
		.Size = LineSize
		.AnchorType = com.sun.star.text.TextContentAnchorType.AT_PAGE
		.MoveProtect = true
	end with
	oDoc.Drawpage.add(oLinie)
End Sub

Code: Alles auswählen

sub Linie_verschieben
	oDoc = thisComponent
	oLinien = oDoc.Drawpage
	anzahl = oLinien.count
	For i = 1 to anzahl
	oLinie = oLinien.getByIndex(i-1)
	if oLinie.Name = "Meine Linie" then 
	oLinie.HoriOrientPosition=4000
	oLinie.VertOrientPosition=8000
	end if
	next i
end sub

Code: Alles auswählen

Sub Linie

	  Dim Zufallszahl As Integer
			rem -----------Zufallszahl generieren-----------------------------
				Randomize	
				Zufallszahl = Int((9999 * Rnd + 1)) 
			rem ----------------------------------------------------------------------       
				  
   oDoc = thisComponent
   oGrafiken = oDoc.Drawpage
   anzahl = oGrafiken.count
	'   	MsgBox anzahl,0," soviele Grafiken"

   For i = 1 to anzahl
   		oGrafik = oGrafiken.getByIndex(i-1)
		'MsgBox  oGrafik.Name,0,"   is der Name"
			   
'-------- LOGO ausrichten ----------
		if oGrafik.Name = "nologologo" Then
			oGrafik.GraphicURL = "file://universum/projekte/uz_imgNoLogo/noLogo-Vorlagen/noLogo_DRUCK.tif/nologo" & Zufallszahl & ".tif"		
		'--------HIER MUSS X UND Y DES LOGOS GESETZT WERDEN ----------	   						   

		End If	   

'--------Linie auf SEITE EINS ausrichten----------	   
	   if oGrafik.Name = "grauesteilseiteeins" Then
			dim linePos as new com.sun.star.awt.Point
				linePos.X = Zufallszahl 'Abstand von Links
				linePos.Y = Zufallszahl 'Abstand von Oben
			oGrafik.position = linePos
		End If


'--------Linie auf allen uebrigen Seiten ausrichten----------   
		if oGrafik.Name = "grauesteil" Then
			linePos.X = Zufallszahl  'Abstand von Links
			linePos.Y = Zufallszahl 'Abstand von Oben
			oGrafik.position = linePos
		End If

	'for-schleife weiterzaehlen
   next i
End Sub

Code: Alles auswählen

sub Bild_verschieben
	oDoc = thisComponent
	oBilder = oDoc.Drawpage
	anzahl = oBilder.count
	For i = 1 to anzahl
	oBild = oBilder.getByIndex(i-1)
	if oBild.Name = "Grafik1" then 
	oBild.HoriOrientPosition=1000
	oBild.VertOrientPosition=2000
	end if
	next i
end sub