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