[Résolu][Calc]Suppression d'une image dans une zone de texte

[Xavllo]

Pour la bonne tenue de ce forum, veillez à respecter la syntaxe des balises (première lettre en majuscule puis le reste en minuscules, le tout entre crochets). [Calc] et non [CALC]. Veuillez corriger SVP.

Bonjour à tous,

J'ai un fichier tableur avec 2 boutons et une zone de texte OLE.
Un bouton permet de sélectionner un document texte. Le document sélectionné est ensuite chargé dans une zone de texte OLE. Dans l'exemple fourni, je n'effectue aucun contrôle sur le type de document.
Le deuxième bouton est censé "vider" la zone de texte. Je crée donc un curseur pour supprimer le texte puis je cherche à supprimer l'image.

Mon problème : l'image n'existe pas dans DrawPage mais dans GraphicObjects. La méthode remove n'existe que dans DrawPage...

Du coup, si je sélectionne un nouveau document, l'image reste.

Je vous joins 2 fichiers : le fichier tableur et un document texte à insérer.

Remarque : dans le fichier texte, l'image est présente dans DrawPage et GraphicObjects. On peut donc la supprimer directement dans le fichier...

Remarque 2 : j'ai essayé d'avoir des informations avec xRay sur l'image via GraphicObjects.GetByIndex(0). Dans le traitement de texte, ça passe. A partir du tableur, ça plante et tout se ferme. Par contre, GraphicObjects.GetByIndex(0).name me renvoie bien le nom...

Si vous avez une idée de la marche à suivre, je suis preneur.

Bonne journée à tous

Xavier

[Dude]

Salut,

Déjà, corrige ton titre comme le demande la modération afin de continuer à obtenir des réponses.

J'ai un fichier tableur avec 2 boutons et une zone de texte OLE.

Ce n'est pas une zone de texte mais un document Writer.
Pourrait-on savoir comment a été inséré l'objet OLE car au chargement du classeur, il n'apparaît pas dans le navigateur.

[Piaf]

Bonjour
Dans AOO, l'image est présente dans DrawPage à partir du classeur.
Après avoir corrigé la Balise : [Calc] à la place de [CALC], et Objet OLE à la place de zone de texte.
Pour LibO, peux-tu tester ?

Code : Tout sélectionner

Sub VidageZoneTexte
	classeur = thiscomponent
	feuille = Classeur.Sheets.getbyname("Feuille1")
	'Nom="Exploitation"
	objetOLE = feuille.drawpage.getbyindex(RechercheIndex("Article")).model	
	thisComponent.CurrentController.select(feuille.drawpage.getbyindex(RechercheIndex("Article")))
	test = thisComponent.currentcontroller.selection(0)
	test.getByIndex(0).EmbeddedObject.changeState(3)
	objetOLE.DrawPage.remove(objetOLE.DrawPage.getByIndex(0))
	test.getByIndex(0).EmbeddedObject.changeState(1)
	TexteOLE = objetOLE.text
	'Suppression de tout le texte
	oCurseur = TexteOLE.CreateTextCursor
	oCurseur.GoToStart(False)
	oCurseur.GoToEnd(True)
	oCurseur.String = ""	
end sub

A+

[Xavllo]

Salut,
Et bien merci, c'est parfaitement fonctionnel.
Maintenant, je voudrais essayer de comprendre un petit peu :
- tu sélectionnes l'objet OLE avec thisComponent.CurrentController.select(feuille.drawpage.getbyindex(RechercheIndex("Article")))
- test correspond à l'index 0 de la sélection : c'est donc l'objet lui-même mais sélectionner de façon "visible", c'est ça ?
- et après ???

Par contre, ça plante, lorsqu'il n'y a pas d'images. Je vais regarder du côté du nombre d'objets pour tester l'existence et si plusieurs faire une boucle.

Merci.

Je mets en résolu mais j'espère avoir quelques explications complémentaires.

Xavier

PS : il y a une erreur dans la fonction rechercheindex : c'est feuille.drawpage.getbyindex(i).name et non feuille.drawpage.getbyindex(0).name

[Piaf]

Bonsoir

- test correspond à l'index 0 de la sélection : c'est donc l'objet lui-même mais sélectionner de façon "visible", c'est ça ?

Pas tout à fait.
Comme LibO ne veut pas reconnaître l'image directement dans l'objet OLE, on édite l'objet, ce qui correspond dans l'interface à un double clic sur l'objet.
Pour la suppression de l'image, on ne travaille plus directement sur l'objet incorporé mais sur son édition.

Par contre, ça plante, lorsqu'il n'y a pas d'images

Normal il n'y a pas de test en ajoutant le test ça devrait le faire

Code : Tout sélectionner

test.getByIndex(0).EmbeddedObject.changeState(3)
If objetOLE.DrawPage.Count > 0 Then
	objetOLE.DrawPage.remove(objetOLE.DrawPage.getByIndex(0))
end if
test.getByIndex(0).EmbeddedObject.changeState(1)

A+