[Calc] Sélectionner une image ou un cadre texte

[Michel JANZEF]

Bonjour
Quelle commande doit-on utiliser pour sélectionner une image ou un cadre texte, ou un autre objet, se trouvant sur une feuille de calcul pour pouvoir ensuite la supprimer ?

[Brice.h]

je me pose ici pour connaitre la réponse, car déjà, je n'arrive pas à supprimer un graphique manuellement une fois que je l'ai inséré (bon, j'ai pas cherché vaiment loin aussi ,amis quand même, sous excel, il suffisait de sélectionner et de faire sup ^^)

[Pierre-Yves Samyn]

Bonjour

Pour supprimer "manuellement", il faut que le graphique soit sélectionné (poignées vertes) et non en mode édition (liseré gris et poignées noires). On se trouve par défaut en mode "édition" à la création du graphique. Pour repasser en mode "sélection", il suffit de cliquer en dehors du graphique.

Ci-joint un exemple "minimum" par macro

Nota :

- Tout d'abord une évidence : en matière de suppression prendre ses précautions (sauvegarde préalable... )
- Les diagrammes sont dans la collection DrawPage de... la page
- La macro ci-dessous travaille sur la feuille active ; pour chaque diagramme trouvé, elle affiche son nom interne (donné par OOo) ou son nom personnalisé (plus parlant pour l'utilisateur puisque c'est lui qui l'a donné).
- La boucle est en step "-1" puisqu'on supprime des éléments de la collection. J'ai fait quelques essais, cela semble fonctionner mais voir quand même le nota 1...

Code : Tout sélectionner

Option explicit

Sub Main
dim PysNbCharts as integer, i as integer, PysEnCours as object
PysNbCharts=thiscomponent.currentController.ActiveSheet.DrawPage.count

for i= PysNbCharts-1 to 0 step -1
	PysEnCours=thiscomponent.currentController.ActiveSheet.DrawPage(i)
	if msgbox(iif(PysEnCours.name="", PysEnCours.PersistName, PysEnCours.Name), 36, "Supprimer le diagramme") = 6 then
		PysEnCours.dispose		
	end if 
next i

End Sub