Új hozzászólás Aktív témák

• #21789 Delila_1 veterán bagira82 #21788

  Új Válasz 2014-05-26 16:51:57 #21789

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz bagira82 #21788 üzenetére

  Sub diagram()
  a = "Anna": b = "Józsi": c = "Emil": d = "Tamás"
  aa = 100: bb = 120: cc = 140: dd = 200
  
  tengely = Array(a, b, c, d)
  ertekek = Array(aa, bb, cc, dd)
  
  ActiveSheet.Shapes.AddChart.Select
  With ActiveChart
  .ChartType = xl3DPieExploded
  .SeriesCollection.NewSeries
  With .SeriesCollection(1)
  .Name = "='Munka5'!$B$1"
  .Values = ertekek
  .XValues = tengely
  .ApplyDataLabels
  End With
  End With
  End Sub

Új hozzászólás Aktív témák