批量添加固定元素

Sub 批量复制()
    ActiveWindow.Selection.ShapeRange.Copy
    On Error GoTo ERRORTAG
    Dim stepNumber As Integer:
    Dim value1 As Integer, value2 As Integer
    value1 = InputBox("起点页码")
    value2 = InputBox("终点页码")
    stepNumber = (value2 - value1) / Abs(value1 - value2)
    For i = value1 To value2 Step stepNumber
        ActivePresentation.Slides.Range.item(i).Shapes.Paste
    Next
    ERRORTAG:
End Sub