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

• #36085 Fferi50 Topikgazda butch3r #36071

  Új Válasz 2017-09-05 10:16:22 #36085

  Ú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

  

  Fferi50

  Topikgazda

  válasz butch3r #36071 üzenetére

  Szia!

  Nekem úgy sikerült, hogy az adott series pontjain végigmenve írtam át az értékeket. Azaz minden sorozat minden pontján végig kell menni ciklussal, egy lépésben nem sikerült, legalábbis nekem nem.

  Dim sr As Series, pt As Point, labelrange As Range, xx As Integer
For Each sr In Charts(1).SeriesCollection
Set labelrange = Sheets("Sheet1").Range("A1:X1")
For xx = 1 To sr.Points.Count
sr.Points(xx).DatalLabel.Text = labelrange.Cells(xx).Value 'itt kapja meg a pont a cella értékét.
Next
Next
  Üdv.

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