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

Posted

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了vbscript 一个简单的片段，用于复制大小和位置。相关的知识，希望对你有一定的参考价值。

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

以上是关于vbscript 一个简单的片段，用于复制大小和位置。的主要内容，如果未能解决你的问题，请参考以下文章