Copy & Paste Shape Object 2

[Conex]

Hi,

Can anyone please help me and put me right!
I am trying to select a group of shapes in Excel, copy, paste then position them using a macro. My feable attempt below selects but does not copy and paste! I haven't got as far as positioning yet.

Set myDocument = Workbooks("K-RHS-RHS.xls&quot.Worksheets("Brace Elastic Modulus Table&quot

with myDocument
With .Shapes.Range("Elements&quot.Select
.Selection.Copy
End With
.Paste
end with

Thanks

 

[FrenchCAD]

Shouldn't it look like :

Set myDocument = Workbooks("K-RHS-RHS.xls&quot.Worksheets("Brace Elastic Modulus Table&quot

with myDocument
With Shapes.Range("Elements&quot.Select
Selection.Copy
End With
Selection.Paste
end with

Just a thought, i'm no Excel guru

Cyril Guichard
Mechanical Engineer

 

[MintJulep]

For positioning, try the Left and Top properties.

 

[Conex]

Thanks FrenchCAD, I also found it wasn't working because I was trying to select a group of items which didn't exist!

Thanks MintJulep, it now positions correctly.