Copy ActiveChart properties to cell (from graphics)
Solved/Closed
Related:
- Copy ActiveChart properties to cell (from graphics)
- Accelerated graphics port - Guide
- Nvidia graphics driver auto detect - Guide
- Should i disable integrated graphics - Guide
- Properties of the motherboard - Guide
- Aorus graphics engine download - Download - Cleaning and optimization
2 responses
TrowaD
Posts
2921
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
December 27, 2022
555
Feb 2, 2017 at 11:37 AM
Feb 2, 2017 at 11:37 AM
Hi Mendokzeni,
When you put the below piece of code at the end of your code, then the Equation value will be put in H1 and the RSquared will be put in H2. Change those cell references to put the values in a place to your liking.
Here is the piece of code:
Best regards,
Trowa
When you put the below piece of code at the end of your code, then the Equation value will be put in H1 and the RSquared will be put in H2. Change those cell references to put the values in a place to your liking.
Here is the piece of code:
Dim myER As String Dim sNumb As Integer ActiveChart.FullSeriesCollection(1).Trendlines(1).Select myER = Selection.DataLabel.Text sNumb = InStr(myER, "") Range("H1").Value = Left(myER, sNumb - 1) Range("H2").Value = Right(myER, Len(myER) - sNumb)
Best regards,
Trowa