OpenOffice.info

Hi,
den Button für die Toolbar wird über die Datei Addons.xcu gesteuert, mach Dich mal in der Richtung etwas schlauer ... am einfachsten geht es wohl mit der Extension BasicAddOnBuilder [url]http://extensions.services.openoffice.org/project/BasicAddonBuilder[/url] spiel mal etwas rum damit ...

Grüße,
HardyH

Sub RunGlobalNamedMacro
oDisp = createUnoService("com.sun.star.frame.DispatchHelper")
sMacroURL = "macro:///Gimmicks.AutoText.Main"
oDisp.executeDispatch(StarDesktop, sMacroURL, "", 0, Array())
End Sub

Danke für die Antowrten. Automatischer Start des Makros über Parameter kommt allerdings nicht in Frage.

Ich hb mal folgenden Code gefunden, der mir möglich macht das gewünschte Makro zu starten (Code wird natürlich für meine Zwecke angepasst):
[code]Sub RunGlobalNamedMacro
oDisp = createUnoService("com.sun.star.frame.DispatchHelper")
sMacroURL = "macro:///Gimmicks.AutoText.Main"
oDisp.executeDispatch(StarDesktop, sMacroURL, "", 0, Array())
End Sub[/code]
Wenn ich dieses Makro ausführe, funktioniert alles einwandfrei. Jetzt muss ich dieses Makro, mit dem Makro des Buttons kombinieren. So eine Art Wenn-Dann-Funktion: wenn ich Button anklicke, dann dieses Makro ausführen. Vielleicht ist die Lösung so einfach, dass zumindest ich nicht sofort draufkomme.

Und dann wär da noch die Frage, ob ich diesen Code auch zum automatischen Start eines Makros, welches beim Starten von Openoffice Writer ausgeführt wird, verwenden kann?

openoffice.org2.4 -anwendung macro:///bibliothek.modul.funktion

GlobalScope.BasicLibraries.LoadLibrary("Tools")
... und dann der Aufruf ...

nur mal auf die Schnelle

zu 1.
Da fällt mir nur die Möglichkeit mittels Parameter ein, läuft ungefähr so
[code]openoffice.org2.4 -anwendung macro:///bibliothek.modul.funktion
[/code]

zu 2.
ganz normal, wie mann auch auf andere Bibliotheksfunktionen zugreift:
erst laden und dann aufrufen ...
[code]GlobalScope.BasicLibraries.LoadLibrary("Tools")
... und dann der Aufruf ...
[/code]

REM *** This example creates a new basic macro toolbar button on
REM *** the Writer standard bar. It doesn't add the button twice.
REM *** It uses the Writer image manager to set an external image
REM *** for the macro toolbar button.

Sub AddButtonToToolbar
Dim sToolbar$ : sToolbar = "private:resource/toolbar/standardbar"
Dim sCmdID$ : sCmdID = "macro:///Standard.Module1.Test()"
Dim sDocType$ : sDocType = "com.sun.star.text.TextDocument"
Dim sSupplier$
Dim oSupplier
Dim oModuleCfgMgr
Dim oImageMgr
Dim oToolbarSettings
Dim bHasButton As Boolean
Dim nCount As Integer
Dim oToolbarButton()
Dim nToolbarButtonCount As Integer
Dim i%, j%

REM Retrieve the module configuration manager from the
REM central module configuration manager supplier
sSupplier = "com.sun.star.ui.ModuleUIConfigurationManagerSupplier"
oSupplier = CreateUnoService(sSupplier)

REM Retrieve the module configuration manager with module identifier
REM *** See com.sun.star.frame.ModuleManager for more information
oModuleCfgMgr = oSupplier.getUIConfigurationManager( sDocType )
oImageMgr = oModuleCfgMgr.getImageManager()

oToolbarSettings = oModuleCfgMgr.getSettings( sToolbar, True )

REM Look for our button with the CommandURL property.
bHasButton = False
nCount = oToolbarSettings.getCount()
For i = 0 To nCount-1
oToolbarButton() = oToolbarSettings.getByIndex( i )
nToolbarButtonCount = ubound(oToolbarButton())
For j = 0 To nToolbarButtonCount
If oToolbarButton(j).Name = "CommandURL" Then
If oToolbarButton(j).Value = sCmdID Then
bHasButton = True
End If
End If
Next
Next

Dim oImageCmds(0)
Dim oImages(0)
Dim oImage
REM *** Check if image has already been added
If Not oImageMgr.hasImage( 0, sCmdID ) Then
REM Try to load the image from the file URL
oImage = GetImageFromURL( "file:///tmp/test.bmp" )
If Not isNull( oImage ) Then
REM *** Insert new image into the Writer image manager
oImageCmds(0) = sCmdID
oImages(0) = oImage
oImageMgr.insertImages( 0, oImageCmds(), oImages() )
End If
End If

If Not bHasButton Then
sString = "My Macro's"
oToolbarItem = CreateToolbarItem( sCmdID, "Standard.Module1.Test" )
oToolbarSettings.insertByIndex( nCount, oToolbarItem )
oModuleCfgMgr.replaceSettings( sToolbar, oToolbarSettings )
End If
End Sub

Function GetImageFromURL( URL as String ) as Variant
Dim oMediaProperties(0) As New com.sun.star.beans.PropertyValue
Dim sProvider$ : sProvider = "com.sun.star.graphic.GraphicProvider"
Dim oGraphicProvider

REM Create graphic provider instance to load images from files.
oGraphicProvider = createUnoService( sProvider )

REM Set URL property so graphic provider is able to load the image

REM oMediaProperties(0).Name = "URL"
oMediaProperties(0).Value = URL

