gmane.comp.openoffice.devel.french

Nouvele version était Re: TrombinOOo

Rémi B — 2008-09-07T21:59:51

Le Sun, 07 Sep 2008 18:47:10 +0200, Michel Grentzinger a écrit : getPathSeparator permet de renvoyer un / ou un \ suivant le système d'exploitation. 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 ? 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és

Re: Re: TrombinOOo

Michel Grentzinger — 2008-09-07T16:47:10

Le samedi 6 septembre 2008, Rémi B a écrit : Je suis sous Linux. 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... Est-il possible que tu commentes davantage les fonction, je pense surtout à celles définbissant le nombre de lignes/colonnes. Je vais essayer de retrouver ma macro.

Re: TrombinOOo

Rémi B — 2008-09-06T17:00:00

Franchement, c'est avec plaisir et c'est bien le moins que je puisse faire pour "rendre" ce qu'OOo me permet de faire au quotidien :-) Merci beaucoup à la communauté ! :-)) Oui, je connais. Merci de rappeler l'existence de ce groupe :-) À bientôt. Rémi.

Re: TrombinOOo

Rémi B — 2008-09-06T16:27:01

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 met une version corrigée dès que possible ! :-) Cela m'intéresse et intéressera aussi educoo.org. Merci. Rémi.

Re: TrombinOOo

Laurent Godard — 2008-09-06T13:43:25

Bonjour Remi merci beaucoup pour ce partage !!!!!! je t'invite à contacter le groupe de travail educooo educ< at >fr.openoffice.org Il sera à meme de relayer tes realisations plus specifiquement en direction de la sphère enseignante Encore merci pour cette macro laurent

Re: TrombinOOo

Laurent Godard — 2008-09-06T13:41:02

Bonjour Michel au delà de l'aspect technique tout à fait interressant que je te remercie de partager ici, je te suggere de contacter le groupe de travail educooo educ< at >fr.openoffice.org Il sera à meme de relayer tes realisations plus specifiquement en direction de la sphère enseignante encore merci Laurent

Re: TrombinOOo

Michel Grentzinger — 2008-09-06T09:13:52

Le jeudi 4 septembre 2008, Rémi B a écrit : Je n'ai pas encore testé ta macro mais je pense que c'est exactement ce que je cherchais ! Je suis enseignant et je voulais générer automatiquement un trombinoscope à partir des photos des élèves. Je vais tester ça ces prochains jours ! Si ça peut t'interresser, j'ai déjà réalisé une toute petite macro qui permet de stocker dans une feuille calc les données issues de l'application web sconet (base de données des élèves). Ça peut être utile pour récupérer automatiquement les nom des élèves.

TrombinOOo

Rémi B — 2008-09-04T21:09:10

Bonjour, Je viens de terminer un ensemble de macros StarBasic pour Writer permettant de générer automatiquement un trombinoscope. Merci à ceux qui m'ont aidé et au livre "programmation OOo 2". Cette macro est davantage destinée à un contexte éducatif (classe en école, collège, lycée...). Cependant, des détournements d'usage peuvent peut être donner lieu à des applications relativement utiles. Vous la trouverez ici : http://rboulle.free.fr/educooo/trombinOOo_v1.2.odt Attention, rien de bien transcendant (c'est ma première "longue" macro en plus) mais par contre je suis preneur de toute remarque sur le code ou autre pour l'améliorer. Merci. Rémi.

Re: redimensionner image JPG par macro

Rémi B — 2008-09-04T20:46:26

Le Wed, 03 Sep 2008 12:12:55 +0200, Bernard Marcelly a écrit : Ok merci beaucoup ! Tout fonctionne. Juste permuter deux lignes... c'était tellement logique qu'il suffisait d'y penser :-s. Rémi.

Re: Re: Re: redimensionner image JPG par macro

Bernard Marcelly — 2008-09-03T10:12:55

Message de Rémi B date 2008-09-02 22:19 : Et non, ça n'est pas possible de lire ainsi les informations de l'image... Utilise Xray, tu verras un objet avec des propriétés vides ! Xray oImage Il faut d'abord insérer l'image dans un document, alors l'API remplit les propriétés de l'objet oImage. ______ Bernard

Re: redimensionner image JPG par macro

Didier Dorange-Pattoret — 2008-09-02T20:35:56

Bonsoir Rémy, Peut-être une aide ici : http://codesnippets.services.openoffice.org/Office/Office.ResizeExternalImage.snip Cordialement. Rémi B wrote:

Re: Re: redimensionner image JPG par macro

Rémi B — 2008-09-02T20:19:52

Merci beaucoup pour ta réponse ! C'est le genre de code auquel j'étais arrivé avant de poster en dernier recours :-s. Je ne comprends pas ce qu'il se passe et je crois ne plus comprendre ce que je croyais avoir compris :-s Voici ci-dessous un exemple qui ne marche pas : Sub Essai Dim oImage as Object oImage = ThisComponent.createInstance("com.sun.star.drawing.GraphicObjectShape") oImage.GraphicURL = ConvertToURL("/home/remi/Desktop/trombinOOo/tests/test.bmp") LireInfoImage(oImage) End sub Sub LireInfoImage(uneImage as object) Dim imageInfo As Object Dim Taille1 as new com.sun.star.awt.Size imageInfo = uneImage.Graphic Taille1 = imageInfo.Size100thMM ' la taille initiale en 1/100 de mm print Taille1.Width, Taille1.Height End Sub J'ai une erreur de "type de données incohérent" sur la ligne uneImage.Graphic C'est le com.sun.star.drawing.GraphicObjectShape qui ne va pas ? Merci. :-) Rémi.

Re: Re: redimensionner image JPG par macro

Bernard Marcelly — 2008-09-02T19:34:48

