Sub Test()
Dim x
For Each x In ActiveSheet.Shapes
If Left(x.Name, 1) = "P" Then
With ActiveSheet.Shapes("图片 6").Duplicate
.Left = x.Left
.Top = x.Top
.Width = x.Width
.Height = x.Height
End With
x.Delete
End If
Next
End Sub
Sub Test()
Dim x
For Each x In ActiveSheet.Shapes
If Left(x.Name, 1) = "P" Then
With ActiveSheet.Shapes("图片 6").Duplicate
.Left = x.Left
.Top = x.Top
.Width = x.Width
.Height = x.Height
End With
x.Delete
End If
Next
End Sub