Asp.net 在.net中修改或编辑ppt模板

我有一个网站，它发送的附件，这是一个ppt演示邮件。 我的应用程序中存储了ppt模板。 根据用户的选择，我需要修改模板内容，即在ppt模板中添加文本并将其作为附件发送。 有人请告诉我如何编辑或修改ppt模板

---

谢谢。

如果您想在.net代码后面写下ppt模板，我已经使用了shotdev的解决方案，它在vb.net中：

Imports Microsoft.Office.Interop.PowerPoint
Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Const wdColorLightGreen = &HCCFFCC
Const wdColorBlue = &HCCFFCC

Dim ppApp As New Microsoft.Office.Interop.PowerPoint.Application
Dim ppPres As Presentation
Dim ppSlide1, ppSlide2, ppSlide3, ppSlide4 As Slide
Dim ppName As String = "MyPP/MyPPt.ppt"
Dim ppDoc As String = "shotdev.ppt"

ppApp.Visible = True

ppPres = ppApp.Presentations.Open(Server.MapPath(ppDoc))

ppSlide1 = ppPres.Slides(1)
'*** AddTextbox, objControl.Left,objControl.Top,objControl.Width,objControl.Height ***'
ppSlide1.Shapes.AddTextbox(1, 50, 100, 700, 100) '***4
ppSlide1.Shapes(1).TextFrame.TextRange.Text = "I Love ShotDev.Com 1"
ppSlide1.Shapes(1).TextFrame.TextRange.Font.Name = "Arial"
ppSlide1.Shapes(1).TextFrame.TextRange.Font.Size = 10
ppSlide1.Shapes(1).TextFrame.TextRange.Font.Color.RGB = wdColorLightGreen

ppSlide1.Shapes.AddTextbox(1, 50, 150, 700, 100)
ppSlide1.Shapes(2).TextFrame.TextRange.Text = "I Love ShotDev.Com 2"
ppSlide1.Shapes(2).TextFrame.TextRange.Font.Name = "Arial"
ppSlide1.Shapes(2).TextFrame.TextRange.Font.Size = 20

ppSlide1.Shapes.AddTextbox(1, 50, 200, 700, 100)
ppSlide1.Shapes(3).TextFrame.TextRange.Text = "I Love ShotDev.Com 3"
ppSlide1.Shapes(3).TextFrame.TextRange.Font.Name = "Arial"
ppSlide1.Shapes(3).TextFrame.TextRange.Font.Size = 30

ppSlide1.Shapes.AddTextbox(1, 50, 250, 700, 100)
ppSlide1.Shapes(4).TextFrame.TextRange.Text = "I Love ShotDev.Com 4"
ppSlide1.Shapes(4).TextFrame.TextRange.Font.Name = "Arial"
ppSlide1.Shapes(4).TextFrame.TextRange.Font.Size = 40

ppSlide1.Shapes.AddTextbox(1, 50, 300, 700, 100)
ppSlide1.Shapes(5).TextFrame.TextRange.Text = "I Love ShotDev.Com 5"
ppSlide1.Shapes(5).TextFrame.TextRange.Font.Name = "Arial"
ppSlide1.Shapes(5).TextFrame.TextRange.Font.Size = 50
ppSlide1.Shapes(5).TextFrame.TextRange.Font.Color.RGB = wdColorBlue
ppSlide1.Shapes.AddPicture(Server.MapPath("logo.gif"), 0, 1, 310, 380, 100, 100) '*** Picture,Left,Top,Width,Height ***'

ppSlide2 = ppPres.Slides.Add(2, 3)
ppSlide2.Shapes(1).TextFrame.TextRange.Text = "www.ShotDev.Com Version"
ppSlide2.Shapes(1).TextFrame.TextRange.Font.Color.RGB = wdColorBlue
ppSlide2.Shapes(2).TextFrame.TextRange.Text = "Version 2009" & vbCr & _
"Version 2009" & vbCr & "Version 2009" & vbCr & "Version 2009"
ppSlide2.Shapes(3).TextFrame.TextRange.Text = "Version 2010" & vbCr & _
"Version 2010" & vbCr & "Version 2010" & vbCr & "Version 2010"

ppSlide3 = ppPres.Slides.Add(3, 4)
ppSlide3.Shapes(1).TextFrame.TextRange.Text = "We Love ShotDev.Com"
ppSlide3.Shapes(1).TextFrame.TextRange.Font.Color.RGB = wdColorBlue

ppSlide4 = ppPres.Slides.Add(4, 5)
ppSlide4.Shapes(1).TextFrame.TextRange.Text = "We Love ShotDev.Com"
ppSlide4.Shapes(1).TextFrame.TextRange.Font.Color.RGB = wdColorBlue
ppSlide4.Shapes(2).TextFrame.TextRange.Text = "2006" & vbCr & "2007" & vbCr & "2008" & vbCr & "2009" & vbCr & "2010"

ppApp.Presentations(1).SaveAs(Server.MapPath(ppName))
ppApp.Quit()
ppApp = Nothing

