Re: [users-fr] Impress ou Draw: comment =?ISO-8859-1?Q?diff=E9re?= =?ISO-8859-1?Q?ntier_des_images_des_autres_formes?=

Fri, 21 Jan 2005 03:19:48 -0800 

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]

Répondre à