Bonjour,
Je recherche un moyen d’exporter d’une ancienne galerie personnelle tous les images en une action.
J’ai bien repéré les format des galeries LibreOffice SDG et SDV pour éventuellement les transporter sur un autre poste de travail. Mais, il me les faudrait en fichier séparé.
LE seul moyen facile est de les insérer et de les enregistrer en sélection dans le format adéquat.
Si quelqu’un a une solution plus automatique comme une macro, je suis preneur.
Merci
Cordialement,
Bonjour,
C’est vrai si les fichiers images sont sortis de la galerie.
Dans mon cas, ils sont dans la galerie.
Si j’enregistre un fichier vierge, la manipulation proposée ne me permet pas de récupérer des images non insérées dans le fichier.
Le fichier picture sera vide.
Merci pour cette proposition mais c’est pas la situation que je vis.
oops. effectivement 
sur le principe :
Dir = "file:///tmp/" ' or anywhere
Dim args(1) as new com.sun.star.beans.PropertyValue
args(0).Name = "URL"
args(1).Name = "MimeType"
args(1).Value = "image/png"
gef = CreateUnoService("com.sun.star.drawing.GraphicExportFilter")
for each shape in ThisComponent.DrawPages(0)
if shape.name <> "" then
args(0).Value = dir & shape.name &".png"
gef.setSourceDocument(shape)
gef.filter(args)
end if
next shape
pour + de details, voir par exemple → Move or detach images from a Writer-file to external files, only leaving link information in text file?