Graphique semi circulaire

Le
thierry
j'aurais besoin de savoir s'il est possible de faire un
graphique semi-circulaire avec Excel 2000?
et si oui, comment

merci de votre aide
@+
thierry
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Misange
Le #1282470
Bonjour,
Tu trouveras ça sur le site de Jon Peltier (adresse dans les liens
d'excelabo)

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


j'aurais besoin de savoir s'il est possible de faire un
graphique semi-circulaire avec Excel 2000?
et si oui, comment

merci de votre aide
@+
thierry


Thierry Mignot
Le #1282469
merci du tuyau
:)
thierry
"Misange" news:%
Bonjour,
Tu trouveras ça sur le site de Jon Peltier (adresse dans les liens
d'excelabo)

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


j'aurais besoin de savoir s'il est possible de faire un
graphique semi-circulaire avec Excel 2000?
et si oui, comment

merci de votre aide
@+
thierry




gee-dee-
Le #1282456
Bonsoir,
Un exemple ????

Sub Macro1()
Worksheets.Add
Set NewSheet = ActiveSheet
'---------- les données
[A1].FormulaR1C1 = "Lundi"
[A1].AutoFill Destination:=Range("A1:A7"), Type:=xlFillDefault
[B1].FormulaR1C1 = "=RAND()"
[B1].AutoFill Destination:=Range("B1:B6"), Type:=xlFillDefault
'----------
[B7].FormulaR1C1 = "=SUM(R[-6]C:R[-1]C)"
'---------- ci-dessus on pourra appliquer un coef 1/2 ou 1/3
Range("A1:B7").Select
'---------- le graphe
Charts.Add
ActiveChart.ChartType = xlPie
ActiveChart.SetSourceData Source:=NewSheet.Range("A1:B7")
ActiveChart.Location Where:=xlLocationAsObject, Name:=NewSheet.Name
ActiveChart.SeriesCollection(1).Select
'---------- la 1ere serie demarre à -90°
With ActiveChart.ChartGroups(1)
.VaryByCategories = True
.FirstSliceAngle = 270
End With
'---------- la 7eme serie est incolore !!!!!
ActiveChart.SeriesCollection(1).Points(7).Select
Selection.Interior.ColorIndex = xlNone
With Selection.Border
.Weight = xlThin
.LineStyle = xlNone
End With
Selection.Shadow = False
'----------
Set NewSheet = Nothing
End Sub

;-)))

"thierry" news:17c4501c41e5f$ccbd9740$
j'aurais besoin de savoir s'il est possible de faire un
graphique semi-circulaire avec Excel 2000?
et si oui, comment

merci de votre aide
@+
thierry


Publicité
Poster une réponse
Anonyme