Bonjour,
En cherchant à résoudre mon problème :
"Dupliquer une forme (sous Draw 2.0.1.)" (par macro !)
j'ai touvé la même solution dans le livre de "Programmation OOoBasic"
(p638) et sur des messages de cette liste : utiliser le presse-papier
et/ou l'enregistreur de macros.
Mais mon code ne semble pas fonctionner...
Sub CopieSelection
Dim Fenetre As Object, Dispatch As Object
Dim MaPage As Object
Dim LesFormes As Object, LaForme As Object
Dim CopiesFormes As Object
Dim i As Long
Fenetre = StarDesktop.CurrentFrame
Dispatch = createUnoService("com.sun.star.frame.DispatchHelper")
MaPage = thisComponent.CurrentController.CurrentPage
LesFormes = thisComponent.CurrentSelection
if(IsNull(LesFormes)) then
print "Cette macro ne peut fonctionner que si vous avez
sélectionné un/des objet/s."
else
Dispatch.executeDispatch(Fenetre, ".uno:Copy", "", 0, Array())
Dispatch.executeDispatch(Fenetre, ".uno:Past", "", 0, Array())
end if
End Sub
Y-a-t-il une autre solution que de passer par le presse-papier ?
Existe-t-il un moyen de créer une nouvelle variable Object et de lui
affecter toutes les caractéristiques d'un objet existant ?
5 messages in org.openoffice.fr.prog[prog] [Draw 2.0.1] Copier les objets...
