Discussion :

[Gado2600]

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.

[Gado2600]

Help !

[clementmarcotte]

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".

[Gado2600]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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à.