Convert PowerPoint to Video

Question

5.00/5 (1 vote)

See more:

C#

if (path != "")
{
    bool validName = false;
    string nFile = "newFile";

    PowerPoint._Presentation objPres;

    objApp = new PowerPoint.Application();
    objApp.Visible = Microsoft.Office.Core.MsoTriState.msoTrue;
    objApp.WindowState = Microsoft.Office.Interop.PowerPoint.PpWindowState.ppWindowMinimized;

    objPres = objApp.Presentations.Open(txtSearch.Text, MsoTriState.msoTrue, MsoTriState.msoTrue, MsoTriState.msoTrue);
    Console.WriteLine("File name: " + txtSearch.Text);
    try
    {
    
        txtStat.Text = "Starting Conversion";
        
        if (!nFile.Contains(".wmv")) nFile += ".wmv";


                objPres.SaveAs(path + "\\" + nFile, PowerPoint.PpSaveAsFileType.ppSaveAsWMV, MsoTriState.msoTrue);


        txtStat.Text = "Done";
        objPres.Close();
        objApp.Quit();
        
    }
    catch (Exception ex)
    {
        Console.WriteLine(ex);
    }
}
else
{
    MessageBox.Show("Please select a file PowerPoint file to convert");
}

Above is my I am using to try and convert a PowerPoint into a video. I am using Microsoft.Office.Interop.PowerPoint in order to do this. My issue is that it converts the first slide but after that it displays really strange looking green bars and weird colors.

Any help with this will be greatly appreciated!

Posted 19-Dec-13 7:31am

bferk

Updated 15-Oct-20 1:18am

Add a Solution

Comments

Mike Meinz 19-Dec-13 14:29pm

If you use File / Save As in PowerPoint without automation (i.e. via the keyboard), does it convert correctly then?

Also, see How to Release COM Interop Objects so the Called Program Can Exit

[no name] 19-Dec-13 14:37pm

When we try it in PowerPoint it works, but for some reason the code above does not. Okay thanks for the tip, I will check that article out.

Mike Meinz 20-Dec-13 9:43am

I posted Solution 1 which solves the problem.

Sergey Alexandrovich Kryukov 19-Dec-13 15:38pm

Why? Office PowerPoint does have an option to save it into a video.
—SA

[no name] 19-Dec-13 15:41pm

The reason I want to do this in code is because I will be getting large amounts of PowerPoints sent to me that need to be converted, so I want to do this to make it easier on me.

Sergey Alexandrovich Kryukov 19-Dec-13 23:06pm

Understood.
—SA

1 solution

Add a Solution

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Mike Meinz · Accepted Answer · 2013-12-19T14:16:00

You need to wait for the video to be completed. Your code exits PowerPoint before the video has been completed. Below is an example that works.

Notes
* I changed your variable path to strPath so that I could use Path.Combine.
* I changed PowerPoint._Presentation to PowerPoint.Presentation.

Additional
There are other values of PpMediaTaskStatus that you should check after the while loop. See PpMediaTaskStatus Enumeration[^].

C#

if (!string.IsNullOrEmpty(strPath)) {
	bool validName = false;
	string nFile = "newFile";
	PowerPoint.Application objApp;
	PowerPoint.Presentation objPres;
	objApp = new PowerPoint.Application();
	objApp.Visible = Microsoft.Office.Core.MsoTriState.msoTrue;
	objApp.WindowState = PowerPoint.PpWindowState.ppWindowMinimized;
	objPres = objApp.Presentations.Open(txtSearch.Text, MsoTriState.msoTrue, MsoTriState.msoTrue, MsoTriState.msoTrue);
	Console.WriteLine("File name: " + txtSearch.Text);
	try {
		txtStat.Text = "Starting Conversion";
		if (!nFile.Contains(".wmv")) {
			nFile += ".wmv";
		}
		objPres.SaveAs(System.IO.Path.Combine(strPath, nFile), PowerPoint.PpSaveAsFileType.ppSaveAsWMV, MsoTriState.msoTrue);
		// Wait for creation of video file
		while (objApp.ActivePresentation.CreateVideoStatus == PowerPoint.PpMediaTaskStatus.ppMediaTaskStatusInProgress || objApp.ActivePresentation.CreateVideoStatus == PowerPoint.PpMediaTaskStatus.ppMediaTaskStatusQueued) {
			Application.DoEvents();
			System.Threading.Thread.Sleep(500);
		}

		txtStat.Text = "Done";
		objPres.Close();
		objApp.Quit();
                // Release COM Objects
		System.Runtime.InteropServices.Marshal.FinalReleaseComObject(objPres);
		objPres = null;
		System.Runtime.InteropServices.Marshal.FinalReleaseComObject(objApp);
		objApp = null;
		GC.Collect();
		GC.WaitForPendingFinalizers();

	} catch (Exception ex) {
		Console.WriteLine(ex);
	}
} else {
	MessageBox.Show("Please select a file PowerPoint file to convert");
}

Convert PowerPoint to Video

1 solution

Solution 1

Add your solution here

Preview 0

Convert PowerPoint to Video

1 solution

Solution 1

Add your solution here

Preview 0

Existing Members

...or Join us