vb treeview 展開子節點_C# / VB.NET 在PPT中創建、編輯PPT SmartArt圖形

本文介紹通過C#和http://VB.NET程序代碼來創建和編輯PPT文檔中的SmartArt圖形。文中將分兩個操作示例來演示創建和編輯結果。

使用工具:Spire.Presentation for .NET hotfix 5.9.5

dll文件引用:

方式1:下載包;

Spire.Presentation for .NET | 下載?www.e-iceblue.cn
b68b8a50a225d5180f464050af29e4ef.png

下載后,解壓,打開Bin文件夾,根據自己用的.NET Framework選擇相應的文件夾,如:此示例中使用的是NET4.0,即打開NET4.0文件,找到Spire.Presentation.dll文件。找到dll文件后,vs程序中添加引用該dll。

如下引用結果:

66d42920c2017fa03a32bcda57d3b5e9.png

方式2:通過Nuget搜索下載導入。

Nuget?www.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");}}
}

圖形創建結果:

8c801fc4159554bcedc7846815a877a7.png

http://vb.net

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

添加超鏈接后,注意要在幻燈片播放下才可見超鏈接添加效果:

b110426649fca906de583d08c180d2f1.png

http://VB.NET

Imports 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

本文來自互聯網用戶投稿,該文觀點僅代表作者本人,不代表本站立場。本站僅提供信息存儲空間服務,不擁有所有權,不承擔相關法律責任。
如若轉載,請注明出處:http://www.pswp.cn/news/271043.shtml
繁體地址,請注明出處:http://hk.pswp.cn/news/271043.shtml
英文地址,請注明出處:http://en.pswp.cn/news/271043.shtml

如若內容造成侵權/違法違規/事實不符,請聯系多彩編程網進行投訴反饋email:809451989@qq.com,一經查實,立即刪除!

相關文章

mysql安裝教程8.0.21安裝,Windows系統下MySQL8.0.21安裝教程(圖文詳解)

安裝建議:盡量不要用.exe進行安裝,用壓縮包安裝,對日后的卸載/版本升級更為方便下載地址:https://dev.mysql.com/downloads/mysql/1、點擊上面的下載地址得到zip壓縮包2、解壓到要安裝的目錄我這里是E:\database\mysql8\mysql-8.0…

Java中 a+=b和a=a+b有什么區別?

一:性能方面 aab是加法運算 需要兩次尋找地址而ab是增量運算有寄存器優先時 只有一次地址查找。效率方面后者略高于前者 基于現在計算機的發展可忽略不計。 二:對于不同類型的a,b來說 1:不同類型的兩個變量在進行運算的時候,我們經常說到的…

事務管理:事務的狀態相關知識筆記

1、事務的幾個概念中止事務:事務在執行過程中發生故障,不能執行完成的事務。可以進行事務回滾,保持數據庫的一致性。事務回滾:將中止事務對數據庫的更新操作撤銷稱為事務回滾。已提交事務:成功執行完成的事務稱為已提交…

centos7 時間設置

安裝完成centos7后,雖然時區選擇的是上海,但是最終的時間還是不對,因為沒有開啟自動同步NTP功能,所以需要自動手動設置。 首先輸入timedatectl命令,查看當前機器的時間: Local time: 四 2016-08-25 18:52:5…

mysql符合安可要求嗎,安可是什么意思?演唱太過精彩,粉絲要求返場(再唱一個)...

解答:安可是指再唱一個的意思,最早是源自英語“Encore”,常被用在演唱會上,當最后一輪表演或演唱結束之后,粉絲就會開始大喊“安可”,就是想要再聽一場,這時歌手也會應粉絲的要求返場。安可是什…

事務管理基礎:數據庫的并發控制相關知識筆記

1、并發操作的概念介紹并發操作主要是指在多用戶共享的系統當中,可能存在很多用戶同時對同一個數據進行操作。并發操作會造成丟失更新、不可重復讀、讀臟數據。主要原因是事務的并發操作破壞了事務的隔離性。2、事務調度相關知識事務調度主要有串行調度、并發調度、…

Spring的AOP理解

Spring的AOP理解: OOP面向對象,允許開發者定義縱向的關系,但并適用于定義橫向的關系,導致了大量代碼的重復,而不利于各個模塊的重用。 AOP,一般稱為面向切面,作為面向對象的一種補充&#xff…

