Merge Powerpoint presentations

[gill1978]

Hi,

What I'm trying to do is,

once the users select the files they want to merge, they select a button which will:

1. Open an instance of powerpoint
2. Open the first of the files selected by the user
3. Copy/ export that slides from that presentation
4. Paste into the instance of powerpoint (in point 1 above)
5. Close the first file
... repeat these steps for all the rest of the files selected by the user

I know what needs to be done but I have no idea how to go about the syntax in VB/ C#

//I know I need to have the following directive:

using PowerPoint = Microsoft.Office.Interop.PowerPoint;
 

//Maybe the following:

PowerPoint.Application oPPT;
PowerPoint.Presentations objPresSet;
 

//the location of your powerpoint presentation

string strPres;
strPres = @"mpPres.ppt";
 

But have no idea where to go from here ...

Any help would be very much appreciated ..

Thanks

J

[SammyB]

Do you really need to do this in .Net? Seems like a PowerPoint macro would be a lot easier. In any case, I would do it as a macro first, because you can record a macro to see how to do it. Then switch back to .Net. That is what I would have to do in order to help you. Try that and post back if you have trouble with anything specific. --Sam

[gill1978]

Do you really need to do this in .Net? Seems like a PowerPoint macro would be a lot easier. In any case, I would do it as a macro first, because you can record a macro to see how to do it. Then switch back to .Net. That is what I would have to do in order to help you. Try that and post back if you have trouble with anything specific. --Sam

Hi,

This is the macro that I've created that works:

Sub Macro6()
 
    Dim PPApp As PowerPoint.Application
    Dim PPPres As PowerPoint.Presentation
    Dim PPSlide As PowerPoint.Slide
 
    ' Create instance of PowerPoint
    Set PPApp = CreateObject("Powerpoint.Application")
 
    ' Create a presentation
    Set PPPres = PPApp.Presentations.Add
 
 
Dim nSlides As Integer
Dim fnames As New Collection
fnames.Add "Blah1.ppt"
fnames.Add "Blah2.ppt"
'fnames.Add "p3.ppt"
'fnames.Add "p4.ppt"
'fnames.Add "p5.ppt"
For Each fnam In fnames
  nSlides = ActivePresentation.Slides.InsertFromFile(fnam, ActivePresentation.Slides.Count)
Next
End Sub
 
 

[SammyB]

We are geniuses: I've just about finished the same solution in C#. I'll post it when it works. Hope it's not 4:30 AM where you are like it is here! :)

[gill1978]

4:30 ... nope its 9:40 ... !! Take it you're an insomniac!!!

[SammyB]

4:30 ... nope its 9:40 ... !! Take it you're an insomniac!!!

Well, I'm going back to bed! Here's what I have. I think it would work except for the Type.Missing: can't figure out how to pass a missing Com int parameter:

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using PowerPoint = Microsoft.Office.Interop.PowerPoint; // Add a reference to Microsoft.Office.Interop.PowerPoint.dll
using Office = Microsoft.Office.Core; // Add a reference to office.dll
namespace PowerPointCombine
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }
        private void button1_Click(object sender, EventArgs e)
        {
            openFileDialog1.Filter = "Presentations (*.ppt)|*.ppt|All files (*.*)|*.*";
            openFileDialog1.FilterIndex = 1;
            openFileDialog1.Multiselect = true;
            openFileDialog1.Title = "Select Presentations To Merge";
            openFileDialog1.ShowDialog();
            // Create an instance of PowerPoint, make it visible, and open a new pres.
            PowerPoint.ApplicationClass ppApp = new PowerPoint.ApplicationClass();
            ppApp.Visible = Office.MsoTriState.msoTrue;
            PowerPoint.Presentations ppSet = ppApp.Presentations;
            PowerPoint.Presentation ppPres = ppSet.Add(Office.MsoTriState.msoTrue);
            PowerPoint.Slides ppSlides = ppPres.Slides;
            foreach (string f in openFileDialog1.FileNames)
            {
                ppSlides.InsertFromFile(f, 1, ppSlides.Count, Type.Missing);
            }
            ppPres.SaveAs(@"C:\Documents and Settings\Sam\My Documents\Merged.ppt", PowerPoint.PpSaveAsFileType.ppSaveAsPresentation, Office.MsoTriState.msoFalse);
            ppPres.Close();
            System.Runtime.InteropServices.Marshal.ReleaseComObject(ppPres);
            ppPres = null;
            System.Runtime.InteropServices.Marshal.ReleaseComObject(ppSlides);
            ppSlides = null;
            System.Runtime.InteropServices.Marshal.ReleaseComObject(ppSet);
            ppSet = null;
            ppApp.Quit();
            System.Runtime.InteropServices.Marshal.ReleaseComObject(ppApp);
            ppApp = null;
        }
    }
}

