A voir également:
- Inserer une image en automatique sous OOo
- Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image de manchots sur une image de plage. retrouvez l'image originale de la plage. que cachent les manchots ? ✓ - Forum Windows
- Recherche par image - Guide
- Réponse automatique outlook - Guide
- Insérer liste déroulante excel - Guide
- Insérer signature word - Guide
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
22 févr. 2012 à 11:17
Bonjour,
Faites :
Insertion/image/à partir d'un fichier/Mes documents\Mes images\A.JPG)
Faites :
Insertion/image/à partir d'un fichier/Mes documents\Mes images\A.JPG)
22 févr. 2012 à 11:41
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
22 févr. 2012 à 13:03
Connaissez vous cette adresse ?
22 févr. 2012 à 13:24