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

桃扇骨 2022-12-16 13:23 157阅读 0赞

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

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

**Dll****文件引用：**

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

如下引用结果：

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0VpY2VibHVl_size_16_color_FFFFFF_t_70][]

**方式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");
            }
        }
    }

图形创建结果：

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0VpY2VibHVl_size_16_color_FFFFFF_t_70 1][]

**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");
            }
        }
    }

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

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0VpY2VibHVl_size_16_color_FFFFFF_t_70 2][]

**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

[Link 1]: https://www.e-iceblue.cn/Downloads/Spire-Presentation-NET.html
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0VpY2VibHVl_size_16_color_FFFFFF_t_70]: /images/20221123/576a786a104d47e19e18cb6668ab7974.png
[Nuget]: https://www.nuget.org/packages/Spire.Presentation/
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0VpY2VibHVl_size_16_color_FFFFFF_t_70 1]: /images/20221123/6cd9ad2b616e4d5fb81e95f09983cbf3.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0VpY2VibHVl_size_16_color_FFFFFF_t_70 2]: /images/20221123/6d78a5bd7cc54e068f553dc70d4c790e.png