J'insère une image (png) dans un document Write en utilisant la macro suivante (qui fonctionne)
Code : Tout sélectionner
Dim document as object, dispatcher as object
oDoc = thisComponent
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(3) as new com.sun.star.beans.PropertyValue
args1(0).Name = "FileName"
args1(0).Value = "file:///D:/Mes documents/photos/Pierre.png"
args1(1).Name = "FilterName"
args1(1).Value = "<Tous les formats>"
args1(2).Name = "AsLink"
args1(2).Value = false
args1(3).Name = "Style"
args1(3).Value = ""
dispatcher.executeDispatch(document, ".uno:InsertGraphic", "", 0, args1())
Je voudrais aussi définir une légende à cette image (le nom du fichier).
Comment faire? Peut-on utiliser le dispatcher? Le définir dans args1(3)?