Message de Rémi B date 2008-09-02 19:44 : Dim imageInfo As Object, Taille1 As Object, Taille2 As Object imageInfo = uneImage.Graphic Taille1 = imageInfo.Size100thMM ' la taille initiale en 1/100 de mm print Taille1.Width, Taille1.Height Taille2 = imageInfo.SizePixel ' la taille en nombre de pixels print Taille2.Width, Taille2.Height Attention, Size100thMM et SizePixel sont en lecture seule. Pour modifier la taille, continuer à faire: uneImage.Size = Taille1 ' valeur modifiée, évidemment ! ______ Bernard

Re: redimensionner image JPG par macro

Rémi B — 2008-09-02T17:44:27

Oui, c'est presque mon livre de chevet en ce moment :-) Ok merci. Cependant, tous mes essais se révèlent infructueux. Comment utiliser cette propriété ? J'ai essayé LeBitmap = uneImage.Graphic (!) et d'autres choses encore que je n'ose pas avouer ici... Comment par exemple récupérer la taille de l'image ? Merci.

Re: redimensionner image JPG par macro

Bernard Marcelly — 2008-09-02T12:39:32

Bonjour, Réponses dans la demande... Message de Rémi B date 2008-09-01 23:22 : ( ... ) La routine resizeImageByWidth marche avec n'importe quel format de fichier bitmap (png, jpg, etc). Il suffit de lui transmettre ta variable oImage, comme l'explique le livre Programmation OpenOffice.org 2 page 565. Il faut lire tout ce qui est écrit à ce propos : Deprecated. Use graphic property instead! Il s'agit d'une propriété appelée Graphic, ajoutée avec la version 2. Un petit coup de Xray sur cette propriété t'indique qu'elle renvoie un objet contenant: .SizePixel .Size100thMM Tous deux sont des structures com.sun.star.awt.Size ______ Bernard

Re: un texte dans un "TextShape"

Bernard Marcelly — 2008-09-02T12:38:41

Message de Christophe Devalland date 2008-08-25 16:10 : Bonsoir, En fait tu es en mode édition dans un objet dessin. Je ne pense pas que l'API soit vraiment prévu pour utiliser le curseur visible dans cette situation. Ce n'est pas la même chose que le curseur visible dans un texte Writer. ______ Bernard

redimensionner image JPG par macro

Rémi B — 2008-09-01T21:22:34

Bonjour, Comment faire pour récupérer les dimensions d'une image au format *.jpg par macro basic ? Pour l'instant, j'arrive à obtenir quelque chose avec un code comme : oImage = ThisComponent.createInstance ("com.sun.star.drawing.GraphicObjectShape") oImage.GraphicURL = "/home/remi/test.jpg" print oImage.getsize().width sauf que la dernière instruction renvoie 100. Idem pour la hauteur alors que l'image n'est pas carrée... Une idée ? Avec un fichier BMP, le script suivant fonctionne : Sub resizeImageByWidth(uneImage As Object, largeur As Long) Dim leBitMap As Object, Proportion As Double Dim Taille1 As New com.sun.star.awt.Size LeBitmap = uneImage.GraphicObjectFillBitmap Taille1 = LeBitMap.Size ' taille en pixels ! Proportion = Taille1.Height / Taille1.Width Taille1.Width = largeur ' largeur en 1/100 de mm Taille1.Height = Taille1.Width * Proportion uneImage.Size = Taille1 End Sub d'après l'API, GraphicObjectFillBitmap est DEPRECATED : http://api.openoffice.or

base: activation de formulaire

Michel Gardie — 2008-08-29T09:35:19

Bonjour Voici mon problème (volontairement très simplifié) concernant la programmation de formulaires sous Base. Disons que je possède deux tables Table1 et Table2. Chaque table contient quelques champs. La table 1 contient un champ dénommé num1 et la table 2 contient un champ num2. Je crée tout d'abord un formulaire pour accéder à la table 1. J'ai utilisé pour cela l'assistant de formulaire. Pour faire vite. Je dispose ainsi d'un document dans lequel se trouve un formulaire associé à la table 1 ; les données sont présentées sous la forme de champs. Je dispose donc d'un champ formaté correspondant au champ num1. J'ai rajouté dans ce document un formulaire correspondant à la table 2. Les données sont cette fois présentées sous la forme d'une table. Je souhaite pouvoir cliquer sur une des lignes de cette table et extraire ainsi une valeur (celle de num2) qui sera injectée dans le champ num1. J'arrive bien à extraire une valeur de la table, mais je bloque sur l'insertion de

Re: Extension Zotero et OOO300

Jean-Baptiste Faure — 2008-08-28T20:19:22

Le jeudi 28 août 2008, Jean-Baptiste Faure a écrit : Bon, j'ai trouvé une correction de la macro ici : http://groups.google.com/group/zotero-dev/browse_thread/thread/b136f0182192233e/6194ed926d1906f1 Avec ce bout de code ça marche. JBF

Extension Zotero et OOO300

Jean-Baptiste Faure — 2008-08-28T20:04:31

Bonsoir, est-ce que quelqu'un a réussi à utiliser l'extension zotero pour OOo (http://www.zotero.org/) sur une version de développement ? Chez moi la fonction "Insert Citation" plante avec une erreur de basic dans OOO300_m3 alors qu'elle fonctionne dans OOo 2.4.1 Bonne soirée JBF

Re: Trier les données dans un Array via Dir

Rémi B — 2008-08-27T16:56:52

Pour info, je viens d'avoir une réponse ici : http://www.oooforum.org/forum/viewtopic.phtml?t=74579 ou sinon, via le fichier TriShell : http://fr.openoffice.org/Documentation/Macros/Tri_Shell.sxw < at >+ Rémi.