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

• #21787 Delila_1 veterán bagira82 #21784

  Új Válasz 2014-05-26 16:30:28 #21787

  Ú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 #21784 üzenetére

  Sub diagram()
  ertekek = Array(103, 405, 349, 532)
  tengely = Array("Anna", "Teri", "Emil", "Ida")
  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

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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