本文介绍通过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;
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");
}
}
}
图形创建结果：
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");
}
}
}
添加超链接后，注意要在幻灯片播放下才可见超链接添加效果：
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
C# / VB.NET 在PPT中创建、编辑PPT SmartArt图形的更多相关文章
-
Java 在PPT中创建SmartArt图形、读取SmartArt图形中的文本
一.概述及环境准备 SmartArt 图形通过将文字.图形从多种不同布局.组合来表现内容和观点的逻辑关系,能够快速.有效地传达设计者的意图和信息.这种图文表达的视觉表示形式常用于PPT,Word,Ex ...
-
Java 在PPT中创建散点图
本文将以Java代码示例展示如何在PPT幻灯片中创建散点图表. 创建图表前 需要在Java程序中导入用于操作PPT的jar包 Free Spire.Presentation for Java.可参考如 ...
-
在ArcMap 10.3中创建和编辑数据
在ArcMap 10.3中创建和编辑数据 .......待补充 新建 创建一个新文件((Points, Polylines, and Polygons/点.线.多边形)
-
openerp学习笔记 视图(tree\form)中隐藏按钮( 创建、编辑、删除 )，tree视图中启用编辑
视图(tree\form)中隐藏按钮( 创建.编辑.删除 )create="false" edit="false" delete="false&quo ...
-
ArcGIS操作技巧——怎样把地图放到PPT中，并且进行编辑？
需求:把arcgis配好的矢量地图插入到ppt中,并且要求可以在PPT中进行修改和重新着色.编辑. 效果:如下图所示: 操作过程: 方法一: 在最上面工具栏找到edit——>copy map t ...
-
在 ASP.NET 中创建数据访问和业务逻辑层（转）
.NET Framework 4 当在 ASP.NET 中处理数据时,可从使用通用软件模式中受益.其中一种模式是将数据访问代码与控制数据访问或提供其他业务规则的业务逻辑代码分开.在此模式中,这两个层均 ...
-
如何提取出ppt中的文字？
最近在看一位老师的教学视频,视频里大部分的知识都记录在ppt里,于是很想将ppt中的文字提取出来,如果我一页一页地粘贴复制的话,效率低到吓人,因为一章的ppt有130多页,于是在网上搜索了一下方法,与 ...
-
C# 实现对PPT插入、编辑、删除表格
现代学习和办公当中,经常会接触到对表格的运用,像各种单据.报表.账户等等.在PPT演示文稿中同样不可避免的应用到各种数据表格.对于在PPT中插入表格,我发现了一个新方法,不过我用到了一款免费的.NET ...
-
教你如何将word中的表格完美粘贴到ppt中
经常操作办公软件的人一定有一个困惑,ppt本身表格编辑能力似乎很弱,如果从word里直接将一个编辑好的表格复制粘贴到ppt中,整个表格一定会发生让你没有预料的变化,还得重新花老大的劲去重新编辑,有人屛 ...
随机推荐
-
Android开发学习之路-SnackBar使用心得
SnackBar是DesignSupportLibrary中的一个重要的控件,用于在界面下面提示一些关键信息,跟Toast不同的地方是SnackBar允许用户向右滑动消除它,同时,也允许在SnackB ...
-
C#:涉及DPI的高分辨率下的显示问题
一.背景 在PC机上显示正常,在高分辨率下的Pad上,显示出现问题: 1.显示在屏幕最右端的窗体(控件)显示不出来: 2.截图时,被截图的界面字体文字变大,界面因此显示不全. 二.解决方法: 方法一: ...
-
Boost::thread库的使用
阅读对象 本文假设读者有几下Skills [1]在C++中至少使用过一种多线程开发库,有Mutex和Lock的概念. [2]熟悉C++开发,在开发工具中,能够编译.设置boost::thread库. ...
-
OJ随笔——【1102-海明距离】——位运算
题目如下: Description 海明距离是在指二进制情况下,一个整数变成另外一个整数需要翻转的位数.比如2转换到3需要翻转1位,所以2到3的海明距离是1.给你两个正整数x和y,(x,y<=1 ...
-
Java面试题—中级（中）
什么是线程死锁?死锁如何产生?如何避免线程死锁? 死锁的介绍: 线程死锁是指由于两个或者多个线程互相持有对方所需要的资源,导致这些线程处于等待状态,无法前往执行.当线程进入对象的synchro ...
-
Teradata Delete Database and Drop Database
DELETE DATABASE and DELETE USER statements delete all data tables, views, and macros from a database ...
-
C++进阶--命名空间和关键字using
//############################################################################ /* * C++关键字:using * * ...
-
nginx配置文件 nginx.conf 说明
#user nobody; #开启进程数 <=CPU数 worker_processes 1; #错误日志保存位置 #error_log logs/error.log; #error_log ...
-
Where To Buy -- proposed by Renqian Luo
Need 周末在公司加班,公司食堂不开饭,就会想到点外卖.手机里好多外卖APP,同样的店家在不同平台的优惠活动可能不一样,A这边满20减10,B那边满20只减5,但是那边好像有优惠券可以用唉,等等,C ...
-
Spring retry实践
在开发中,重试是一个经常使用的手段.比如MQ发送消息失败,会采取重试手段,比如工程中使用RPC请求外部服务,可能因为网络波动出现超时而采取重试手段......可以看见重试操作是非常常见的一种处理问题, ...