Inserer une image en automatique sous OOo

Fermé
Guillaume - Modifié par Guillaume le 22/02/2012 à 11:12
 Guillaume - 22 févr. 2012 à 13:24
Bonjour,

je cherche à insérer en automatique sous Open office une image en fonction d'un chemin que j'ai concaténé (C:\Documents and Settings\Dupin\Mes documents\Mes images\A.JPG)

Merci de votre aide

1 réponse

^Abel^ Messages postés 15278 Date d'inscription jeudi 14 juillet 2011 Statut Contributeur Dernière intervention 14 février 2023 6 908
22 févr. 2012 à 11:17
Bonjour,
Faites :
Insertion/image/à partir d'un fichier/Mes documents\Mes images\A.JPG)
0
oui je comprends bien je dois réaliser une macro car la l'image est sélectionnée par l'utilisateur via une combox

J'ai une macro qui fonctionne mais juste pour la photo A...

code :

sub Main
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$B$30"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())
dim args3(2) as new com.sun.star.beans.PropertyValue
args3(0).Name = "FileName"
args3(0).Value = "file:///C:/Documents%20and%20Settings/Dupin/Mes%20documents/Mes%20images/A.JPG"
args3(1).Name = "FilterName"
args3(1).Value = "JPEG - Joint Photographic Experts Group"
args3(2).Name = "AsLink"
args3(2).Value = false
dispatcher.executeDispatch(document, ".uno:InsertGraphic", "", 0, args3())
end sub

faut qu'en faite avec une macro quand je la lance cela insert l'image en fonction du lien présent dans la cellule A69
0
^Abel^ Messages postés 15278 Date d'inscription jeudi 14 juillet 2011 Statut Contributeur Dernière intervention 14 février 2023 6 908
22 févr. 2012 à 13:03
Ouh là ! Alors je ne sais, désolé...
Connaissez vous cette adresse ?
0
oui oui j'ai posté plusieurs sujets mais sans retour :o merci ;)
0