REM Retrieve the com.sun.star.graphic.XGraphic instance
GetImageFromURL = oGraphicProvider.queryGraphic( oMediaProperties() )
End Function

Function CreateToolbarItem( Command$, Label$ ) as Variant
Dim aToolbarItem(3) as new com.sun.star.beans.PropertyValue
aToolbarItem(0).Name = "CommandURL"
aToolbarItem(0).Value = Command
aToolbarItem(1).Name = "Label"
aToolbarItem(1).Value = Label
aToolbarItem(2).Name = "Type"
aToolbarItem(2).Value = 0
aToolbarItem(3).Name = "Visible"
aToolbarItem(3).Value = true
CreateToolbarItem = aToolbarItem()
End Function

Hallo. Ich möchte das folgende Makro nutzen (Code siehe unten), welches ein extra Button in die Toolbar einfügt. Allerdings tauchen 2 Probleme auf und zwar:
1. Möchte ich gerne, dass dieses Makro beim Start von z.B. Open Office Writer ausgeführt wird. Dies sollte, falls möglich, über ein Code angesteuert werden. Also quasi ein Autostart für das unten stehende Makro. Die Makrozuweisung über Extras --> Anpassen ist mir bekannt, aber dies entspricht dann nicht der gewünschten Lösung.
2. Soll mit Hilfe von diesem Button, welcher erzeugt wird, ein anderes Makro gestartet werden. Evtl hat da jemand die Idee zur Umsetzung.
Hab mich schon durch viele Foren durchgelesen, aber nie das passende, was mir weiterhelfen könnte, gefunden. Da ich auf diesem Gebiet recht wenig Ahnung habe, hoffe ich auf eine recht schnelle und vorallem informative Hilfe eurerseits.
MfG
[code]REM *** This example creates a new basic macro toolbar button on
REM *** the Writer standard bar. It doesn't add the button twice.
REM *** It uses the Writer image manager to set an external image
REM *** for the macro toolbar button.

Sub AddButtonToToolbar
Dim sToolbar$ : sToolbar = "private:resource/toolbar/standardbar"
Dim sCmdID$ : sCmdID = "macro:///Standard.Module1.Test()"
Dim sDocType$ : sDocType = "com.sun.star.text.TextDocument"
Dim sSupplier$
Dim oSupplier
Dim oModuleCfgMgr
Dim oImageMgr
Dim oToolbarSettings
Dim bHasButton As Boolean
Dim nCount As Integer
Dim oToolbarButton()
Dim nToolbarButtonCount As Integer
Dim i%, j%

REM Retrieve the module configuration manager from the
REM central module configuration manager supplier
sSupplier = "com.sun.star.ui.ModuleUIConfigurationManagerSupplier"
oSupplier = CreateUnoService(sSupplier)

REM Retrieve the module configuration manager with module identifier
REM *** See com.sun.star.frame.ModuleManager for more information
oModuleCfgMgr = oSupplier.getUIConfigurationManager( sDocType )
oImageMgr = oModuleCfgMgr.getImageManager()

oToolbarSettings = oModuleCfgMgr.getSettings( sToolbar, True )

REM Look for our button with the CommandURL property.
bHasButton = False
nCount = oToolbarSettings.getCount()
For i = 0 To nCount-1
oToolbarButton() = oToolbarSettings.getByIndex( i )
nToolbarButtonCount = ubound(oToolbarButton())
For j = 0 To nToolbarButtonCount
If oToolbarButton(j).Name = "CommandURL" Then
If oToolbarButton(j).Value = sCmdID Then
bHasButton = True
End If
End If
Next
Next

Dim oImageCmds(0)
Dim oImages(0)
Dim oImage
REM *** Check if image has already been added
If Not oImageMgr.hasImage( 0, sCmdID ) Then
REM Try to load the image from the file URL
oImage = GetImageFromURL( "file:///tmp/test.bmp" )
If Not isNull( oImage ) Then
REM *** Insert new image into the Writer image manager
oImageCmds(0) = sCmdID
oImages(0) = oImage
oImageMgr.insertImages( 0, oImageCmds(), oImages() )
End If
End If

If Not bHasButton Then
sString = "My Macro's"
oToolbarItem = CreateToolbarItem( sCmdID, "Standard.Module1.Test" )
oToolbarSettings.insertByIndex( nCount, oToolbarItem )
oModuleCfgMgr.replaceSettings( sToolbar, oToolbarSettings )
End If
End Sub

Function GetImageFromURL( URL as String ) as Variant
Dim oMediaProperties(0) As New com.sun.star.beans.PropertyValue
Dim sProvider$ : sProvider = "com.sun.star.graphic.GraphicProvider"
Dim oGraphicProvider

REM Create graphic provider instance to load images from files.
oGraphicProvider = createUnoService( sProvider )

REM Set URL property so graphic provider is able to load the image

REM oMediaProperties(0).Name = "URL"
oMediaProperties(0).Value = URL

REM Retrieve the com.sun.star.graphic.XGraphic instance
GetImageFromURL = oGraphicProvider.queryGraphic( oMediaProperties() )
End Function

Function CreateToolbarItem( Command$, Label$ ) as Variant
Dim aToolbarItem(3) as new com.sun.star.beans.PropertyValue
aToolbarItem(0).Name = "CommandURL"
aToolbarItem(0).Value = Command
aToolbarItem(1).Name = "Label"
aToolbarItem(1).Value = Label
aToolbarItem(2).Name = "Type"
aToolbarItem(2).Value = 0
aToolbarItem(3).Name = "Visible"
aToolbarItem(3).Value = true
CreateToolbarItem = aToolbarItem()
End Function[/code]