C#/VB.NET對EXCEL圖片添加超連結

標籤：.net   c#   超連結   

在日常工作中，在編輯文檔時，為了方便自己或者Boss能夠即時查看到需要的網頁或者文檔時，需要對在Excel中輸入的相關文字進行超連結，那麼對於一些在Excel中插入的圖片我們該怎麼實現超連結呢，下面給大家分享一個方法：

首先簡單瞭解一下一款叫Spire.XLS的組件，這個組件是由E-iceblue公司發布的一款獨立的Excel組件，它的最大優點在於不依賴Microsoft Excel,可以用在各種 .NET 架構中，包括 ASP.NET 和 Windows Forms 等相關的 .NET 應用程式,功能齊全，而且便於使用。有興趣的朋友可以上E-iceblue官網瞭解詳細內容，也可以在該網站上下載免費版Excel組件。

使用C#為Excel中的圖片進行超連結，可以參考我下面的操作步驟，這裡需要使用到一些代碼，但只需要幾步就可以完成：

步驟一：建立一個活頁簿，擷取第一個工作表

Workbook wb = new Workbook();Worksheet sheet = wb.Worksheets(0);

  步驟二：在特定儲存格內添加常值內容

sheet.Range("A1").Text = "Excel圖片超連結";sheet.Range("A1").Style.VerticalAlignment = VerticalAlignType.Top;

 

 步驟三：插入圖片並添加超連結

string picPath = "C:\\Users\\Administrator\\Desktop\\tupian.jpg";ExcelPicture picture = sheet.Pictures.Add(1, 1, picPath);picture.SetHyperLink("https://github.com/", true);

  

  步驟四：設定第一列寬度和第一行高度

sheet.Columns[0].ColumnWidth = 30;sheet.Rows[0].RowHeight = 150;picture.TopRowOffset = 25;

  步驟五：儲存檔案

wb.SaveToFile("ImageHyperlink.xlsx", ExcelVersion.Version2013);

操作完成後得到以下輸出結果：

650) this.width=650;" src="https://s5.51cto.com/wyfs02/M02/A4/D4/wKioL1myOauhdxcAAACe85A9mwc950.png" title="超連結.png" alt="wKioL1myOauhdxcAAACe85A9mwc950.png" width="720" height="414" border="0" hspace="0" vspace="0" style="width:720px;height:414px;" />所以，實現對圖片的超連結，只需要完成以上幾個步驟就可以了。

同樣的道理，在VB.NET中，也可以實現對Excel圖片的超連結。

 

完整的代碼如下，供參考：

C#:

using Spire.Xls;using System.Text;using System.Linq;using System.Collections.Generic;using System;namespace Excel_image_hyperlink {        class Program {                private static void Main(string[] args)         {            Workbook wb = new Workbook();            Worksheet sheet = wb.Worksheets(0);            sheet.Range("A1").Text = "Excel圖片超連結";            sheet.Range("A1").Style.VerticalAlignment = VerticalAlignType.Top;            string picPath = "C:\\Users\\Administrator\\Desktop\\tupian.jpg";            ExcelPicture picture = sheet.Pictures.Add(1, 1, picPath);            picture.SetHyperLink("https://github.com/", true);            sheet.Columns[0].ColumnWidth = 30;            sheet.Rows[0].RowHeight = 150;            picture.TopRowOffset = 25;            wb.SaveToFile("ImageHyperlink.xlsx", ExcelVersion.Version2013);        }    }}

VB.NET:

Imports SystemImports System.Collections.GenericImports System.LinqImports System.TextImports Spire.XlsNamespace Excel_image_hyperlink        Class Program                Private Shared Sub Main(ByVal args() As String)            Dim wb As Workbook = New Workbook            Dim sheet As Worksheet = wb.Worksheets(0)            sheet.Range("A1").Text = "Excel圖片超連結"            sheet.Range("A1").Style.VerticalAlignment = VerticalAlignType.Top            Dim picPath As String = "C:\Users\Administrator\Desktop\tupian.jpg"            Dim picture As ExcelPicture = sheet.Pictures.Add(1, 1, picPath)            picture.SetHyperLink("https://github.com/", true)            sheet.Columns(0).ColumnWidth = 30            sheet.Rows(0).RowHeight = 150            picture.TopRowOffset = 25            wb.SaveToFile("ImageHyperlink.xlsx", ExcelVersion.Version2013)        End Sub    End ClassEnd Namespace

 

希望這個方法對你有所協助。

感謝閱讀！

C#/VB.NET對EXCEL圖片添加超連結