 | Start a set with this search |
 | Include this search in one of my sets |
 | Exclude this search from one of my sets |
 | Permalink to these results Paste this link in email or IM: |
 | Atom feed for tracking future search results Paste this URL into your reader: |
9 messages in org.openoffice.fr.prog[prog] Nouvele version était Re: Tro...| From | Sent On | Attachments |
|---|---|---|
| Rémi B | Sep 4, 2008 2:08 pm | |
| Michel Grentzinger | Sep 6, 2008 2:13 am | |
| Laurent Godard | Sep 6, 2008 6:40 am | |
| Laurent Godard | Sep 6, 2008 6:43 am | |
| Rémi B | Sep 6, 2008 9:25 am | |
| Rémi B | Sep 6, 2008 9:58 am | |
| Michel Grentzinger | Sep 7, 2008 9:46 am | |
| Rémi B | Sep 7, 2008 2:59 pm | |
| JLP | Sep 25, 2008 11:07 pm |
| Permalink for this message Paste this link in email or IM: |
| Permalink for this thread Paste this link in email or IM: |
| Atom feed for this thread Paste this URL into your reader: |
| Subject: | [prog] Nouvele version était Re: TrombinOOo | Actions... |
|---|---|---|
| From: | Rémi B (rbou...@free.fr) | |
| Date: | Sep 7, 2008 2:59:28 pm | |
| List: | org.openoffice.fr.prog | |
Le Sun, 07 Sep 2008 18:47:10 +0200, Michel Grentzinger a écrit :
Le samedi 6 septembre 2008, Rémi B a écrit :
Je viens de m'apercevoir que j'ai oublié une instruction qui permettait le fonctionnement de cette macro sous Win, Mac et Linux. Pour l'instant, elle ne fonctionne que sous Linux.
Je suis sous Linux.
getPathSeparator permet de renvoyer un / ou un \ suivant le système d'exploitation.
Sinon, au rayon des amélioration possibles : une boucle permettant d'ignorer les lignes en trop dans le fichier des noms.
Avec 20 photos et 25 noms, ça ne fonctionne pas. Peut-être afficher un message à la fin indiquant jusqu'à quelle ligne le fichier a-t-il été lu...
Bonne idée. Il manque toute la partie de gestion des "exceptions" (?). Celle que tu mentionnes en fait partie. Peut-être "juste" comparer la longueur des deux listes ?
Est-il possible que tu commentes davantage les fonction, je pense surtout à celles définbissant le nombre de lignes/colonnes.
J'ai essayé de commenter davantage.
J'ai mis en ligne une nouvelle version avec : *une boite de dialogue permettant de fixer les réglages *tout le contenu du tableau inséré est aligné à gauche (merci l'enregistreur de macro) *...
Voir ici : http://rboulle.free.fr/educooo/trombinOOo_v1.2.4.odt
Il reste à faire en sorte que : *tout le contenu du tableau contenant les images soit centré (?) *la taille des images ne soit plus donnée en pixels mais en centièmes de mm avec Size100thMM Pour l'instant j'utilise le code suivant. l'idée serait d'arriver à donner des valeurs à LeBitMap.Size100thMM à la place.
Le but est de calculer la largeur effective des images (en préservant les proportions) de manière plus précise qu'en pixels de manière indépendante de la résolution de l'utilisateur (si j'ai bien compris le problème).
Merci. Rémi.
Sub resizeImageByWidth(uneImage As Object, largeur As Long) 'Auteur : B. Marcelly, programmation OOo 2, p 697 'Modifié le 02/09/08 : Nouvelle propriété : .Graphic Dim leBitMap As Object, Proportion As Double Dim Taille1 As New com.sun.star.awt.Size Dim Taille2 As New com.sun.star.awt.Size LeBitmap = uneImage.Graphic Taille1 = LeBitMap.Size ' taille en pixels ! Proportion = Taille1.Height / Taille1.Width Taille1.Width = largeur Taille1.Height = Taille1.Width * Proportion uneImage.Size = Taille1 End Sub