PHP 常用框架

1、ThinkPHP 2、Yii2 3、Laravel 4、CodeIgniter 5、CakePHP轉載于:https://www.cnblogs.com/baiqian/p/5808935.html

wpf 如何設置彈出窗口必須關閉才能打開其他軟件_5招教你如何清除C盤除系統外的所有垃圾!都學會了嗎?...

老毛桃winpe 2019-04-24 12:22:54 對于C盤,最讓我們頭疼的問題就是空間不足了!雖然知道C盤會存有很多垃圾,但由于C盤也是系統盤,我們只能可望不可及。那么,有什么辦法清除C盤除系統外的所有垃圾嗎?答案是…

事務管理基礎:排它鎖和共享鎖相關知識筆記

1、排它鎖、共享鎖出現的意義數據庫的并發事務對數據庫進行讀寫,可能會破壞事務的隔離性和數據一致性。為了保持事務的隔離性,系統必須對事務之間的相互作用加以控制。最典型的做法就是當一個事務訪問某個數據對象時,其他事務都不能更新該數據…

php對象底層結構,PHP 底層原理之類和對象

對于PHPer來說,OOP是不可或缺的開發思維,但是你對php類和對象的底層實現又了解多少呢?本著知其然且知其所以然的思想,讓我們一起來尋找答案~類的底層實現可看作是之前我們講過的變量、函數等的知識集合。所以想要理解更深入的同學…

程序默認在副屏顯示_聊一款性價比極高的電競顯示器

小米在6月17日開啟了小米顯示器27寸165Hz版本的眾籌,這臺顯示器的分辨率為2560x1440,也就是大家熟悉的小金剛,它與大金剛的最大區別也只是省去了G-Sync功能,而其他方面的參數幾乎是一致的。那么我們今天就來聊聊這款真香的顯示器。…

CocoaPods安裝和使用教程

CocoaPods是什么? 當你開發iOS應用時,會經常使用到很多第三方開源類庫,比如JSONKit,AFNetWorking等等。可能某個類庫又用到其他類庫,所以要使用它,必須得另外下載其他類庫,而其他類庫又用到其他…

事務管理基礎:兩段鎖協議、活鎖、死鎖相關知識整理

1、兩段鎖協議(Two-phase Locking Protocol) 兩段鎖協議是指對任何數據進行讀寫之前必須對數據進行加鎖;在釋放一個封鎖之后,事務不再申請和獲得任何其他封鎖。兩段鎖協議中兩段的含義:事務分為兩個階段,第…

php 空函數,PHP 中函數 isset(), empty(), is_null() 的區別

PHP 中函數 isset(), empty(), is_null() 的區別,使用 PHP 進行開發的時候,經常會用到 isset(), empty(), is_null() 這幾個函數對數據進行判斷,但是這是哪個函數的具體區別其實沒有很好的掌握。下面我們詳細講解一下:NULL什么是 NULL&#x…

UVa11021

11021 TribblesGRAVITATION, n.“The tendency of all bodies to approach one another with a strengthproportion to the quantity of matter they contain – the quantity ofmatter they contain being ascertained by the strength of their tendencyto approach one anot…

python合法變量類型_Python 變量類型

變量存儲在內存中的值。這就意味著在創建變量時會在內存中開辟一個空間。基于變量的數據類型,解釋器會分配指定內存,并決定什么數據可以被存儲在內存中。因此,變量可以指定不同的數據類型,這些變量可以存儲整數,小數或…

數據庫系統故障相關知識筆記

數據庫系統中可能發生的故障主要包括事務故障、系統故障、介質故障、計算機病毒等。下面給大家簡單整理一下相關的故障知識筆記。1、事務故障事務故障是因為程序執行錯誤而引起的非預期、異常終止的故障。主要有邏輯錯誤、系統錯誤導致事務的執行失敗。邏輯錯誤:比如…

dede php分頁代碼,DEDECMS系統分頁標簽自定義二次開發

以前有給大家寫過一篇自定義dedecms留言板的分頁,下面我再來給大家分享一篇自定義常見的分頁標簽例子,希望文章對大家會有所幫助.自定搜索結果頁面文章分頁,在/plus文件夾中新建一個search.php文件,代碼如下:require_once(dirname(__FILE__)."/../include/common.inc.php&…