vbscript 一个简单的片段，用于复制大小和位置。

Posted 2021-05-22

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