在powerpoint中创建一个宏VBA弹出窗口，当输入页码时，会将所选幻灯片粘贴到除所选幻灯片之外的所有幻灯片中

注意：您的代码可以在活动幻灯片上创建两个形状（其索引为 ActiveWindow.View.slide.SlideIndex）。 创建第一个形状。 如果活动幻灯片不在“跳过”列表中，则循环将创建第二个形状。ActiveWindow.View.PasteFor

请尝试。

Option Explicit
Sub PasteToAll()
    Dim oshpR  As ShapeRange
    Dim T1     As Single
    Dim L1     As Single
    Dim sPage As String
    Dim sIndex As String
    Dim i As Integer, MyRange
    Const SEP_CHAR = ","  ' Modidy as needed 
    ActiveWindow.View.Paste
    Set oshpR = ActiveWindow.Selection.ShapeRange
    T1 = oshpR(1).Top
    L1 = oshpR(1).Left
    sPage = VBA.InputBox("Please input page number(seperated by comma)")
    sPage = SEP_CHAR & sPage & SEP_CHAR
    For i = 1 To ActivePresentation.Slides.Count
        sIndex = SEP_CHAR & i & SEP_CHAR
        If VBA.InStr(1, sPage, sIndex) = 0 Then
            Set MyRange = ActivePresentation.Slides(i).Shapes.Paste
            MyRange(1).Left = L1
            MyRange(1).Top = T1
        End If
    Next
End Sub