Bonsoir,
Je souhaite supprimer le texte des formes sélectionnées, les objets
"CustomShape" ne semblent pas posséder la propriété Text.
Mais, où est enregistré le texte associé à ces formes ?
--
Mon code :
Sub SupprimeTexte
Dim MaPage As Object
Dim LesFormes As Object, LaForme As Object
Dim CopiesFormes As Object
Dim i As Long
MaPage = thisComponent.CurrentController.CurrentPage
LesFormes = thisComponent.CurrentSelection
if(IsNull(LesFormes)) then
print "Cette macro ne peut fonctionner que si vous avez
sélectionné un/des objet/s."
else
for i=0 to LesFormes.Count -1
LaForme = LesFormes(i)
if LaForme.ShapeType = "com.sun.star.drawing.CustomShape" then
LaForme.Text.String = ""
else
xRay LaForme
end if
next
end if
End Sub
--
Merci pour votre aide...
--
Pierre
Utilisateur d'OpenOffice.org, Thunderbird, Firefox, Nvu,...
--
Vive la liberté !
Merci à tous les contributeurs des projets libres.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
