C#/VB.NET: Add Hyperlinks to Excel

PM> Install-Package Spire.XLS

using Spire.Xls;

namespace AddTextHyperlinks
{
    class Program
    {
        static void Main(string[] args)
        {
            //Create a Workbook instance
            Workbook workbook = new Workbook();

            //Get the first worksheet
            Worksheet sheet = workbook.Worksheets[0];

            //Add a text hyperlink that leads to a webpage
            CellRange cell1 = sheet.Range["B3"];
            HyperLink urlLink = sheet.HyperLinks.Add(cell1);
            urlLink.Type = HyperLinkType.Url;
            urlLink.TextToDisplay = "Link to a website";
            urlLink.Address = "https://www.google.com/";

            //Add a text hyperlink that leads to an email address
            CellRange cell2 = sheet.Range["E3"];
            HyperLink mailLink = sheet.HyperLinks.Add(cell2);
            mailLink.Type = HyperLinkType.Url;
            mailLink.TextToDisplay = "Link to an email address";
            mailLink.Address = "mailto:[email protected]";

            //Add a text hyperlink that leads to an external file
            CellRange cell3 = sheet.Range["B7"];
            HyperLink fileLink = sheet.HyperLinks.Add(cell3);
            fileLink.Type = HyperLinkType.File;
            fileLink.TextToDisplay = "Link to an external file";
            fileLink.Address = "C:\\Users\\Administrator\\Desktop\\Report.xlsx";

            //Add a text hyperlink that leads to a cell in another sheet
            CellRange cell4 = sheet.Range["E7"];
            HyperLink linkToSheet = sheet.HyperLinks.Add(cell4);
            linkToSheet.Type = HyperLinkType.Workbook;
            linkToSheet.TextToDisplay = "Link to a cell in sheet2";
            linkToSheet.Address = "Sheet2!B5";

            //Add a text hyperlink that leads to a UNC address
            CellRange cell5 = sheet.Range["B11"];
            HyperLink uncLink = sheet.HyperLinks.Add(cell5);
            uncLink.Type = HyperLinkType.Unc;
            uncLink.TextToDisplay = "Link to a UNC address";
            uncLink.Address = "\\\\192.168.0.121";

            //Autofit column width
            sheet.AutoFitColumn(2);
            sheet.AutoFitColumn(5);

            //Save the result file
            workbook.SaveToFile("AddTextHyperlinks.xlsx", ExcelVersion.Version2013);
        }
    }
}

Imports Spire.Xls

Namespace AddTextHyperlinks
    Friend Class Program
        Private Shared Sub Main(ByVal args As String())
            'Create a Workbook instance
            Dim workbook As Workbook = New Workbook()

            'Get the first worksheet
            Dim sheet As Worksheet = workbook.Worksheets(0)

            'Add a text hyperlink that leads to a webpage
            Dim cell1 As CellRange = sheet.Range("B3")
            Dim urlLink As HyperLink = sheet.HyperLinks.Add(cell1)
            urlLink.Type = HyperLinkType.Url
            urlLink.TextToDisplay = "Link to a website"
            urlLink.Address = "https://www.google.com/"

            'Add a text hyperlink that leads to an email address
            Dim cell2 As CellRange = sheet.Range("E3")
            Dim mailLink As HyperLink = sheet.HyperLinks.Add(cell2)
            mailLink.Type = HyperLinkType.Url
            mailLink.TextToDisplay = "Link to an email address"
            mailLink.Address = "mailto:[email protected]"

            'Add a text hyperlink that leads to an external file
            Dim cell3 As CellRange = sheet.Range("B7")
            Dim fileLink As HyperLink = sheet.HyperLinks.Add(cell3)
            fileLink.Type = HyperLinkType.File
            fileLink.TextToDisplay = "Link to an external file"
            fileLink.Address = "C:\\Users\\Administrator\\Desktop\\Report.xlsx"

            'Add a text hyperlink that leads to a cell in another sheet
            Dim cell4 As CellRange = sheet.Range("E7")
            Dim linkToSheet As HyperLink = sheet.HyperLinks.Add(cell4)
            linkToSheet.Type = HyperLinkType.Workbook
            linkToSheet.TextToDisplay = "Link to a cell in sheet2"
            linkToSheet.Address = "Sheet2!B5"

            'Add a text hyperlink that leads to a UNC address
            Dim cell5 As CellRange = sheet.Range("B11")
            Dim uncLink As HyperLink = sheet.HyperLinks.Add(cell5)
            uncLink.Type = HyperLinkType.Unc
            uncLink.TextToDisplay = "Link to a UNC address"
            uncLink.Address = "\\\\192.168.0.121"

            'Autofit column width
            sheet.AutoFitColumn(2)
            sheet.AutoFitColumn(5)

            'Save the result file
            workbook.SaveToFile("AddTextHyperlinks.xlsx", ExcelVersion.Version2013)
        End Sub
    End Class
End Namespace

using Spire.Xls;

namespace AddImageHyperlinks
{
    class Program
    {
        static void Main(string[] args)
        {
            //Create a Workbook instance
            Workbook workbook = new Workbook();
            //Get the first worksheet 
            Worksheet sheet = workbook.Worksheets[0];

            //Insert an image into the worksheet
            ExcelPicture picture = sheet.Pictures.Add(5, 3, "Logo.png");
            sheet.Columns[2].ColumnWidth = 11;
            sheet.Rows[4].RowHeight = 60;

            //Add a hyperlink to the image 
            picture.SetHyperLink("https://www.e-iceblue.com", true);
            
            //Save the result file
            workbook.SaveToFile("AddImageHyperlink.xlsx", ExcelVersion.Version2013);
        }
    }
}

Imports Spire.Xls

Namespace AddImageHyperlinks
    Friend Class Program
        Private Shared Sub Main(ByVal args As String())
            'Create a Workbook instance
            Dim workbook As Workbook = New Workbook()
            'Get the first worksheet 
            Dim sheet As Worksheet = workbook.Worksheets(0)

            'Insert an image into the worksheet
            Dim picture As ExcelPicture = sheet.Pictures.Add(5, 3, "Logo.png")
            sheet.Columns(2).ColumnWidth = 11
            sheet.Rows(4).RowHeight = 60

            'Add a hyperlink to the image 
            picture.SetHyperLink("https://www.e-iceblue.com", True)

            'Save the result file
            workbook.SaveToFile("AddImageHyperlink.xlsx", ExcelVersion.Version2013)
        End Sub
    End Class
End Namespace