BTW, as you can see, you have to be very precise in C#. All of the Office Com stuff is wrapped in what VBA calls a variant which does not fly in C# so you cannot sling stuff together like Application.Pre sentations.Add.

[SammyB]

Well, so much for our "genius" solution. You cannot pass missing value parameters in C# (http://msdn2.microsoft.com/en-us/lib...ffice.11).aspx), so we will have to open each presentation manually.

[gill1978]

Manually as in the user will have to open the files???
Not so good then ... wonder if there's another approach???

[SammyB]

Manually as in the user will have to open the files???
Not so good then ... wonder if there's another approach???

No, no, not that! We will have to open each presentation in code, copy the slides, switch back to the new presentation, and paste the slides there. Only 4 or 5 more lines. After simplifying a recorded macro, it looks like:

ActivePresentation.Slides.Range.Copy
Windows.Item(Index:=2).Activate
ActiveWindow.View.Paste

but there I already had two presentations open. I may have time tonight after you are sound asleep to do it in C#. This is my first venture with PowerPoint InterOp. Makes regular PoPo programming look easy. Stay tuned and/or try it yourself. If you try it yourself, you'll need to save a DocumentWindow object from the merged Presentation. I suspect that it is ppPres.Windows( 1). Then you won't need the Activate, just an Open, Copy & Paste for each file.

[SammyB]

Well, it sort of works! It was very annoying. I have a new rule: NEVER do InterOp in C#: it should be called InterNoOp. Maybe you can make it better! If so, it would be great to post your code. HTH --Sam

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using PowerPoint = Microsoft.Office.Interop.PowerPoint; // Add a reference to Microsoft.Office.Interop.PowerPoint.dll
using Office = Microsoft.Office.Core; // Add a reference to office.dll
namespace PowerPointCombine
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }
        private void button1_Click(object sender, EventArgs e)
        {
            openFileDialog1.Filter = "Presentations (*.ppt)|*.ppt|All files (*.*)|*.*";
            openFileDialog1.FilterIndex = 1;
            openFileDialog1.Multiselect = true;
            openFileDialog1.Title = "Select Presentations To Merge";
            openFileDialog1.ShowDialog();
            // Create an instance of PowerPoint, make it visible, and open a new pres.
            PowerPoint.ApplicationClass ppApp = new PowerPoint.ApplicationClass();
            ppApp.Visible = Office.MsoTriState.msoTrue;
            PowerPoint.Presentations ppSet = ppApp.Presentations;
            PowerPoint.Presentation ppMergedPres = ppSet.Add(Office.MsoTriState.msoTrue);
            PowerPoint.Slides ppMergedSlides = ppMergedPres.Slides;
            PowerPoint.DocumentWindows ppWindows = ppMergedPres.Windows;
            PowerPoint.DocumentWindow ppWindow = ppWindows[1];
            PowerPoint.View ppMergedView = ppWindow.View;
            PowerPoint.Presentation ppPres = null;
            PowerPoint.Slides ppSlides = null;
            foreach (string f in openFileDialog1.FileNames)
            {
                //ppSlides.InsertFromFile(f, ppSlides.Count, 1, 999);
                ppPres = ppSet.Open(f, Office.MsoTriState.msoTrue, Office.MsoTriState.msoFalse, Office.MsoTriState.msoTrue);
                ppSlides = ppPres.Slides;
                for (int i=ppSlides.Count; i>=1; i--)
                {
                    ppSlides[i].Copy();
                    ppMergedView.Paste();
                }
                ppPres.Close();
            }
            ppMergedPres.SaveAs(@"C:\Documents and Settings\Sam\My Documents\Merged.ppt", PowerPoint.PpSaveAsFileType.ppSaveAsPresentation, Office.MsoTriState.msoFalse);
            ppMergedPres.Close();
            System.Runtime.InteropServices.Marshal.ReleaseComObject(ppMergedPres);
            ppMergedPres = null;
            System.Runtime.InteropServices.Marshal.ReleaseComObject(ppSlides);
            ppSlides = null;
            System.Runtime.InteropServices.Marshal.ReleaseComObject(ppSet);
            ppSet = null;
            ppApp.Quit();
            System.Runtime.InteropServices.Marshal.ReleaseComObject(ppApp);
            ppApp = null;
        }
    }
}