willin
08-14-2007, 10:26 AM
Hi there,
I hv some scroll bar in different shts(chart sheet), so I don't want the approach which active sheet then set the property.
but when I change below code (it's working well):
Sheets("Chart1").Select
ActiveChart.Shapes("Scroll Bar 1").Select
With Selection
.Max = 10
End With
Sheets("Chart1").Select
to:
Sheets("Chart1").ChartObject(1).Chart.Shapes("Scroll Bar 1").Max = 10
but it doesn't work.
How to revise it?
Your any suggestion or comments will be appreciated very much!
I hv some scroll bar in different shts(chart sheet), so I don't want the approach which active sheet then set the property.
but when I change below code (it's working well):
Sheets("Chart1").Select
ActiveChart.Shapes("Scroll Bar 1").Select
With Selection
.Max = 10
End With
Sheets("Chart1").Select
to:
Sheets("Chart1").ChartObject(1).Chart.Shapes("Scroll Bar 1").Max = 10
but it doesn't work.
How to revise it?
Your any suggestion or comments will be appreciated very much!