Inserer une image en automatique sous OOo

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

Ouh là ! Alors je ne sais, désolé...
Connaissez vous cette adresse ?

oui oui j'ai posté plusieurs sujets mais sans retour :o merci ;)