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

• #12940 Gabriel_86 csendes tag Fire/SOUL/CD #12935

  Új Válasz 2012-02-20 11:12:35 #12940

  Ú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

  

  Gabriel_86

  csendes tag

  válasz Fire/SOUL/CD #12935 üzenetére

  Ez a programkód és ide fel is raktam: [link]
  A probléma még mindig az, hogy a makró direktbe beírja a rögzítéskori trendvonal képletét és mindig ugyanazt illeszti be, függetlenül attól, hogy a grafikon adatai változnak és így a trendvonal képlete is.
  Lekerekítetttéglalap_Kattintás Makró
  '
  Range("C1").Select
  ActiveCell.FormulaR1C1 = ""
  Range("C2").Select
  ActiveSheet.ChartObjects("Diagram 1").Activate
  ActiveChart.SeriesCollection(1).Trendlines(1).Select
  ActiveChart.SetElement (msoElementTrendlineNone)
  ActiveChart.SeriesCollection(1).Trendlines.Add
  ActiveSheet.ChartObjects("Diagram 1").Activate
  ActiveChart.SeriesCollection(1).Trendlines(1).Select
  With Selection
  .Type = xlPolynomial
  .Order = 2
  End With
  Selection.DisplayEquation = True
  ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Select
  Range("C1").Select
  ActiveCell.FormulaR1C1 = "y = 0,0421x2 - 3,4177x + 203,38"
  Range("C2").Select
  End Sub

  Vmi megoldás?

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