EXPORT A POINT VALUE FROM CHART BY One - CLICK in EXCEL- MACRO

[lambaonguyen]

I am a new learner in excel macros. I am trying to export the value (x, y) of 1 point in 1 series by point one-clicking.
Ex. I have a chart X-Y with 3 points A (1, 2); B (3,4); C(5,6)..... when I click on point "A" on this chart, the X value and y Value will be defined in A1 and B1 cells
. Next, when I click a single point "B" or "C" on this chart, the X value and y Value will be updated in A1 and B1 cells. Many thanks for your help!

[Andy Pope]

You are jumping in at the deep end if you are wanting to code against the charts events


If you use a chart sheet then you can write code within the chart events of the chart sheet.
Not that you will need to click the first data point twice in order to identify individual data points.

If you use a chartobject then you will need to create a class to expose those same chart events.

standard code module

Please Login or Register  to view this content.

class module, CChtEvnt

Please Login or Register  to view this content.

There is a button on the worksheet that runs the code to initiate the class to listen for chart events.

[lambaonguyen]

Thanks for your help. I am so appreciated.
I will try to match it to my file as a chart object. Hope you could accept for my comeback if I fail
Many thanks again! Andy.

[lambaonguyen]

Please help me to re-fix this macro. when i moved chart to new sheet and the macro didn't work. Many thanks.

[Andy Pope]

You will have to post your workbook, as per instructions at top of page, as you have provided no additional information in order for us to help you

[lambaonguyen]

I have tried many time to attach my file but supposedly the internet security in my country could not accept it even the hyperlink.

Many thanks with appreciation.

[Andy Pope]

You have not provided a link.

Make sure you are following the instructions in the yellow banner, and not trying to use the 'paper clip' to attach example

Members are reluctant to click on non forum down loads.

[lambaonguyen]

Thank Andy,
Due to moving the chart to the new sheet, the macro did not understand this line (With ThisWorkbook.Worksheets("Sheet1")").
So after trying many ways in desperation, I randomly change to (With active chart) and it's work. Thanks again, Andy.
Btw, my account is not a VIP one so I have to pay money to post links and pictures, supposedly.

[Andy Pope]

Glad you sorted it. Did you try changing the name of Sheet1 to whatever then sheet tab is called in your workbook?


No, you can attach files.
Links require a number of posts before you can use them.

[lambaonguyen]

yes! I change sheet1 to "Learn". and the error appears.
I search google in 3 hours and I know that I have to change lines
Set gChtEvt.OutputToCell_X = Sheets("Learn")..Range("A1")
Set gChtEvt.OutputToCell_Y = Sheets("Learn")..Range("B1")
Set gChtEvt.OutputToCell_Name = Sheets("Learn")..Range("C1")
yeah. And it works again :D. Thanks a lot Andy. So Cooooool :D