Floating Chart?

[clr]

Hi All.......

I have created a chart by macro. It sets on the same sheet as my data from
which it is drawn. As I scroll the data, the charts move with the
scrolling. I would like it to "float" in the same spot on the screen and
have the data scroll by behind it. Is this a doable thing?

TIA
Vaya con Dios,
Chuck, CABGx3

Sub CholesterolChart()
ActiveSheet.ChartObjects.Delete
Range("Maximum").Value = Range("bx30").Value
Range("Minimum").Value = Range("bw30").Value
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData
Source:=Sheets("BloodTests").Range("B23:bv23"), PlotBy _
:=xlRows
ActiveChart.SeriesCollection(1).XValues = "=BloodTests!R26C2:R26C49"
ActiveChart.SeriesCollection(1).Values = _
"=BloodTests!Cholesterol"
ActiveChart.SeriesCollection(1).Name = "Cholesterol"
ActiveChart.Location Where:=xlLocationAsObject, Name:="BloodTests"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Cholesterol"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
ActiveChart.HasLegend = False
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Values = _
"=BloodTests!Maximum"
ActiveChart.SeriesCollection(2).Name = "=BloodTests!R22C1"
ActiveChart.SeriesCollection(3).Values = _
"=BloodTests!Minimum"
ActiveChart.SeriesCollection(3).Name = "=BloodTests!R23C1"
'ActiveWindow.Visible = False
End Sub

 

[p45cal]

as a starter you could try this code in the sheet's code module, as lon
as there is only one window open for this workbook, it should work
though it will need you to select a cell rather than just scroll wit
the scroll bars:

Code

 

[clr]

Pretty cool p45cal, that's the best thing I got going...........many thanks!

Vaya con Dios,
Chuck