VBA Excel Chart

[William Heath]

I have a chaert that is automatically produced by selecting a cell. It has worked for a year but now has failed

 

[William Heath]

I used the folowing code:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'simple example of
' dynamically positioning chart and
' assigning values to a single series chart
'you must have a defined range of series names
' and a defined range for the columns containing the Values
'NOTE: Use the Watch Window or Object Browser to discover Object Properties

Dim iColCount As Integer

With Target.Parent.ChartObjects(1) 'the Target's Parent is the Worksheet
If Not Intersect(Target, [seriesnames]) Is Nothing Then 'only selection in the range
If Target.Count = 1 Then 'only if ONE cell selected
.Visible = True

With .Chart.ChartArea 'position chart
.Top = Target.Top + 30
.Left = Target.Left + Target.Width
End With

With .Chart.SeriesCollection(1) 'assign SeriesCol properties
iColCount = Target.Parent.UsedRange.Columns.Count
.Values = Intersect(Target.EntireRow, Range(Cells(1, 2), Cells(1, iColCount)).EntireColumn)
.Name = Target.Value
End With
End If
Else 'chart not visible
.Visible = False
End If
End With
End Sub

 

[IRstuff]

Can you post the worksheet?
Have you tried the debugging in VBA?

TTFN (ta ta for now)
I can do absolutely anything. I'm an expert!

https://www.youtube.com/watch?v=BKorP55Aqvg

faq731-376 forum1529 Entire Forum list

http://www.eng-tips.com/forumlist.cfm

 

[SkipVought]

Originally posted on Tek-Tips and answered.

https://www.tek-tips.com/viewthread.cfm?qid=1812565

Skip,
[sub]
Just traded in my OLD subtlety...
for a NUance![/sub]

 

[SkipVought]

Somehow, your procedure that I sent you went from 44 lines to 31?

And you failed to upload your workbook, both here and at Tek-Tips.

Skip,
[sub]
Just traded in my OLD subtlety...
for a NUance![/sub]

 

[SkipVought]

bill,

I used my copy of your workbook from 27 Dec 21 19:15.

But if I paste in your code, I get a strange data shift.

Your code modification does not look at min and max values: mine does.

My code, which works perfectly on this workbook, changes the chart y-axis min & max to display the discrete y-values.

So why not tell us what you changed and why.

Skip,
[sub]
Just traded in my OLD subtlety...
for a NUance![/sub]

 

[SkipVought]

Hey, Bill, did you get this sorted out?

Skip,
[sub]
Just traded in my OLD subtlety...
for a NUance![/sub]