A simple snippet for replicating size and position. - Cacher Snippet

4/28/2017 - 9:39 AM

A simple snippet for replicating size and position.

A simple snippet for replicating size and position.

Simple Shape Copier

Sub SimpleShapeSizePositionCopier()

'Copies the property of the first selected chart to the second
'No variables are saved into the memory

Dim shp1, shp2 As Shape
Dim i, j, k As Long

Set shp1 = ActiveWindow.Selection.ShapeRange(1)
Set shp2 = ActiveWindow.Selection.ShapeRange(2)

shp2.Height = shp1.Height
shp2.Width = shp1.Width
shp2.Top = shp1.Top
shp2.Left = shp1.Left


End Sub