Apache OpenOffice Community Forum

Code: Select all

#Warn ; Enable warnings to assist with detecting common errors.
SetBatchLines -1
;#SingleInstance force
;#NoEnv
; ;Persistent
; Process Priority,, High
SendMode Input ; Recommended for new scripts due to its superior speed and reliability. 
SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.

; Create a new Calc spreadsheet. 
oSM := ComObjCreate("com.sun.star.ServiceManager")
; objCoreReflection := objServiceManager.createInstance("com.sun.star.reflection.CoreReflection")
oDesk := oSM.createInstance("com.sun.star.frame.Desktop")	; Create the Desktop	
oArgs := ComObjArray(VT_VARIANT := 12, 3)
oArgs[0] := MakePropertyValue(oSM, "", "")

sURL := "private:factory/scalc"
oDoc := oDesk.loadComponentFromURL(sURL, "_blank", 0, oArgs)
; oSheet := oDoc.getSheets().getByIndex( 0 )
oSheet := oDoc.Sheets.getByIndex( 0 )

LogoName = LogoExpo.jpg
LogoPath = C:\Users\Personal\Documents\Expo\Logo\Logotyper 2012\Squid

Logo := LogoPath "\" LogoName
IfNotExist %Logo%
{	MsgBox 64, Rad %A_LineNumber% -> %A_ScriptName%, Missing image .: %LogoName% `nPath .: %LogoPath% `n`nProgram is ended!
	ExitApp
}

StringReplace ImageURL, Logo, \, `/, All
ImageURL := "file:///" ImageURL	; ImageURL := "C:/Users/Personal/Documents/Expo/Logo/Logotyper 2012/Squid/LogoExpo.jpg"
; MsgBox 64, Rad %A_LineNumber% -> %A_ScriptName%, Logo .:`n%Logo% `n`npicURL .:`n%ImageURL%

oImage := oDoc.createInstance("com.sun.star.drawing.GraphicObjectShape")	; oImagen_obj = ThisComponent.createInstance("com.sun.star.drawing.GraphicObjectShape")
oImage.GraphicURL := ImageURL
oSize := oImage.Size
oSize.Height := 5000
oSize.Width := 5000
oImage.Size := oSize
oPos := oImage.Position
oPos.X := 5000
oPos.Y := 5000
oImage.Position := oPos

oDP := oDoc.DrawPages.getByIndex(0)
oDP.add(oImage)

MsgBox 64, Rad %A_LineNumber% -> %A_ScriptName%, Ready!, 2
ExitApp

; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; Function MakePropertyValue(cName, uValue)
; Version 2 juni 2016
MakePropertyValue(oSM, cName, uValue)
{	; oSM := ComObjCreate("com.sun.star.ServiceManager")
	oPropertyValue := oSM.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
	
	oPropertyValue.Name := cName
	oPropertyValue.Value := uValue
	
	Return oPropertyValue
}

Code: Select all

' push graphic to background
oShape.LayerId = 1

' push graphic to usual layer
oShape.LayerId = 0

Code: Select all

Sub fitGraphics()

   Dim oDoc As Object
   Dim oSheet As Object
   Dim aCell As Object
   Dim g as Object
   Dim c As Integer
   Dim s As new com.sun.star.awt.Size
   Dim gp As new com.sun.star.awt.Point     
   Dim ap As new com.sun.star.awt.Point     
   Dim p As new com.sun.star.awt.Point     
   Dim xAdjust As Long
   Dim yAdjust As Long
   Dim rowHeight As Long
   Dim colWidth As Long
   
   oDoc = ThisComponent
   
   oSheet = oDoc.CurrentController.ActiveSheet
   
   c = oSheet.DrawPage.count
   
   Do While c >= 1
         g = oSheet.DrawPage(c - 1)
         if InStr(g.ShapeType,"GraphicObjectShape") > 0 then
            s = g.getSize()
            gp = g.getPosition()
            aCell = g.anchor
            rowHeight = oSheet.Rows(aCell.CellAddress.Row).Height
            colWidth = oSheet.Columns(g.anchor.CellAddress.Column).Width
            
            if rowHeight < s.Height then
               oSheet.Rows(aCell.CellAddress.Row).Height = s.Height
               yAdjust = 0
         else
            yAdjust = (rowHeight - s.Height) \ 2
         endif
         if colWidth < s.Width then
               oSheet.Columns(aCell.CellAddress.Column).Width = s.Width
               xAdjust = 0
         else
            xAdjust = (colWidth - s.Width) \ 2
         endif      
            ap = aCell.Position()
            gp = g.getPosition()
            if (rowHeight < s.Height) or colWidth < s.Width then
               g.setSize(s)
               g.setPosition(ap)
            else
               p.X = ap.X + xAdjust
               p.Y = ap.Y + yAdjust
               g.setPosition(p)
            endif
         endif
         c = c - 1
   Loop
   
End Sub

Code: Select all

; create a new Calc spreadsheet. 
oSM := ComObjCreate("com.sun.star.ServiceManager")
oDesk := oSM.createInstance("com.sun.star.frame.Desktop")	; Create the Desktop

oArgs := ComObjArray(VT_VARIANT := 12, 3)
; Öppna ett nytt tomt Kalkylblad
sURL := "private:factory/scalc"
oDoc := oDesk.loadComponentFromURL(sURL, "_blank", 0, oArgs)

oSheets := oDoc.getSheets()
oSheet := oDoc.getSheets().getByIndex( 0 )

; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
; Insert a rectangle on the sheet
oDrawP := oDoc.getDrawPages().getByIndex(0)
oShape := oDoc.createInstance("com.sun.star.drawing.RectangleShape")

; Position
oPoint := oShape.Position
oPoint.X := 1000	; unit : 1/100mm
oPoint.Y := 1000	; unit : 1/100mm
oShape.Position := oPoint

; Size
oSize := oShape.Size
oSize.Height := 1200	; unit : 1/100mm
oSize.Width :=  1500	; unit : 1/100mm
oShape.Size := oSize
oDrawP.add(oShape)

; This code is coming from the site above.
s := oSM.Bridge_GetStruct("com.sun.star.awt.Size")	; Create a Size struct.
gp := oSM.Bridge_GetStruct("com.sun.star.awt.Point")
ap := oSM.Bridge_GetStruct("com.sun.star.awt.Point")
p := oSM.Bridge_GetStruct("com.sun.star.awt.Point")

oDrawPages := oDoc.DrawPages
c := oDrawPages.count	; Number of Sheets


While (c >= 1)
{	g := oSheet.DrawPage(c - 1)	; number on this Sheet

	if InStr(g.ShapeType,"GraphicObjectShape") > 0
	{	s := g.getSize()
		gp := g.getPosition()
		aCell := g.anchor
		rowHeight := oSheet.Rows(aCell.CellAddress.Row).Height
		colWidth := oSheet.Columns(g.anchor.CellAddress.Column).Width

		if rowHeight < s.Height
		{	oSheet.Rows(aCell.CellAddress.Row).Height := s.Height
			yAdjust := 0
		}
	}
	else
		yAdjust := ( rowHeight - s.Height ) `/ 2
		
	if colWidth < s.Width
	{	oSheet.Columns(aCell.CellAddress.Column).Width := s.Width
		xAdjust := 0
	}
	else
		xAdjust := ( colWidth - s.Width ) `/ 2
	
	ap := aCell.Position()
	gp := g.getPosition()
	if ( rowHeight < s.Height ) or ( colWidth < s.Width )
	{	g.setSize(s)
		g.setPosition(ap)
	}
	else
	{	p.X := ap.X + xAdjust
		p.Y := ap.Y + yAdjust
		g.setPosition(p)
	}
	
	; MsgBox 64, Rad %A_LineNumber% -> %A_ScriptName%, Yes! `nA_Index = %A_Index% `nc = %c%
	EnvSub c, 1
}

MsgBox 64, Rad %A_LineNumber% -> %A_ScriptName%, Ready!, 2
ExitApp


; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; Function MakePropertyValue(cName, uValue)
; Version 2 juni 2016
MakePropertyValue(oSM, cName, uValue)
{	; oSM := ComObjCreate("com.sun.star.ServiceManager")	Defined elsewhere

	oPropertyValue := oSM.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
	
	oPropertyValue.Name := cName
	oPropertyValue.Value := uValue
	
	Return oPropertyValue
}

Code: Select all

if InStr(g.ShapeType,"GraphicObjectShape") > 0

Code: Select all

Haystack := "The Quick Brown Fox Jumps Over the Lazy Dog"
Needle := "Fox"
If InStr(Haystack, Needle)
  MsgBox, The string was found.
Else
  MsgBox, The string was not found.

Code: Select all

....
   g := oSheet.DrawPage(0)   ; number on this Sheet
   GraphicType := g.ShapeType
   if InStr(GraphicType,"GraphicObjectShape") > 0   ; The rectangle above was found
....

Code: Select all

MsgBox % ComObjType(g, "Name")

Code: Select all

g := oSheet.DrawPage(c - 1)

Code: Select all

Set oSM = CreateObject(“com.sun.star.ServiceManager”)
Set oDesk = oSM.createInstance(“com.sun.star.frame.Desktop”)
Set oDoc = oDesk.loadComponentFromURL(“private:factory/scalc”, “_blank”, 0, arg)