利用VBA复制和粘贴powerpoint对象的形状尺寸。

1. 首先打开PPT并启用VBA编辑器。

2. 使用以下代码复制形状的高度和宽度：

Sub CopyShapeDimensions()

Dim shapeWidth As Single
Dim shapeHeight As Single

shapeWidth = ActiveWindow.Selection.ShapeRange(1).Width
shapeHeight = ActiveWindow.Selection.ShapeRange(1).Height

Range("A1").Value = "Width: " & shapeWidth
Range("A2").Value = "Height: " & shapeHeight

End Sub

3. 使用以下代码将形状的高度和宽度粘贴到新的形状：

Sub PasteShapeDimensions()

Dim shapeWidth As Single
Dim shapeHeight As Single

shapeWidth = Range("A1").Value
shapeHeight = Range("A2").Value

Set newShape = ActivePresentation.Slides(1).Shapes.AddShape(msoShapeRectangle, 10, 10, shapeWidth, shapeHeight)
newShape.Fill.ForeColor.RGB = RGB(255, 0, 0)

End Sub

这些代码可以轻松地将形状的维度复制到一个单元格中，然后将其粘贴到新创建的形状中。这里的代码将颜色设置为了红色，但可以根据需要进行更改。