Bonjour,
J'ai réalisé un tableau croisé dynamique à partir et d'une feuille de données et ensuite j'ai créé le graphique associé.
Je voudrai maintenant pouvoir sélectionner toutes les pages une à une et sélectionner toutes les colonnes une à une afin d'exporter en image le graphique généré.
Avez vous déjà fait cela et surtout est-ce possible ?
Je vous mets mon code en-dessous :
Merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23 my ($fileIN) = @_; my $Book = $Excel->Workbooks->Open($fileIN); my $Range = $Excel->ActiveSheet->Range("\$A:\$F"); my $Table = $Excel->ActiveSheet->PivotTableWizard(1, $Range, "", "MyPivotTable"); $Table->PivotFields("Valeur")->{Orientation}=4; # 3 : xlDataField; $Table->PivotFields("Nombre de Valeur")->{Function}=0; $Table->PivotFields("Pays")->{Orientation}=3; # 3 : xlPageField; $Table->PivotFields("Type")->{Orientation}=2; # 2 : xlColumnField; $Table->PivotFields("Date")->{Orientation}=1; # 1 : xlRowField; my $chart = $Excel->Charts->Add; $chart->{ChartType} = xlLineMarkers; my $Axis = $chart->Axes(xlValue); $Axis->{MinimumScale} = 0; $Axis->{MaximumScale} = 100; $Axis->{MinorUnit} = 10; $Axis->{MajorUnit} = 20; $Axis->{Crosses} = xlCustom; $Axis->{CrossesAt} = 0;
Partager