C#/VB.NET 创建图片超链接

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

超链接(Hyperlink)可以看做是一个“热点”，它可以从当前Web页定义的位置跳转到其他位置，包括当前页的某个位置、Internet、本地硬盘或局域网上的其他文件，甚至跳转到声音、图片等多媒体文件。浏览Web页是超链接最普遍的一种应用，通过超链接还可以获得不同形态的服务，如文件传输、资料查询、电子函件、远程访问等。那么可以直接在Word中添加超链接，当然你也可以选择对图片添加超链接。并且图片超链接更富有趣味性和设计感，更容易吸引读者增加点击率。本文将通过C#程序代码示例做详细介绍，并附上VB.NET代码供参考。下面是具体方法和步骤。

dll文件安装（3种方法）

1.通过NuGet安装dll（2种方法）

1.1可以在Visual Studio中打开“解决方案资源管理器”，鼠标右键点击“引用”，“管理NuGet包”，然后搜索“Free Spire.Doc”，点击“安装”。等待程序安装完成。

1.2将以下内容复制到PM控制台安装。

Install-Package FreeSpire.Doc -Version 9.9.7

2.手动添加dll引用

可通过手动下载包到本地，然后解压，找到BIN文件夹下的Spire.Doc.dll。然后在Visual Studio中打开“解决方案资源管理器”，鼠标右键点击“引用”，“添加引用”，将本地路径BIN文件夹下的dll文件添加引用至程序。

代码思路

创建图片超链接时可参考如下步骤：

创建Document类的对象，并通过Document.LoadFromFile()方法加载Word文档。
添加文章段落并通过Image.FromFile（）加载图像为DocPicture对象
然后通过paragraph.AppendHyperlink（）方法对图片添加超链接

最后，调用doc.SaveToFile（）方法保存文档

using System;
using System.Drawing;
using Spire.Doc;
using Spire.Doc.Documents;
using Spire.Doc.Fields;namespace ConsoleApp6
{
class Program
{
static void Main(string[] args)
{
//加载文档
string input = "BlankTemplate.docx";
Document doc = new Document();
doc.LoadFromFile(input); Section section = doc.Sections[0];
//添加文章段落
Paragraph paragraph = section.AddParagraph();
//加载图像为DocPicture对象
Image image = Image.FromFile("Spire.Doc.png");
DocPicture picture = new DocPicture(doc);
//对段落添加图片超链接
picture.LoadImage(image);
paragraph.AppendHyperlink("https://www.e-iceblue.com/Introduce/word-for-net-introduce.html", picture, HyperlinkType.WebLink); //保存文档
string output = "CreateImageHyperlink.docx";
doc.SaveToFile(output, FileFormat.Docx);

VB.NET

Imports System
Imports System.Drawing
Imports Spire.Doc
Imports Spire.Doc.Documents
Imports Spire.Doc.FieldsNamespace ConsoleApp6 Class Program Private Shared Sub Main(ByVal args() As String)
'加载文档
Dim input As String = "BlankTemplate.docx"
Dim doc As Document = New Document
doc.LoadFromFile(input)
Dim section As Section = doc.Sections(0)
'添加文章段落
Dim paragraph As Paragraph = section.AddParagraph
'  加载图像为DocPicture对象
Dim image As Image = Image.FromFile("Spire.Doc.png")
Dim picture As DocPicture = New DocPicture(doc)
'对段落添加图片超链接
picture.LoadImage(image)
paragraph.AppendHyperlink("https://www.e-iceblue.com/Introduce/word-for-net-introduce.html", picture, HyperlinkType.WebLink)
'保存文档
Dim output As String = "CreateImageHyperlink.docx"
doc.SaveToFile(output, FileFormat.Docx)
End Sub
End Class
End Namespace