[Issue] Insérer plusieurs images en une fois

[fuerchan]

Issue visée : 17860 - Permettre la sélection multiple d'images

Bonjour,

Donc, je cherche le moyen d'insérer plusieurs images en une fois. Vous allez me dire que le sujet à déjà été traité... Vrai. Mais aucun ne correspond à ce que je cherche. J'en ai pet être loupé un, possible...
Je cherche par exemple à insérer en une fois x images de même format depuis un dossier et les unes en dessous des autres, autrement dit une image par page et non les unes sur les autres sur une page. Et pas de galerie non plus.

Merci
F.

[alhazred]

Bonjour,

Et tu espères réaliser ça sans macro ? Insérer une image - aller à la page suivante (ou la créer ?) - insérer une autre image (laquelle ? l'ordre n'a pas d'importance ?) - recommencer jusqu'à la dernière image du dossier.

Et encore un sujet où Writer devient un album de photos

et non les unes sur les autres sur une page

Si tu insères des sauts de page dans ton texte (c'est quand même ça que Writer gère en priorité) tu auras bien une image par page.

[fuerchan]

Bonjour,

Heu, je n'espère rien du tout. Je ne sais pas alors je demande .
Maintenant s'il faut utiliser la macro, pourquoi pas, dites moi...
Le sujet n'est pas l'organisation ou l'insertion d'image une à une. Mais comment insérer plusieurs images en une seul fois et qu'elles s'affichent, dans le document, les unes en dessous des autres et non les unes sur les autres.
Toutes mes images font 20 x 28,7 mes pages sont stylées avec 5 mm de marge.

Merci
F.

PS et hors sujet : J'ai vraiment pas envie de disserté sur l'utilisation de Writer... D'autant que l'utilisation d'une chose ne se résume pas seulement à la sienne. C'est pas parce que je veux insérer plusieurs images que je veux faire une galerie... De plus, si je voulais une galerie j'utiliserai en premier lieu des logiciels fait pour ça...

[micmac]

Bonjour et bienvenue sur le forum,

OpenOffice 3.2.1 sous Vista

Votre signature indique que vous disposez d'une version obsolète de OpenOffice.org.
http://oooforum.free.fr/index.php/2013/ ... ice-3-3-0/
Est-ce un choix, une erreur, un oubli, une obligation ?
Dans ce dernier cas, mentionnez-le dans votre signature.

Pour connaître la version que vous possédez

La dernière version ici :
Tutoriels d'installation.

Votre signature doit comporter :
1- La version exacte de OOo,AOO ou LibO (OOo 3.2.1, AOO 4.0, LibO 3.3.2 par exemple) ;
2- La version exacte de l'OS (Windows XP SP3, Vista SP2, Ubuntu 10.04, MacIntel 10.7.5, par exemple).

Accès direct à votre signature pour la corriger

Cordialement.

[jeanmimi]

Bonjour,
Une Macro peut le faire.
Tu peux tester ce code et le modifier en fonction de tes besoins.

Code : Tout sélectionner

Sub CreationPlancheContact_Writer 
 
'Testé avec WinXP et OOo 2.0.3 
 
Dim sGraphicURL As String , Chemin As String , NextFile as String 
Dim oDrawPage As Object , oGraphic As Object 
Dim oFolderDialog as Object, oUcb as Object 
Dim choix As Integer
Dim Taille as new com.sun.star.awt.Size 
Dim Emplacement as new com.sun.star.awt.Point 
Dim oLeft As Double , oTop as Double
 
oCurseur = ThisComponent.getCurrentController().getViewCursor()
 
'--- Affiche la boîte de dialogue pour sélectionner le répertoire contenant les fichiers .jpg --- 
oFolderDialog = CreateUnoService("com.sun.star.ui.dialogs.FolderPicker") 
oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess") 
 
choix = oFolderDialog.Execute() 
If choix = 1 Then Chemin=ConvertFromUrl(oFolderDialog.getDirectory()) 
 
'Boucle sur toutes les images du répertoire cible
'Attention la procédure est sensible à la casse
'(jpg n'est pas identique à JPG) 
NextFile=Dir(Chemin & "\*.JPG",0) 
 
Do While Len(NextFile) >0 
 
  sGraphicURL =ConvertToURL(Chemin & "\" & NextFile) 
 
  oDrawPage =ThisComponent.getDrawpage() 
  oGraphic =ThisComponent.createInstance("com.sun.star.drawing.GraphicObjectShape") 
  oGraphic.GraphicURL =sGraphicURL 
  oDrawPage.add(oGraphic) 
 
  Taille.width = 3000 'Dimension horizontale image 
  Taille.height = 3000 'Dimension verticale image 
  oGraphic.setsize(Taille) 
  Emplacement.X = oLeft 
  Emplacement.Y = oTop 
  oGraphic.setposition(Emplacement) 
  oGraphic.AnchorType = com.sun.star.text.TextContentAnchorType.AS_CHARACTER
 
  NextFile=Dir() 
Loop 
End Sub

[fuerchan]

Bonjour,

jeanmini Merci de l'effort, mais là on rentre dans un domaine que je ne maitrise pas du tout . Ma maîtrise se limite à une utilisation "normale" de Open Office. Là on sort de ce cadre, c'est de la programmation ou tout comme à mon niveau

Il n'y a vraiment pas un moyen plus simple !?! J'ai essayé avec le glisser/déposer mais ça m'empile les images sur une même page ensuite ça devient ingérable. J'ai essayé avec les styles en appliquant un style à la première image pensant qu'ensuite à l'insertion des autres elles suivraient ce style... Avec les cadres aussi... Mais je ne trouve rien.

Merci quand même pour la macro
F.

[jeanmimi]

Comme ce n'est pas tout à fait clair pour moi, est-ce que tu souhaites avoir plusieurs images par page (ce que fait la Macro un peu plus haut) , ou bien une seule image par page et donc autant de pages que d'images ?

[fuerchan]

La deuxième solution : une image par page.

F.

[jeanmimi]

Comme tu as pu le voir dans le forum, une image par page, c'est possible dans un rapport ou dans un publipostage, ce qui impose que le chemin de l'image soit stocké dans une Base de données.
Il y a une autre possibilité : tu reprends ta demande dans la section Macro du forum, en y insérant un lien vers ce fil de messages, pour demander une modification du code de la Macro un peu plus haut de façon à ce qu'un saut de page soit inséré automatiquement en dessous de chaque image.

[fuerchan]

Bonjour,

Non ça ne va pas aller pour moi cette histoire de macro, je ne sais même quoi en faire du code ni même comment l'utiliser... Quadn à faire des modif pour l'adapter...

Je trouve étrange qu'on ne puisse pas faire un truc aussi "évident" dans Open Office writer. Même si son axe principal est le texte. On insère une image, on peut insérer 10 les unes à la suite des autres. C'est peut-être là que le "petit bout" de code devrait être (...). Word le fait très bien sans avoir recoure à du code macro .

Bon tanpis je n'ai pas le choix que de me les faire à la mano...

Sauf si une autre solution tombe entre temps... Sait-on jamais...

Merci
F.

[jeanmimi]

je ne sais même quoi en faire du code

C'est assez simple et c'est expliqué dans l'Aide :

Macro
Ouvre une boîte de dialogue pour gérer les macros.
Pour accéder à cette commande...
Choisissez Outils - Macros - Gérer les macros - LibreOffice Basic, ou appuyez sur Alt+F11 (si non assignée par votre système)
Enregistrement d'une macro
Nom de la macro
Affiche le nom de la macro sélectionnée. Pour créer ou modifier le nom d'une macro, saisissez un nom ici.
Macro de / Enregistrer la macro dans
Liste les bibliothèques et les modules dans lesquels vous pouvez ouvrir ou enregistrer les macros. Pour enregistrer une macro avec un document particulier, ouvrez le document, puis ouvrez cette boîte de dialogue.
Exécuter / Enregistrer
Exécute ou enregistre la macro active.
Assigner
Ouvre la boîte de dialogue Personnaliser dans laquelle vous pouvez assigner la macro sélectionnée à une commande de menu, une barre d'outils ou un événement.
Éditer
Démarre l'éditeur Basic LibreOffice et ouvre la macro sélectionnée ou la boîte de dialogue pour édition.
Nouveau / supprimer
Crée une nouvelle macro ou supprime la macro sélectionnée.
Pour créer une nouvelle macro, sélectionnez le module "Standard" dans la liste Macro de, puis cliquez sur Nouveau.

et aussi dans ce tutoriel en ligne : http://forum.openoffice.org/fr/forum/vi ... 16#p217916

Quand est-ce que tu rédiges une nouveau message dans la section Macros du Forum car à mon avis ce fil va être bientôt verrouillé ?

[Oukcha]

Bonjour,

Quand est-ce que tu rédiges une nouveau message dans la section Macros du Forum car à mon avis ce fil va être bientôt verrouillé ?

Si fuerchan retiens la solution à base de macros, et demande une adaptation du code, je rappelle qu’effectivement cette section n'est pas consacrée aux macros ; Si vous avez à poursuivre dans cette voie, merci de poster au bon endroit. Ceci dans un but de recherche efficace de l'information dans ce forum.

Si vous postez une solution, faites le en section "Macros et API" et ajoutez dans ce fil un lien vers celle-ci.

Cordialement

[fuerchan]

Bnjour,

Non je pense pas continuer avec de la macro. C'est trop indigeste pour moi et je n'ai pas le temps de me lancer là dedans juste pour insérer des images.
Comme je l'ai dis si il y a une autre solution plus lambda ou plus "normale" pour le faire je suis preneur, sinon ben tant pis, je continue à la mano... D'ailleurs c'est ce que j'ai fait entre temps, faute de temps.

Mais le sujet demeure toujours mais sans macro. Maintenant si il n'y a que la macro pour faire ça, dans ce cas dites le moi et je boucle le sujet. Et quand j'aurais un peu plus de temps je posterais dans la bonne section...

Encore merci.
F.

[alhazred]

Bonjour,

Comme déjà dit, une macro semble s'imposer pour faire le traitement complexe que tu désires.

Sinon, après insertion (une à une ou en groupe), tu peux leur appliquer successivement le style de cadre Formule ou un style dérivé (il est défini avec un ancrage Comme caractère*) ; ainsi, tes images apparaissent séparément.

Il ne te reste qu'à insérer des sauts de page ou autres, et éventuellement modifier leur ordre par des couper-coller.

* Et non Au caractère comme indiqué dans la fenêtre d'édition du style (volet Gérer). Je me demande d'ailleurs pourquoi il est impossible de modifier l'ancrage des styles (hors macro).
Et si ce n'est pas le cas (j'ai peut-être un peu bidouillé jadis) copie-colle le cadre du fichier joint dans ton texte, cela lui ajoutera le style Cadre-caractère

[fuerchan]

Bonjour,

Je n'ai pas tout cerné là. Il y est question de style, cadre... J'utilise très régulièrement ceci mais là je ne fais p)as le lien avec ce qui est écrit, désolé

