Juste pour dire merci � Agn�s pour son aide dans mes premiers pas en macro sous OOo. La macro n'est pas tr�s propre (j'essayerai de la "nettoyer" un peu plus tard) mais elle tourne et je peux ainsi r�cup�rer les animations d'une pr�sentation ppt ou sxi et transformer l'ensemble en pages html.
Je m'inscris sur la liste prog "en amateur" Jean Pansu METEO-FRANCE DIRSE/ETO/PREVI tel: 04.42.95.90.42 fax: 04.42.95.90.39 ------------------------------------------ Ceci n'est pas un message officiel ----- Original Message ----- From: "Agn�s Simonet" <[EMAIL PROTECTED]> To: <[email protected]> Sent: Friday, January 21, 2005 12:19 PM Subject: Re: [users-fr] Impress ou Draw: comment diff�rentier des images des autres formes > Bonjour, > > Jean Pansu a �crit : > > Bonjour, > > > > Pour l'intramet de mon boulot, je dois transf�rer de nombreuses > > pr�sentations ppt ou Impress en pages html. > > > La seule chose qui me manque, c'est de distinguer les images des autres > > formes (c'est le texte le plus p�nalisant). > > Mon test actuel est ci-dessous, il n'est pas terrible: > > > > ' SELECTION DES OBJETS (FORMES) ET EXPORT DANS LE DOSSIER DIAPOn avec > > n = rang de la diapo > > For j = 0 to UnePage.Count-1 MonImage = UnePage(j) > > monCurseur = MonImage.Text.createTextCursor > > ' Pour exportation des images uniquement si possibles (on enl�ve > > les formes avec texte) > > If monCurseur.String = "" then > > > peut-�tre : > If IsMissing("com.sun.star.drawing.GraphicObjectShape") then > 'ce n'est pas une image > ou > If MonObjet.supportsService("com.sun.star.drawing.GraphicObjectShape") then > 'c'est une image > > Pour les questions relatives aux macros tu peux t'inscrire sur la liste > [EMAIL PROTECTED] > > Agn�s S. > > > --------------------------------------------------------------------- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
