Hirdetés

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

  • 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?

    [ Szerkesztve ]

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

Hirdetés