Sinon, après insertion (une à une ou en groupe)

Le seul moyen que j'ai trouver pour insérer des images en " groupe " est de glisser/déposer mes images depuis le dossier, sur la page dans OpenOffice. Les images sont, dans ce cas, empilées sur la page. C'est ça en groupe ?

tu peux leur appliquer successivement le style de cadre Formule ou un style dérivé (il est défini avec un ancrage Comme caractère*) ; ainsi, tes images apparaissent séparément.

C'est quoi " le style de cadre formule " ? C'est mettre des images dans un cadre et appliquer un style au cadre ? Parce que ça j'ai déjà tenté de glisser/déposer mes images dans un cadre, appliquer un style au cadre. Puis j'ai tenté de dissocier mes images empilées avec des saut de pages mais ça n'a rien donné. Le saut s'est fait une page blanc et c'est tout.

Merci
F.

[Sharo Lley]

Bonjour,

Peut-être en utilisant Draw comme étape intermédiaire.

1 -

J'ai essayé avec le glisser/déposer mais ça m'empile les images

il se passera la même chose sous Draw.
2 - sélectionner l'ensemble de la pile et faire copier.
3 - coller dans Writer (cela créera un groupe)
4 - Clic-droit => groupe => dissocier (chaque image redevient indépendante mais l'ensemble reste sélectionné)
5 -Clic-droit => ancrage = comme caractère (qui comme le sous-entend alhazred en suggérant l’utilisation du style de cadre "formule", aura pour conséquence de mettre les images les unes sous les autres)

..ça marche mais je ne suis pas convaincu que ça ne plante pas si le nombre d'images est très important.
Travailler sur une copie dans un premier temps me semble judicieux !

[jeanmimi]

Ci-joint un document à tester avec la Macro jointe plus haut.

[alhazred]

Quelques explications sur mon précédent message (un peu plus tard, j'ai tout de même une vie en dehors du forum )

-- "en groupe" veut effectivement dire que tu fais glisser-déposer sur plusieurs images sélectionnées en même temps.

-- lorsque tu sélectionnes une image, tu peux directement lui donner un style de cadre (double clic sur le style voulu dans le volet correspondant du Styliste F11) ; le style par défaut est Images, et l'ancrage est Au paragraphe, ce qui provoque la superposition.

[fuerchan]

Bonjour,

Bon, je commence à y voir un peu plus clair.

1) Je fais un glisser/déposer de mes X images. Celles-ci s'empilent dans l'ordre de liste qu'elles ont dans le dossier. Ok.

2) Je fais un clique-droit sur l'image visible de la pile et Ancrage/Comme caractères. Celle-ci est automatiquement décalée sur une page.

