Dans le cadre d'un petit projet, je souhaite créer une macro qui détecte une image dans mon doc Writer et qui l'enregistre directement dans un dossier sur mon ordinateur.
- J'ai testé avec l'enregistreur de macro mais il ne prend pas compte et me propose seulement le dispatch .Uno:saveGraphic.....
Je parviens bien a identifier l'image et à la récupérer avec GraphicObjects. mais après c'est le trou noir pour l'enregistrer sur l'ordi.
J'ai lu des posts anciens qui parlaient de copier-coller et de passer par Draw en mode invisible puis d'exporter en format jpg ou png.
J'ai également vu des pistes pour décompresser le le fichier et récupérer l'image dans le dossier "Pictures".
Quelqu'un aurait il une piste.
Ci dessous ma macro et un fichier exemple
Bien à vous
Code : Tout sélectionner
sub StoreAsImage
rem----------- Déf des variables
Dim doc As Object
Dim Photo as Object
Dim Photoname as Object
dim dispatcher as object
rem ----------Def du doc et récup des images
doc = ThisComponent
Photo = doc.GraphicObjects
rem ----------Boucle sur les objets images
for x = 0 to Photo.Count -1
Photoname = Photo(x)
Cellela = Photoname.name
MsgBox Cellela
If Cellela = "Image1" Then
rem ----------C'est là que je sèche
msgBox ("C'est là que tout se complique",48) Else
exit Sub
End If
next
end sub
