[VBA-EXCEL ][DONE]Mise en forme d'un graphique à taille variable

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA-EXCEL ][DONE]Mise en forme d'un graphique à taille variable

sakuraba

bonjour,

j'ai un petit souci je voudrais faire auto dimensionner mon tableau

voici mon code

Code :

Sub CreaGraphiq()
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SeriesCollection(1).Delete
Dim i
For i = 3 To Worksheets.Count + 1
With ActiveChart.SeriesCollection.NewSeries
.Name = Sheets(i).Name
.Values = "='" & Sheets(i).Name & "'!R30C6"
End With
Next i
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Récapitulatif des chantiers ( Totaux généraux HT )"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
.HasLegend = True
.Legend.Select
Selection.Position = xlTop
Selection.Left = 57
Selection.Width = 469
Selection.Width = 514
Selection.Height = 82
End With
ActiveChart.SeriesCollection(1).Delete
ActiveChart.Export Filename:="Graphique.png", FilterName:="png"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Total"
End Sub

et je voudrais plus ça

Message édité par sakuraba le 15-11-2005 à 16:35:24

Publicité

sakuraba

le probleme est reglé en faisant ça

Code :

Sub CreaGraphiq()
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SeriesCollection(1).Delete
Dim i
For i = 3 To Worksheets.Count + 1
With ActiveChart.SeriesCollection.NewSeries
.Name = Sheets(i).Name
.Values = "='" & Sheets(i).Name & "'!R30C6"
End With
Next i
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Récapitulatif des chantiers ( Totaux généraux HT )"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
.HasLegend = True
.Legend.Select
Selection.Position = xlTop
End With
ActiveChart.SeriesCollection(1).Delete
ActiveChart.Export Filename:="Graphique.png", FilterName:="png"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Total"
End Sub

sakuraba

par contre j'ai toujours ce chiffre 1 qui se balade pres de la colonne rose :?

Sujets relatifs
Problème de variable static	[VBA Excel] Concaténation pour retrouver un contrôle
Pb de free d'une variable en C sous Windows 2003 TS	dossier mise a jour
VBA Access - Repositionner le curseur sur l'enregistrement en modif	[VBA-EXCEL 2003] Dupliquer une feuille complete [DONE]
taille de fenêtre	comment tester si une variable est un entier numérique ???
urgent : Pb de macro VBA
Plus de sujets relatifs à : [VBA-EXCEL ][DONE]Mise en forme d'un graphique à taille variable

Page générée en 0.066 secondes