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 --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