Me.lblText.Text = "PowerPoint Created <a href=" & ppName & ">Click here</a> to Download."

End Sub
End Class

导入Microsoft.Office.Interop.PowerPoint
继承System.Web.UI.Page
受保护的子页加载（ByVal sender作为对象，ByVal e作为System.EventArgs）处理Me.Load
常量wdColorLightGreen=&HCCFFCC
常量wdColorBlue=&HCCFFCC
Dim ppApp作为新的Microsoft.Office.Interop.PowerPoint.Application
作为演示文稿的Dim ppPres
将ppSlide1、ppSlide2、ppSlide3、ppSlide4的尺寸标注为幻灯片
Dim ppName As String=“MyPP/MyPPt.ppt”
Dim ppDoc As String=“shotdev.ppt”
ppApp.Visible=True
ppPres=ppApp.Presentations.Open（Server.MapPath（ppDoc））
ppSlide1=ppPres.幻灯片（1）
“***添加文本框，objControl.Left，objControl.Top，objControl.Width，objControl.Height***”
ppSlide1.形状.添加文本框（1，50，100，700，100）***4
ppSlide1.Shapes（1.TextFrame.TextRange.Text=“我爱ShotDev.Com 1”
ppSlide1.Shapes（1）.TextFrame.TextRange.Font.Name=“Arial”
ppSlide1.Shapes（1）.TextFrame.TextRange.Font.Size=10
ppSlide1.Shapes（1）.TextFrame.TextRange.Font.Color.RGB=wdColorLightGreen
ppSlide1.Shapes.AddTextbox（1,50150700100）
ppSlide1.Shapes（2.TextFrame.TextRange.Text=“我喜欢ShotDev.Com 2”
ppSlide1.Shapes（2）.TextFrame.TextRange.Font.Name=“Arial”
ppSlide1.Shapes（2）.TextFrame.TextRange.Font.Size=20
ppSlide1.Shapes.AddTextbox（1,50200700100）
ppSlide1.Shapes（3.TextFrame.TextRange.Text=“我爱ShotDev.Com 3”
ppSlide1.Shapes（3）.TextFrame.TextRange.Font.Name=“Arial”
ppSlide1.Shapes（3）.TextFrame.TextRange.Font.Size=30
ppSlide1.Shapes.AddTextbox（1,50250700100）
ppSlide1.Shapes（4.TextFrame.TextRange.Text=“我爱ShotDev.Com 4”
ppSlide1.Shapes（4）.TextFrame.TextRange.Font.Name=“Arial”
ppSlide1.Shapes（4）.TextFrame.TextRange.Font.Size=40
ppSlide1.Shapes.AddTextbox（1,50300700100）
ppSlide1.Shapes（5.TextFrame.TextRange.Text=“我爱ShotDev.Com 5”
ppSlide1.Shapes（5）.TextFrame.TextRange.Font.Name=“Arial”
ppSlide1.Shapes（5）.TextFrame.TextRange.Font.Size=50
ppSlide1.Shapes（5）.TextFrame.TextRange.Font.Color.RGB=wdColorBlue
ppSlide1.Shapes.AddPicture（Server.MapPath（“logo.gif”）、0、1310、380、100、100）***图片，左，上，宽，高***'
ppSlide2=ppPres.Slides.Add（2,3）
ppSlide2.Shapes（1）.TextFrame.TextRange.Text=“www.ShotDev.Com版本”
ppSlide2.Shapes（1）.TextFrame.TextRange.Font.Color.RGB=wdColorBlue
ppSlide2.Shapes（2）.TextFrame.TextRange.Text=“版本2009”&vbCr&_
“2009版”&vbCr和“2009版”&vbCr和“2009版”
ppSlide2.Shapes（3）.TextFrame.TextRange.Text=“版本2010”&vbCr&_
“2010版”&vbCr&“2010版”&vbCr&“2010版”
ppSlide3=ppPres.Slides.Add（3,4）
ppSlide3.Shapes（1.TextFrame.TextRange.Text=“我们喜欢ShotDev.Com”
ppSlide3.Shapes（1）.TextFrame.TextRange.Font.Color.RGB=wdColorBlue
ppSlide4=ppPres.Slides.Add（4,5）
ppSlide4.Shapes（1.TextFrame.TextRange.Text=“我们喜欢ShotDev.Com”
ppSlide4.Shapes（1）.TextFrame.TextRange.Font.Color.RGB=wdColorBlue
ppSlide4.Shapes（2）.TextFrame.TextRange.Text=“2006”&vbCr&“2007”&vbCr&“2008”&vbCr&“2009”&vbCr&“2010”
ppApp.Presentations（1）.SaveAs（Server.MapPath（ppName））
ppApp.Quit（）
ppApp=无
Me.lblText.Text=“PowerPoint是为下载而创建的。”
端接头
末级

您可以参考以下内容：

尝试。 如果您有

*.pptx

格式，也可以使用