c# 操作PPT

时间:2023-01-14 23:21:47

前段时间要做一个把指定图片放到新建的ppt的东西,在网上找了点资料看了一下,发现用C#做好像是最简单的一个,一下是在网上找的一段代码,直接贴进去就能够执行,可是在执行之前一定要加入dll支持:

 项目->加入引用->com->microsoft
office object libraty

 项目->加入引用->com->microsoft
powerpoint object libraty



using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Text;

using System.Windows.Forms;

using Microsoft.Office.Core;

using PowerPoint = Microsoft.Office.Interop.PowerPoint;

using Graph = Microsoft.Office.Interop.Graph;

using System.Runtime.InteropServices;



namespace WindowsApplication1

{

    public
partial class Form1 : Form

    {

        public
Form1()

        {

            InitializeComponent();

        }



        private
void button1_Click(object sender, System.EventArgs e)

        {

            ShowPresentation();

            GC.Collect();

        }



        private
void ShowPresentation()

        {

            String
strTemplate, strPic;

            strTemplate
=

              "C:\\Program
Files\\Microsoft Office\\Templates\\Presentation Designs\\Blends.pot";

            strPic
= "C:\\Windows\\Blue Lace 16.bmp";

            bool
bAssistantOn;



            PowerPoint.Application
objApp;

            PowerPoint.Presentations
objPresSet;

            PowerPoint._Presentation
objPres;

            PowerPoint.Slides
objSlides;

            PowerPoint._Slide
objSlide;

            PowerPoint.TextRange
objTextRng;

            PowerPoint.Shapes
objShapes;

            PowerPoint.Shape
objShape;

            PowerPoint.SlideShowWindows
objSSWs;

            PowerPoint.SlideShowTransition
objSST;

            PowerPoint.SlideShowSettings
objSSS;

            PowerPoint.SlideRange
objSldRng;

            Graph.Chart
objChart;



            //Create
a new presentation based on a template.

            objApp
= new PowerPoint.Application();

            objApp.Visible
= MsoTriState.msoTrue;

            objPresSet
= objApp.Presentations;

            objPres
= objPresSet.Open(strTemplate,

             MsoTriState.msoFalse,
MsoTriState.msoTrue, MsoTriState.msoTrue);

            objSlides
= objPres.Slides;



            //Build
Slide #1:

            //Add
text to the slide, change the font and insert/position a

            //picture
on the first slide.

            objSlide
= objSlides.Add(1, PowerPoint.PpSlideLayout.ppLayoutTitleOnly);

            objTextRng
= objSlide.Shapes[1].TextFrame.TextRange;

            objTextRng.Text
= "My Sample Presentation";

            objTextRng.Font.Name
= "Comic Sans MS";

            objTextRng.Font.Size
= 48;

            objSlide.Shapes.AddPicture(strPic,
MsoTriState.msoFalse, MsoTriState.msoTrue,

             150,
150, 500, 350);



            //Build
Slide #2:

            //Add
text to the slide title, format the text. Also add a chart to the

            //slide
and change the chart type to a 3D pie chart.

            objSlide
= objSlides.Add(2, PowerPoint.PpSlideLayout.ppLayoutTitleOnly);

            objTextRng
= objSlide.Shapes[1].TextFrame.TextRange;

            objTextRng.Text
= "My Chart";

            objTextRng.Font.Name
= "Comic Sans MS";

            objTextRng.Font.Size
= 48;

            objChart
= (Graph.Chart)objSlide.Shapes.AddOLEObject(150, 150, 480, 320,

             "MSGraph.Chart.8",
"", MsoTriState.msoFalse, "", 0, "",

             MsoTriState.msoFalse).OLEFormat.Object;

            objChart.ChartType
= Graph.XlChartType.xl3DPie;

            objChart.Legend.Position
= Graph.XlLegendPosition.xlLegendPositionBottom;

            objChart.HasTitle
= true;

            objChart.ChartTitle.Text
= "Here it is...";



            //Build
Slide #3:

            //Change
the background color of this slide only. Add a text effect to the slide

            //and
apply various color schemes and shadows to the text effect.

            objSlide
= objSlides.Add(3, PowerPoint.PpSlideLayout.ppLayoutBlank);

            objSlide.FollowMasterBackground
= MsoTriState.msoFalse;

            objShapes
= objSlide.Shapes;

            objShape
= objShapes.AddTextEffect(MsoPresetTextEffect.msoTextEffect27,

              "The
End", "Impact", 96, MsoTriState.msoFalse, MsoTriState.msoFalse, 230, 200);

           



            //
自己主动播放的代码(開始)

            //Modify
the slide show transition settings for all 3 slides in

            //the
presentation.

            int[]
SlideIdx = new int[3];

            for
(int i = 0; i < 3; i++) SlideIdx[i] = i + 1;

            objSldRng
= objSlides.Range(SlideIdx);

            objSST
= objSldRng.SlideShowTransition;

            objSST.AdvanceOnTime
= MsoTriState.msoTrue;

            objSST.AdvanceTime
= 3;

            objSST.EntryEffect
= PowerPoint.PpEntryEffect.ppEffectBoxOut;



            //Prevent
Office Assistant from displaying alert messages:

            bAssistantOn
= objApp.Assistant.On;

            objApp.Assistant.On
= false;



            //Run
the Slide show from slides 1 thru 3.

            objSSS
= objPres.SlideShowSettings;

            objSSS.StartingSlide
= 1;

            objSSS.EndingSlide
= 3;

            objSSS.Run();



            //Wait
for the slide show to end.

            objSSWs
= objApp.SlideShowWindows;

            while
(objSSWs.Count >= 1) System.Threading.Thread.Sleep(100);



            //Reenable
Office Assisant, if it was on:

            if
(bAssistantOn)

            {

                objApp.Assistant.On
= true;

                objApp.Assistant.Visible
= false;

            }

            //
自己主动播放的代码(结束)



            //Close
the presentation without saving changes and quit PowerPoint.

            objPres.Close();

            objApp.Quit();

        }

    }

}