化工网站制作,怎么制作网站域名,阿里云主机网站开发,php外贸网站建设本文介绍通过C#和http://VB.NET程序代码来创建和编辑PPT文档中的SmartArt图形。文中将分两个操作示例来演示创建和编辑结果。使用工具#xff1a;Spire.Presentation for .NET hotfix 5.9.5dll文件引用#xff1a;方式1#xff1a;下载包#xff1b;Spire.Presentation for…本文介绍通过C#和http://VB.NET程序代码来创建和编辑PPT文档中的SmartArt图形。文中将分两个操作示例来演示创建和编辑结果。使用工具Spire.Presentation for .NET hotfix 5.9.5dll文件引用方式1下载包Spire.Presentation for .NET 下载www.e-iceblue.cn下载后解压打开Bin文件夹根据自己用的.NET Framework选择相应的文件夹如此示例中使用的是NET4.0即打开NET4.0文件找到Spire.Presentation.dll文件。找到dll文件后vs程序中添加引用该dll。如下引用结果方式2通过Nuget搜索下载导入。Nugetwww.nuget.org注创建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);}}
}
图形创建结果http://vb.netImports Spire.Presentation
Imports Spire.Presentation.DiagramsNamespace AddSmartArtClass ProgramPrivate 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.IntenceEffectsmartArt.ColorStyle SmartArtColorType.ColorfulAccentColors3to4移除默认的形状(Node即代表SmartArt中的形状For Each node As ISmartArtNode In smartArt.NodessmartArt.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 Directorsnode1_1.TextFrame.Text 总经理 vbLf General Managernode1_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 Centernode1_1_1_1.TextFrame.Text 采购部 vbLf Purchase Dept.node1_1_1_2.TextFrame.Text 仓库管理 vbLf Warehouse Managernode1_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 SubEnd 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);}}
}
添加超链接后注意要在幻灯片播放下才可见超链接添加效果http://VB.NETImports Spire.Presentation
Imports Spire.Presentation.DiagramsNamespace ModifySmartArtClass ProgramPrivate 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 SubEnd Class
End Namespace
