欢迎光临
我的个人博客网站

C# / VB.NET 在PPT中创建、编辑PPT SmartArt图形

本文介绍通过C#和VB.NET程序代码来创建和编辑PPT文档中的SmartArt图形。文中将分两个操作示例来演示创建和编辑结果。

使用工具Spire.Presentation for .NET hotfix 5.9.5

Dll文件引用:

方式1下载包。下载后,解压,打开Bin文件夹,根据自己用的.NET Framework选择相应的文件夹,如:此示例中使用的是NET4.0,即打开NET4.0文件,找到Spire.Presentation.dll文件。找到dll文件后,在vs程序中添加引用该dll。

如下引用结果:

C# / VB.NET 在PPT中创建、编辑PPT SmartArt图形

 

 

方式2:通过Nuget搜索下载导入。

 

 

注:创建SmartArt图形时,可创建80多种不同类型的图形,编辑图形是,可添加、删除节点、编辑节点内容、给节点内容设置超链接(包括链接到网页、链接到幻灯片)

示例1. 创建PPT SmartArt图形

using Spire.Presentation; using Spire.Presentation.Diagrams;   namespace AddSmartArt {     class Program     {         static void Main(string[] args)         {             //实例化Presentation对象             Presentation ppt = new Presentation();              //设置幻灯片大小             ppt.SlideSize.Type = SlideSizeType.Screen16x9;              //添加组织结构图类型的SmartArt图形,并指定位置、大小             ISmartArt smartArt = ppt.Slides[0].Shapes.AppendSmartArt(100, 50, 450, 250, SmartArtLayoutType.OrganizationChart);              //设置SmartArt的样式和颜色             smartArt.Style = SmartArtStyleType.IntenceEffect;             smartArt.ColorStyle = SmartArtColorType.ColorfulAccentColors3to4;              //移除默认的形状(Node即代表SmartArt中的形状)             foreach (ISmartArtNode node in smartArt.Nodes)             {                 smartArt.Nodes.RemoveNode(node);             }              //添加形状并在其下面添加嵌套子形状             ISmartArtNode node1 = smartArt.Nodes.AddNode();             ISmartArtNode node1_1 = node1.ChildNodes.AddNode();             ISmartArtNode node1_1_1 = node1_1.ChildNodes.AddNode();             ISmartArtNode node1_1_2 = node1_1.ChildNodes.AddNode();             ISmartArtNode node1_1_3 = node1_1.ChildNodes.AddNode();             ISmartArtNode node1_1_4 = node1_1.ChildNodes.AddNode();             ISmartArtNode node1_1_5 = node1_1.ChildNodes.AddNode();             ISmartArtNode node1_1_6 = node1_1.ChildNodes.AddNode();             ISmartArtNode node1_1_1_1 = node1_1_1.ChildNodes.AddNode();             ISmartArtNode node1_1_1_2 = node1_1_1.ChildNodes.AddNode();             ISmartArtNode node1_1_1_3 = node1_1_1.ChildNodes.AddNode();             ISmartArtNode node1_1_3_1 = node1_1_3.ChildNodes.AddNode();             ISmartArtNode node1_1_3_2 = node1_1_3.ChildNodes.AddNode();             ISmartArtNode node1_1_6_1 = node1_1_6.ChildNodes.AddNode();             ISmartArtNode node1_1_6_2 = node1_1_6.ChildNodes.AddNode();             ISmartArtNode node1_1_6_3 = node1_1_6.ChildNodes.AddNode();                           //在每一个形状上添加文字             node1.TextFrame.Text = "董事会n" + "Board of Directors";                        node1_1.TextFrame.Text = "总经理n" + "General Manager";             node1_1_1.TextFrame.Text = "供应部n" + "Supply Dept.";             node1_1_2.TextFrame.Text = "营销部n" + "Sales Dept.";             node1_1_3.TextFrame.Text = "生产部n" + "Productive Dept.";             node1_1_4.TextFrame.Text = "财务部n" + "Finance Dept.";             node1_1_5.TextFrame.Text = "人力资源部n" + "HR Dept.";             node1_1_6.TextFrame.Text = "质检中心n" + "Quality Center";             node1_1_1_1.TextFrame.Text = "采购部n" + "Purchase Dept.";             node1_1_1_2.TextFrame.Text = "仓库管理n" + "Warehouse Manager";             node1_1_1_3.TextFrame.Text = "物流部n" + "Logistics Dept.";             node1_1_3_1.TextFrame.Text = "生产车间n" + "Production Dept.";             node1_1_3_2.TextFrame.Text = "维修部n" + "Maintenance Dept.";             node1_1_6_1.TextFrame.Text = "生产质量管理n" + "Production Quality Mgt.";             node1_1_6_2.TextFrame.Text = "生产安全管理n" + "Production Safety Mgt.";             node1_1_6_3.TextFrame.Text = "环境管理n" + "Environmental Mgt.";                           //保存文档             ppt.SaveToFile("result.pptx", FileFormat.Pptx2013);             System.Diagnostics.Process.Start("result.pptx");         }     } }

图形创建结果:

C# / VB.NET 在PPT中创建、编辑PPT SmartArt图形

VB.NET

Imports Spire.Presentation Imports Spire.Presentation.Diagrams   Namespace AddSmartArt     Class Program         Private Shared Sub Main(args As String())             '实例化Presentation对象             Dim ppt As New Presentation()              '设置幻灯片大小             ppt.SlideSize.Type = SlideSizeType.Screen16x9              '添加组织结构图类型的SmartArt图形,并指定位置、大小             Dim smartArt As ISmartArt = ppt.Slides(0).Shapes.AppendSmartArt(100, 50, 750, 450, SmartArtLayoutType.OrganizationChart)              '设置SmartArt的样式和颜色             smartArt.Style = SmartArtStyleType.IntenceEffect             smartArt.ColorStyle = SmartArtColorType.ColorfulAccentColors3to4              '移除默认的形状(Node即代表SmartArt中的形状)             For Each node As ISmartArtNode In smartArt.Nodes                 smartArt.Nodes.RemoveNode(node)             Next              '添加形状并在其下面添加嵌套子形状             Dim node1 As ISmartArtNode = smartArt.Nodes.AddNode()             Dim node1_1 As ISmartArtNode = node1.ChildNodes.AddNode()             Dim node1_1_1 As ISmartArtNode = node1_1.ChildNodes.AddNode()             Dim node1_1_2 As ISmartArtNode = node1_1.ChildNodes.AddNode()             Dim node1_1_3 As ISmartArtNode = node1_1.ChildNodes.AddNode()             Dim node1_1_4 As ISmartArtNode = node1_1.ChildNodes.AddNode()             Dim node1_1_5 As ISmartArtNode = node1_1.ChildNodes.AddNode()             Dim node1_1_6 As ISmartArtNode = node1_1.ChildNodes.AddNode()             Dim node1_1_1_1 As ISmartArtNode = node1_1_1.ChildNodes.AddNode()             Dim node1_1_1_2 As ISmartArtNode = node1_1_1.ChildNodes.AddNode()             Dim node1_1_1_3 As ISmartArtNode = node1_1_1.ChildNodes.AddNode()             Dim node1_1_3_1 As ISmartArtNode = node1_1_3.ChildNodes.AddNode()             Dim node1_1_3_2 As ISmartArtNode = node1_1_3.ChildNodes.AddNode()             Dim node1_1_6_1 As ISmartArtNode = node1_1_6.ChildNodes.AddNode()             Dim node1_1_6_2 As ISmartArtNode = node1_1_6.ChildNodes.AddNode()             Dim node1_1_6_3 As ISmartArtNode = node1_1_6.ChildNodes.AddNode()               '在每一个形状上添加文字             node1.TextFrame.Text = "董事会" & vbLf + "Board of Directors"             node1_1.TextFrame.Text = "总经理" & vbLf + "General Manager"             node1_1_1.TextFrame.Text = "供应部" & vbLf + "Supply Dept."             node1_1_2.TextFrame.Text = "营销部" & vbLf + "Sales Dept."             node1_1_3.TextFrame.Text = "生产部" & vbLf + "Productive Dept."             node1_1_4.TextFrame.Text = "财务部" & vbLf + "Finance Dept."             node1_1_5.TextFrame.Text = "人力资源部" & vbLf + "HR Dept."             node1_1_6.TextFrame.Text = "质检中心" & vbLf + "Quality Center"             node1_1_1_1.TextFrame.Text = "采购部" & vbLf + "Purchase Dept."             node1_1_1_2.TextFrame.Text = "仓库管理" & vbLf + "Warehouse Manager"             node1_1_1_3.TextFrame.Text = "物流部" & vbLf + "Logistics Dept."             node1_1_3_1.TextFrame.Text = "生产车间" & vbLf + "Production Dept."             node1_1_3_2.TextFrame.Text = "维修部" & vbLf + "Maintenance Dept."             node1_1_6_1.TextFrame.Text = "生产质量管理" & vbLf + "Production Quality Mgt."             node1_1_6_2.TextFrame.Text = "生产安全管理" & vbLf + "Production Safety Mgt."             node1_1_6_3.TextFrame.Text = "环境管理" & vbLf + "Environmental Mgt."               '保存文档             ppt.SaveToFile("result.pptx", FileFormat.Pptx2013)             System.Diagnostics.Process.Start("result.pptx")         End Sub     End Class End Namespace

 

示例2. 编辑PPT SmartArt图形

using Spire.Presentation; using Spire.Presentation.Diagrams;   namespace ModifySmartArt {     class Program     {         static void Main(string[] args)         {             //加载PPT幻灯片文档             Presentation ppt = new Presentation();             ppt.LoadFromFile("test.pptx");              //获取SmartArt图形的节点集合             ISmartArt smartart = ppt.Slides[0].Shapes[0] as ISmartArt;             ISmartArtNodeCollection nodes = smartart.Nodes;              //更改节点内容             nodes[1].TextFrame.Text = "新修改的节点内容";              //添加超链接到节点             nodes[2].Click = new ClickHyperlink("https://baike.baidu.com/");//添加指向网页的超链接             nodes[3].Click = new ClickHyperlink(ppt.Slides[1]);//添加指向指定幻灯片的超链接              //添加节点             ISmartArtNode newnode = nodes[5].ChildNodes.AddNode();             newnode.TextFrame.Text = "新添加的节点内容";              //删除节点             //nodes[0].ChildNodes[3].ChildNodes.RemoveNodeByPosition(0);               //保存到本地并打开             ppt.SaveToFile("output.pptx", FileFormat.Pptx2010);             System.Diagnostics.Process.Start("output.pptx");         }     } }

添加超链接后,注意要在幻灯片播放下才可见超链接添加效果:

C# / VB.NET 在PPT中创建、编辑PPT SmartArt图形

 

VB.NET

Imports Spire.Presentation Imports Spire.Presentation.Diagrams   Namespace ModifySmartArt     Class Program         Private Shared Sub Main(args As String())             '加载PPT幻灯片文档             Dim ppt As New Presentation()             ppt.LoadFromFile("test.pptx")              '获取SmartArt图形的节点集合             Dim smartart As ISmartArt = TryCast(ppt.Slides(0).Shapes(0), ISmartArt)             Dim nodes As ISmartArtNodeCollection = smartart.Nodes              '更改节点内容             nodes(1).TextFrame.Text = "新修改的节点内容"              '添加超链接到节点             nodes(2).Click = New ClickHyperlink("https://baike.baidu.com/")             '添加指向网页的超链接             nodes(3).Click = New ClickHyperlink(ppt.Slides(1))             '添加指向指定幻灯片的超链接             '添加节点             Dim newnode As ISmartArtNode = nodes(5).ChildNodes.AddNode()             newnode.TextFrame.Text = "新添加的节点内容"              '删除节点             'nodes[0].ChildNodes[3].ChildNodes.RemoveNodeByPosition(0);               '保存到本地并打开             ppt.SaveToFile("output.pptx", FileFormat.Pptx2010)             System.Diagnostics.Process.Start("output.pptx")         End Sub     End Class End Namespace

 

赞(0) 打赏
未经允许不得转载:张拓的天空 » C# / VB.NET 在PPT中创建、编辑PPT SmartArt图形
分享到: 更多 (0)

评论 抢沙发

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址

专业的IT技术经验分享 更专业 更方便

联系我们本站主机

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