本文介绍通过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。
如下引用结果：
注：创建SmartArt图形时，可创建80多种不同类型的图形，编辑图形是，可添加、删除节点、编辑节点内容、给节点内容设置超链接（包括链接到网页、链接到幻灯片）
示例1. 创建PPT SmartArt图形
using Spire.Presentation; 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,1)">450,1)">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 = 总经理\nGeneral Manager; node1_1_1.TextFrame.Text = 供应部\nSupply Dept.; node1_1_2.TextFrame.Text = 营销部\nSales Dept.; node1_1_3.TextFrame.Text = 生产部\nProductive Dept.; node1_1_4.TextFrame.Text = 财务部\nFinance Dept.; node1_1_5.TextFrame.Text = 人力资源部\nHR Dept.; node1_1_6.TextFrame.Text = 质检中心\nQuality Center; node1_1_1_1.TextFrame.Text = 采购部\nPurchase Dept.; node1_1_1_2.TextFrame.Text = 仓库管理\nWarehouse Manager; node1_1_1_3.TextFrame.Text = 物流部\nLogistics Dept.; node1_1_3_1.TextFrame.Text = 生产车间\nProduction Dept.; node1_1_3_2.TextFrame.Text = 维修部\nMaintenance Dept.; node1_1_6_1.TextFrame.Text = 生产质量管理\nProduction Quality Mgt.; node1_1_6_2.TextFrame.Text = 生产安全管理\nProduction Safety Mgt.; node1_1_6_3.TextFrame.Text = 环境管理\nEnvironmental Mgt.; 保存文档 ppt.SavetoFile(result.pptxstem.Diagnostics.Process.Start(); } } }
图形创建结果：
VB.NET
Imports Spire.Presentation Spire.Presentation.Diagrams Namespace AddSmartArt Class Program Private Shared Sub Main(args As String()) '实例化Presentation对象 Dim ppt New Presentation() SlideSizeType.Screen16x9 添加组织结构图类型的SmartArt图形，并指定位置、大小 Dim smartArt As ISmartArt = ppt.Slides(0).Shapes.AppendSmartArt(750,1)">450 SmartArtStyleType.IntenceEffect smartArt.ColorStyle = SmartArtColorType.ColorfulAccentColors3to4 For Each node As ISmartArtNode In smartArt.Nodes smartArt.Nodes.RemoveNode(node) Next 添加形状并在其下面添加嵌套子形状 Dim node1 As ISmartArtNode = smartArt.Nodes.AddNode() Dim node1_1 node1.ChildNodes.AddNode() Dim node1_1_1 node1_1.ChildNodes.AddNode() Dim node1_1_2 Dim node1_1_3 Dim node1_1_4 Dim node1_1_5 Dim node1_1_6 Dim node1_1_1_1 node1_1_1.ChildNodes.AddNode() Dim node1_1_1_2 Dim node1_1_1_3 Dim node1_1_3_1 node1_1_3.ChildNodes.AddNode() Dim node1_1_3_2 Dim node1_1_6_1 node1_1_6.ChildNodes.AddNode() Dim node1_1_6_2 Dim node1_1_6_3 node1_1_6.ChildNodes.AddNode() 董事会" & vbLf + node1_1.TextFrame.Text = 总经理 node1_1_1.TextFrame.Text = 供应部 node1_1_2.TextFrame.Text = 营销部 node1_1_3.TextFrame.Text = 生产部 node1_1_4.TextFrame.Text = 财务部 node1_1_5.TextFrame.Text = 人力资源部 node1_1_6.TextFrame.Text = 质检中心 node1_1_1_1.TextFrame.Text = 采购部 node1_1_1_2.TextFrame.Text = 仓库管理 node1_1_1_3.TextFrame.Text = 物流部 node1_1_3_1.TextFrame.Text = 生产车间 node1_1_3_2.TextFrame.Text = 维修部 node1_1_6_1.TextFrame.Text = 生产质量管理 node1_1_6_2.TextFrame.Text = 生产安全管理 node1_1_6_3.TextFrame.Text = 环境管理" stem.Diagnostics.Process.Start() End Sub End Class End Namespace
示例2. 编辑PPT SmartArt图形
ModifySmartArt { 加载PPT幻灯片文档 Presentation ppt = 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.pptxstem.Diagnostics.Process.Start(); } } }
VB.NET
ModifySmartArt 加载PPT幻灯片文档 Presentation() ppt.LoadFromFile() 获取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() 添加指向网页的超链接 nodes(3).Click = New ClickHyperlink(ppt.Slides(1)) 添加指向指定幻灯片的超链接 添加节点 Dim newnode As ISmartArtNode = nodes().ChildNodes.AddNode() newnode.TextFrame.Text = 删除节点 nodes[0].ChildNodes[3].ChildNodes.RemoveNodeByPosition(0); stem.Diagnostics.Process.Start(End Namespace
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
