keilah
08-22-2007, 08:20 AM
I have got this error with the following code:
"Compile error"
Invalid or unqualified reference
on
Sub MoveChart1()
Dim dbltop As Double, dblleft As Double
ActiveSheet.[A1].Select
ActiveSheet.Shapes ("Chart 33")
'Centers graph
dbltop = .Top
dblleft = .Left
.Top = (ActiveWindow.Height - .Height) / 2
.Left = (ActiveWindow.Width - .Width) / 2
'Resets Graph
'.Top = dbltop
'.Left = dblleft
End Sub
"Compile error"
Invalid or unqualified reference
on
Sub MoveChart1()
Dim dbltop As Double, dblleft As Double
ActiveSheet.[A1].Select
ActiveSheet.Shapes ("Chart 33")
'Centers graph
dbltop = .Top
dblleft = .Left
.Top = (ActiveWindow.Height - .Height) / 2
.Left = (ActiveWindow.Width - .Width) / 2
'Resets Graph
'.Top = dbltop
'.Left = dblleft
End Sub