加入收藏 | 设为首页 | 会员中心 | 我要投稿 李大同 （https://www.lidatong.com.cn/）- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置： 首页 > 百科 > 正文

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

发布时间：2020-12-16 01:07:11 所属栏目：百科 来源：网络整理
导读：本文介绍通过C#和VB.NET程序代码来创建和编辑PPT文档中的SmartArt图形。文中将分两个操作示例来演示创建和编辑结果。 使用工具 ： Spire.Presentation for .NET hotfix 5.9.5 Dll 文件引用： 方式1 ： 下载 包。下载后，解压，打开Bin文件夹，根据自己用的.N

本文介绍通过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。

如下引用结果：

?

?

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

?

?

注：创建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.pptx);
        }
    }
}

图形创建结果：

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 = 环境管理"


            )
        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.pptx);
        }
    }
}

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

?

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); 

            End Namespace

?

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
    相关内容
      推荐文章
        站长推荐
        热点阅读

          【免责声明】本站内容转载自互联网，其发布内容言论不代表本站观点，如果其链接、内容的侵犯您的权益，烦请提交相关链接至邮箱bqsm@foxmail.com我们将及时予以处理。

          建议您使用1920×1080分辨率、谷歌浏览器Google Chrome、Microsoft Edge以获得本站的最佳浏览效果

          Copygight © 2008-2022 https://www.lidatong.com.cn/ All Rights Reserved. 李大同