StrLabelC = (strLabelB, "e", "^")ĪctiveChart.SeriesCollection(1).Trendlines(1).DataLabel.SelectĪpplication.Sheets("Equation Finder").Protect "" StrLabelC = (strLabelB, "y ", "")Īpplication.Range("Y_Axis_Calced").Formula = strLabelCĮlseIf (1).Trendlines(1).Type = xlExponential Then StrLabelD = (strLabelC, "y ", "")Īpplication.Range("Y_Axis_Calced").Formula = strLabelDĮlseIf (1).Trendlines(1).Type = xlPower Then Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _ĮlseIf (1).Trendlines(1).Type = xlPolynomial ThenĮlseIf (1).Trendlines(1).Type = xlLogarithmic Then StrLabelH = (strLabelG, "y ", "")Īpplication.Range("Y_Axis_Calced").Formula = strLabelH StrLabelA = (1).Trendlines(1).DataLabel.Text If (1).Trendlines(1).Type = xlLinear Then Application.Sheets("Equation Finder").Unprotect ""ĪctiveSheet.ChartObjects("Chart 4").Activate
0 Comments
Leave a Reply. |
Details
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |