Vb.net - Add-in Express - Excel - Liste de la sélection de plusieurs graphiques

Bonjour,
Tout est dans le titre mais je détaille quand même mon problème.

Langage : VB.NET
Utilisation : Visual Studio 2013 - Add-in Express
Pour : Excel

L'objectif est de pouvoir redimensionner des graphiques sélectionnés sous Excel via un bouton du ruban que je développe.
Redimensionner UN graphique, pas de problème.
Redimensionner TOUS les graphiques, pas de problème également.
Redimensionner TOUS les graphiques SÉLECTIONNÉS, gros problème.

Je ne trouve pas le moyen de modifier les graphiques sélectionnés.
J'ai pensé à deux solutions différentes :
1 - Boucler sur tous les objets sélectionnés et vérifier s'il s'agit d'un graphique ou non
2 - Boucler sur tous les graphiques sélectionnés directement.

Voilà. Si vous pouviez m'aider sur ce problème. Je cherche juste la traduction en vb.net.

Merci d'avance.

Help !

Citation:

---

Envoyé par Gado2600

Help !

---

Ton Add-in Express est un programme commercial qu'il faut acheter (350 $) pour t'aider et tu ne montres pas ton code. Je n'ai pas les moyens de me payer cela et je ne suis pas altruiste à ce point. Si jamais, tu indiques une version démo gratuite sur un site honnête qui n'ajoute pas de téléchargements supplémentaires obligatoires (ou que tu paies la version commerciale) et que tu montres ton code; il y en a peut-être qui vont se laisser convaincre. Ce site est un site bénévole et "Nul n'est tenu à l'impossible".

Bonjour,
Il existe une version d'essai mais ce n'est pas là le problème.

Côté code :
Pour LE graphe sélectionné :

Code:

---

1 2 3

dim graphique as excel.chart = nothing graphique = excelapp.activechart ' En gros, le graphique actif graphique.chartarea.height = 2

---

Cela fonctionne

Pour TOUTES les shapes du fichier excel :

Code:

---

1 2 3 4 5 6 7 8 9

dim graphique as excel.shape = nothing dim xlworkbook as excel.workbook dim xlworksheet as excel.worksheet   xlworkbook = excelapp.activeworkbook xlworksheet = xlworkbook.activesheet for each graphique in xlworksheet.shapes graphique.height = 2 next graphique

---

Cela fonctionne aussi.

Le problème que j'ai, c'est que je voudrais un mixte des deux.
C'est-à-dire, modifier toutes les shapes que j'ai sélectionné et non, une seule ou toutes celles présentes.

Voilà.