3) Je refais la même chose sur l'image suivante de la pile, puis la suivante...

Ce n'est pas tout à fait ce que je recherchais mais bon ça gagne quand même du temps

J'ai tenté d'enregistrer une macro avec un raccourci au clavier pour éviter d'avoir à chaque fois à faire "Clique-droit/Ancrage/Comme caractères", mais ça ne fonctionne pas...

F.

[Sharo Lley]

Bonjour,

Tu n'as pas bien lu mon message précédent.
Si tu passes par Draw, tu pourras sélectionner toutes tes images en même temps, copier/coller dans writer, dégrouper et alors un seul clic droit suffira.

Procédure décrite plus haut.

++

[fuerchan]

Bonjour,

Désolé . Si si !! J'ai bien lu le message mais je dois reconnaitre que depuis que je tourne le sujet dans tous les sens en tests et tentatives... J'ai zappé de répondre. Alors, effectivement ça a fonctionné . Mais c'est ensuite que j'ai perdu pied.

- Les images se dégroupent en ordre inversée, c'est à dire de la dernier à la première.
- Elles ne semblent plus être des images. Leur taille en hauteur est figée à 25,83 cm. J'ai tenté de modifier cela par un clique-droit/Position et taille, mais ça n'a rien voulu savoir. La largeur est imposée à 19, et peut être modifiée mais je dois alors reprendre toutes les images une à une.

