[VBA EXCEL 03] Probleme de mise en forme auto du graph

Probleme de mise en forme auto du graph [VBA EXCEL 03] - VB/VBA/VBS - Programmation

Marsh Posté le 19-12-2005 à 09:06:22    

bonjour,
 
voila ce que j'ai fait  
http://img465.imageshack.us/img465/4893/untitled2copy1vu.th.jpg
 
mais j'ai des problemes pour centrer les cadres auto et on voit pas trop les pourcentages des secteurs
 
voici mon code  
 

Code :
  1. Sub CreaGraphiq5()
  2.     Charts.Add
  3.     ActiveChart.ChartType = xl3DPieExploded
  4.     ActiveChart.SetSourceData Source:=Sheets("RECAPITULATIF" ).Range( _
  5.         "A67:A77,AN67:AN77" ), PlotBy:=xlColumns
  6.     ActiveChart.Location Where:=xlLocationAsObject, Name:="RECAPITULATIF"
  7.     With ActiveChart
  8.         .HasTitle = True
  9.         .ChartTitle.Characters.Text = "Total des charges sociales"
  10.         .ApplyDataLabels AutoText:=True, LegendKey:=True, _
  11.         HasLeaderLines:=True, ShowSeriesName:=False, ShowCategoryName:=False, _
  12.         ShowValue:=False, ShowPercentage:=True, ShowBubbleSize:=False
  13.     End With
  14.    
  15.     ActiveChart.HasLegend = True
  16.     ActiveChart.Legend.Select
  17.     Selection.Position = xlBottom
  18.   Selection.AutoScaleFont = True
  19.       ActiveChart.Legend.Select
  20.     Selection.Left = 250
  21.     Selection.Top = 250
  22.     Selection.Width = 400
  23.     Selection.Height = 200
  24. End Sub

Reply

Marsh Posté le 19-12-2005 à 09:06:22   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed