OpenOffice.info

Code: Alles auswählen

Sub Main
 Dim sURL$
 sURL = ConvertToURL(„C:\Dokumente und Einstellungen\a.wmf“)
 InsertGraphicObjectShape(ThisComponent, sURL) 
End Sub

Sub InsertGraphicObjectShape(oDoc, sURL$)
 Dim oSize As New com.sun.star.awt.Size
 Dim oPos As New com.sun.star.awt.Point
 Dim oGraph

 oGraph = oDoc.createInstance(“com.sun.star.drawing.GraphicObjectShape”)

Größe und Position der Grafik wird zugewiesen
 oSize.width=200
 oSize.height=300
 oGraph.setSize(oSize)

 oPos.X = 2540
 oPos.Y = 2540
 oGraph.setposition(oPos)

 oDoc.getDrawPages().getByIndex(0).add(oGraph) 

 REM Set URL to the graphic.
 oGraph.GraphicURL = sURL
End Sub 

Function ChooseAFile$(sFilters(), bOpen As Boolean, Optional sInPath$)
  Dim oDialog As Object
  Dim sPath As String
  Dim oSFA As Object
  Dim s As String
  Dim I As Integer
  
  oDialog = CreateUnoService(“com.sun.star.ui.dialogs.FilePicker”)
  oSFA = createUnoService(“com.sun.star.ucb.SimpleFileAccess”)
  If bOpen Then
    I = com.sun.star.ui.dialogs.TemplateDescription.FILEOPEN_SIMPLE
  Else
    I = com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_SIMPLE
  End If
  oDialog.initialize(Array(i))
  
  If IsMissing(sInPath) Then
    oDialog.setDisplayDirectory(GetWorkDir())
  ElseIf oSFA.Exists(sInPath) Then
    oDialog.setDisplayDirectory(sInPath)
  Else
    s = “Directory ‘” & sInPath & “’ Does not exist”
    If MsgBox(s, 33, “Error”) = 2 Then Exit Function
  End If

  For I = Lbound(sFilters()) To Ubound(sFilters()) Step 2
    Dim sFilterName$
    Dim sFilterValue$
    sFilterValue = sFilters(i+1)
    sFilterName = sFilterValue & “ – “ & sFilters(i)
    oDialog.appendFilter(sFilterName, sFilterValue)
  Next
  
  If oDialog.Execute() = 1 Then
    sPath = oDialog.Files(0)
    ChooseAFile() = sPath
  End If
End Function

Function GraphicFilters()
  GraphicFilters() = Array(“All Files”, “*.*”, _
    „Graphic Interchange Format“, „*.gif“, _
    „Joint Photographic Experts Group“, „*.jpg“, _
    „Tag Image File Format“, „*.tif“, _
    “Windows Bit Map”, “*.bmp”, _
    “Gimp Files”, “*.xcf”, _
    “Portable Network Graphics”, “*.png”)
End Function

Function GetWorkDir() As String
  Dim  oPathSettings
  oPathSettings = CreateUnoService(“com.sun.star.util.PathSettings”)
  GetWorkDir() = oPathSettings.Work
End Function

Code: Alles auswählen

 REM  *****  BASIC  *****

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

rem ----------------------------------------------------------------------
dim args1(3) as new com.sun.star.beans.PropertyValue
args1(0).Name = "FileName"
args1(0).Value = "file:///C:/Dokumente%20und%20Einstellungen/Michael/Eigene%20Dateien/Schule/Schule/5BHD/TMS%20-%20Diplomarbeit/Symbole/100/10/Vorrichtung_11_g.wmf"
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())

end sub