欢迎来到 黑吧安全网 聚焦网络安全前沿资讯,精华内容,交流技术心得!

VB.NET/C#对EXCEL的图片增加超级链接

来源:本站整理 作者:佚名 时间:2017-09-08 TAG: 我要投稿

在平常的工作当中,在编纂文档时,为了便利本身或许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);
操纵完成后获得如下输出成果:

以是,完成对图片的超链接,只必要完成以上几个步调就可以或许了。
异样的事理,在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 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:\Users\Administrator\Desktop\tupian.jpg"
            Dim picture As ExcelPicture = sheet.Pictures.Add(1, 1, picPath)
            picture.SetHyperLink("https://github.com/", true)

[1] [2]  下一页

【声明】:黑吧安全网(http://www.myhack58.com)登载此文出于传递更多信息之目的,并不代表本站赞同其观点和对其真实性负责,仅适于网络安全技术爱好者学习研究使用,学习中请遵循国家相关法律法规。如有问题请联系我们,联系邮箱admin@myhack58.com,我们会在最短的时间内进行处理。
  • 最新更新
    • 相关阅读
      • 本类热门
        • 最近下载