• C# 设置Excel超链接(一)


    在日常工作中,在编辑文档时,为了方便自己或者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:UsersAdministratorDesktop	upian.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中,也可以实现对Excel图片的超链接。

    完整的代码如下,供参考:

    C#:

    using System;
    using System.Collections.Generic;
    using System.Linq;
    using System.Text;
    using Spire.Xls;
    namespace Excel_image_hyperlink
    {
        class Program
        {
            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:UsersAdministratorDesktop	upian.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:

    Imports System
    Imports System.Collections.Generic
    Imports System.Linq
    Imports System.Text
    Imports Spire.Xls
    
    Namespace 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:UsersAdministratorDesktop	upian.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 Class
    End Namespace

    希望这个方法对你有所帮助。

    感谢阅读!

  • 相关阅读:
    51nod 1412 AVL树的种类(经典dp)
    HDU 6141 I am your Father!(最小树形图+权值编码)
    POJ 3164 Command Network(最小树形图模板题+详解)
    HDU 6125 Free from square(状态压缩+分组背包)
    HDU 6143 Killer Names(容斥原理)
    CSU 1808 地铁(最短路变形)
    HDU 6128 Inverse of sum(同余)
    HDU 6121 Build a tree(完全K叉树)
    HDU 6129 Just do it(杨辉三角)
    HDU 6127 Hard challenge(扫描线)
  • 原文地址:https://www.cnblogs.com/Yesi/p/7485877.html
Copyright © 2020-2023  润新知