TPE

[e-mail]

---

≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

Presentation 1, Slide 1
Presentation 2, Slide 2
Presentation 3, Slide 3

Presentation 1, Slide 1
Presentation 2, Slide 2
Presentation 3, Slide 3

ورود اسلایدهای مختلف از پرزنتیشن های متعدد و مختلف

کد زیر اسلایدهای مختلف را از پرزنتیشن های مختلف به یک پرزنتیشن وارد می کند.

Sub InterLeaveMe()
' Assumes you start with a new presentation based on same template as
' "component" presentations, new presentation already open when you run the macro

    Dim oNewPres As Presentation
    Dim oSamplePres As Presentation
    Dim sPresBaseName As String
    Dim x As Long
    Dim y As Long
    Dim lNumPresentations As Long
    Dim lNumSlides As Long

    ' Edit these as needed
    sPresBaseName = "c:\temp\Pres"
    lNumPresentations = 3   ' number of presentations
    lNumSlides = 3          ' number of slides in each pres

    Set oNewPres = ActivePresentation

    For x = 1 To lNumSlides
        For y = 1 To lNumPresentations
            Set oSamplePres = Presentations.Open(sPresBaseName & CStr(y) & ".PPT")
            oSamplePres.Slides(x).Copy
            oNewPres.Slides.Paste
            oSamplePres.Close
        Next
    Next

End Sub

---