Bonjour,
J'ai fait (en début 2007 environ) une macro qui, entre autres, crée 2
"boutons-macros" et affecte 1 macro à chacun.
Je travaillais alors avec OOo version 2.03
Je viens de changer de version : OOo 2.2
Et cette macro ne marche plus, elle engendre un plantage d'OOo.
Il semble, à l'expérience, que ce soit le passage où s'opère
l'affectation de la macro qui est en cause, extrait ci-dessous (je ne
sais plus exactement où j'en avais trouvé le modèle mais cela
fonctionnait très bien) :
Sub Creeboutons()
Dim monDocument As Object, lesFeuilles As Object
dim document as object, dispatcher as object
Dim nom1 As String, nom2 As String, FeuilleFI2 as object, PosAdHoc as object
dim args1(0) as new com.sun.star.beans.PropertyValue
Dim PageGraphique as object, lesFormulaires As Object, unFormulaire As
Object
Dim TypeBouton as object, TypeBouton2 as object, button_model as object,
monForm as object
Dim aPos as new com.sun.star.awt.Point
Dim aSize as new com.sun.star.awt.Size
dim unEvent as new com.sun.star.script.ScriptEventDescriptor
monDocument = ThisComponent
'On error Goto Fin1
lesFeuilles = monDocument.Sheets
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
FeuilleFI2 = ThisComponent.sheets.getByName("F_I2")
' créer boutons
PageGraphique = FeuilleFI2.getDrawPage() ' récupérer la page de dessin
TypeBouton =
ThisComponent.createInstance("com.sun.star.drawing.ControlShape")
'Position du bouton en 1/1000 de pouce => 1 pouce = 2540
[...]
button_model =
ThisComponent.createInstance("com.sun.star.form.component.CommandButton")
button_model.Name = "PushButton"
button_model.Label = "Taux d'aide global"
'button_model.Tag = 16711935
button_model.backgroundcolor = rgb(255,0,255) 'couleur du bouton
button_model.FontHeight = 10 'taille police
button_model.FontName = "Arial" 'nom police
button_model.FontWeight = 150 'police en gras
'button_model.HelpText = "blabla"
TypeBouton.Control = button_model
PageGraphique.add(TypeBouton)
lesFormulaires = PageGraphique.Forms ' la collection
des formulaires
unFormulaire = lesFormulaires.getByName("WW-Standard") ' le type
de formulaire
unEvent.ListenerType = "XActionListener"
unEvent.EventMethod = "actionPerformed" 'sur clic
(lors du déclenchement)
unEvent.AddListenerParam = ""
unEvent.ScriptType = "StarBasic"
unEvent.ScriptCode = "ArmOOor701.FI2.subvequiv2" 'Biblio.Module.Macro
unFormulaire.registerScriptEvent(unFormulaire.Count - 1, unEvent)
Quelqu'un a-t-il une idée pourquoi cela plante désormais ?
Merci
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
