Relative referencing in macro won't work

[topraka]

Hello:

I have been recording a macro to automate the creation of some charts.
Pressing the "Relative Referencing" button does not create a relative
referenced macro.

I am a user without admin privileges on a w2k computer using Excel
2000. Could it be that not having the admin privileges is causing the
problem? If so, is there a work around?

Thanks,

Ahmet Toprak

 

[Debra Dalgleish]

What type of reference are you getting in the code?
Can you post a few lines of the recorded code, and describe what you're
trying to achieve?

 

[topraka]

Hello Debra:

Here is what I got. I want to be able to place my cursor on, say, cell
A1, then plot the data in cells A1 through O1. Next place the cursor on
A2, and plot A2 through O2. So on, so forth.

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 2/2/2005 by toprak
'

'
ActiveCell.Range("A1:O1").Select
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A2:O2"),
PlotBy:= _
xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
ActiveChart.HasLegend = False
End Sub

 

[Debra Dalgleish]

The selection was recorded as a relative reference, but the chart source
isn't. You can modify the recorded code slightly, and it will create a
chart for the row you have selected in column A:

'===========================
Sub Macro1()
'
Dim rng As Range
Dim ws As Worksheet
'
Set rng = ActiveCell.Range("A1:O1")
Set ws = ActiveSheet
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData _
Source:=rng, PlotBy:=xlRows
ActiveChart.Location Where:=xlLocationAsObject, _
Name:=ws.Name
ActiveChart.HasLegend = False
End Sub
'==============================