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 Whe=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

as a starter you could try this code in the sheet's code module, as long
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 with
the scroll bars:

Code:
--------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ChartObjects(1).Left = Cells(1, ThisWorkbook.Windows(1).ScrollColumn).Left + 20
End Sub

--------------------


--
p45cal

*p45cal*
------------------------------------------------------------------------
p45cal's Profile: 558
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=164092

Microsoft Office Help

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

Vaya con Dios,
Chuck




"p45cal" wrote in message
...

as a starter you could try this code in the sheet's code module, as long
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 with
the scroll bars:

Code:
--------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ChartObjects(1).Left = Cells(1,
ThisWorkbook.Windows(1).ScrollColumn).Left + 20
End Sub

--------------------


--
p45cal

*p45cal*
------------------------------------------------------------------------
p45cal's Profile: 558
View this thread:
http://www.thecodecage.com/forumz/sh...d.php?t=164092

Microsoft Office Help