Aussi, j'ai ouvert le document "Créer une planche contact.odt" et cliqué sur "Choisir le répertoire des photos à importer". Mais ça n'ouvre que les répertoires sans jamais afficher une image. Et même en cliquant sur "Ok" rien ne s'importe.

Merci
F.

[jeanmimi]

Aussi, j'ai ouvert le document "Créer une planche contact.odt" et cliqué sur "Choisir le répertoire des photos à importer". Mais ça n'ouvre que les répertoires sans jamais afficher une image. Et même en cliquant sur "Ok" rien ne s'importe.

As-tu enregistré le fichier sur ton disque dur avant de l'utiliser ?
La Macro (et comme je l'ai écrit, nous ne sommes pas dans la bonne section du forum pour répondre aux questions sur les Macros) te permet de choisir le répertoire contenant les images. Le clic sur Ok importe toutes les images contenues dans le répertorie choisi dans une seule page, puis dans une deuxième si le nombre d'images est supérieur au remplissage de la première page.

[Piaf]

Bonsoir
A tester et si questions, les poser dans la bonne section : Macros et API avec la balise [Writer]
A+

[fuerchan]

Bonjour

Je remercie toutes les personnes qui ont bien voulu passer par là et laisser de leur temps pour m'aider. Je n'ai toujours pas trouvé de solution simple pour résoudre ce problème. Je continue à les insérer une à une...

Merci,
F.

[Dude]

7 mois plus tard, on se réveille ?

Demande d'amélioration 17860 - Permettre la sélection multiple d'images : 32 voix à ce jour.

Tu connais la musique ?
Vote et balisage [Issue]