Shapes resized after pasting

[Fonty]

I have a macro that selects an array of shapes, copies them and then pastes them in another sheet.

The source of the shapes varies but I always take care of removing properties like "move and resize".

Something that is happening lately is that some of the shapes get pasted and reshaped on one axis. More precisely it gets scaled to 1%. This doesn't affect all the shapes of the array.

Does anyone has a clue on this bug? Thanks!

[Fonty]

I think I have a solution but I don't know how to implement it.

The factor from ScaleHeight is intact, the only one affected is the the factor from ScaleWidth. Since these are methods and not properties I can't retrieve them so that I add a loop that does something like:
<code>For each shp in sht.Shapes
shp.ScaleWidth.Factor=shp.ScaleHeight.Factor
Next shp</code>

Thoughts?

[vbfbryce]

Would like to see your code that's doing the copying and pasting.