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 imagePour 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]
