sakuraba | bonjour,
voila ce que j'ai fait
mais j'ai des problemes pour centrer les cadres auto et on voit pas trop les pourcentages des secteurs
voici mon code
Code :
- Sub CreaGraphiq5()
- Charts.Add
- ActiveChart.ChartType = xl3DPieExploded
- ActiveChart.SetSourceData Source:=Sheets("RECAPITULATIF" ).Range( _
- "A67:A77,AN67:AN77" ), PlotBy:=xlColumns
- ActiveChart.Location Where:=xlLocationAsObject, Name:="RECAPITULATIF"
- With ActiveChart
- .HasTitle = True
- .ChartTitle.Characters.Text = "Total des charges sociales"
- .ApplyDataLabels AutoText:=True, LegendKey:=True, _
- HasLeaderLines:=True, ShowSeriesName:=False, ShowCategoryName:=False, _
- ShowValue:=False, ShowPercentage:=True, ShowBubbleSize:=False
- End With
-
- ActiveChart.HasLegend = True
- ActiveChart.Legend.Select
- Selection.Position = xlBottom
- Selection.AutoScaleFont = True
- ActiveChart.Legend.Select
- Selection.Left = 250
- Selection.Top = 250
- Selection.Width = 400
- Selection.Height = 200
- End Sub
|
|