I need help with writing a fully qualified macro code.

[Juno123]

I need help with writing a fully qualified macro code for the following code snippet-
Sub Test()
Dim ChObj As ChartObject
Dim Top As Double
Dim Left As Double
Application.ScreenUpdating = False
For Each ChObj In ActiveSheet.ChartObjects
Top = ChObj.Top
Left = ChObj.Left
ChObj.Cut
ActiveSheet.Pictures.Paste.Select
Selection.Top = Top
Selection.Left = Left
Next ChObj
Range("A1").Select
Application.ScreenUpdating = True
End Sub

 

[RoryA]

You cannot move a range, which is what the selection is after pasting. Try:

With wsReport.Pictures.Paste
   .Top = Top
   .Left = Left
End With

instead of:

wsReport.Pictures.Paste.Select
Selection.Top = Top
Selection.Left = Left

 

[CharlesChuckieCharles]

There is no top property on a range it's available on the list but not relevent and will cause a compile error when you think of a range (cells) it makes sense, generally if you cut and paste without moving the paste is where the cut was

 

[Juno123]

Excellent !!! That solved my latest problem.. Thanks Rorya...

I will tell you more about the random errors that I have been getting a bit later as I have certain deliverables right now.

I have joined this forum for the first time and I already find it very useful..
Thanks a bunch Rorya..

 

[RoryA]

There is no top property on a range it's available on the list but not relevent and will cause a compile error

That is not true - there is a Top property but it is read only, so you can't change it. It is very useful for positioning shapes and charts etc on a worksheet so that they line up with a particular range (along with the Left, Width and Height properties)

 

[RoryA]

I have joined this forum for the first time and I already find it very useful..
Thanks a bunch Rorya..

Glad to have you with us!

 

[CharlesChuckieCharles]

true