要生成条形码并保存到本地的，链接上一篇：https://blog.csdn.net/qq_40467670/article/details/120278050
 
 if (!col3.Equals("")){
	//在单元格中放入条形码
    byte[] bytes = System.IO.File.ReadAllBytes(fileSavePath.ToString());
    int pictureIdx = workbook.AddPicture(bytes, PictureType.JPEG);
    HSSFPatriarch patriarch = (HSSFPatriarch)sheet.CreateDrawingPatriarch();
    // 插图片的位置  HSSFClientAnchor（dx1,dy1,dx2,dy2,col1,row1,col2,row2) 后面再作解释
    HSSFClientAnchor anchor = new HSSFClientAnchor(1, 1, 1, 1, 4, 4 + jj, 5, 4 + jj + 1);
    //把图片插到相应的位置
    HSSFPicture pict = (HSSFPicture)patriarch.CreatePicture(anchor, pictureIdx);
}
 
其中HSSFClientAnchor的几个参数是
 HSSFClientAnchor（int dx1,int dy1,int dx2,int dy2,int col1,int row1,int col2,int row2)
 
dx1：图片左边相对excel格的位置(x偏移) 范围值为：0~1023；即输100 偏移的位置大概是相对于整个单元格的宽度的100除以1023大概是10分之一
 dy1：图片上方相对excel格的位置(y偏移) 范围值为：0~256
 dx2：图片右边相对excel格的位置(x偏移) 范围值为：0~1023
 dy2：图片下方相对excel格的位置(y偏移) 范围值为：0~256
 col1和row1：图片左上角的位置，以excel单元格为参考，比喻这两个值为(1,1)，那么图片左上角的位置就是excel表(1,1)单元格的右下角的点(A,1)右下角的点
 col2和row2：图片右下角的位置，以excel单元格为参考,比喻这两个值为(2,2)，那么图片右下角的位置就是excel表(2,2)单元格的右下角的点(B,2)右下角的点
 
效果如下图所示：
 

利用VBA将excel中链接转换为图片形式存放在指定的单元格中
 
VBA代码如下
 
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public Sub downloadandshow()
    Application.ScreenUpdating = False
    
    Dim iRow, i, s
    Dim savePath
    Dim arr As Variant
    
    Set fso = CreateObject("scripting.filesystemobject")
            '图片会存放到excel同一个位置下的图片文件夹中,可以自己修改名称
    savePath = ThisWorkbook.Path & "\图片"
    
    If fso.folderexists(savePath) Then
        fso.deletefolder savePath
    End If
    
    MkDir savePath
    
    i = 2
    'cell(i,1)代表将图片链接存在第i行第1列中
    Do While Cells(i, 1) <> ""
        URLDownloadToFile 0, Cells(i, 1).Value, savePath & "\" & i & ".jpg", 0, 0
        'cell(i,1)将生成的图片放在那里
        Cells(i, 2).Select
        ActiveSheet.Pictures.Insert(savePath & "\" & i & ".jpg").Select
        Selection.ShapeRange.LockAspectRatio = msoFalse
        '设置图片的高度和宽度
        Selection.ShapeRange.Height = 20
        Selection.ShapeRange.Width = 40
        i = i + 1
    Loop
    
    Application.ScreenUpdating = True
End Sub
 
将WPS或者Excel office中安装宏工具
 
这一步网上的教程很多,这里贴一个超链接直接下载安装即可
 
 
重启excel
 
这里我用的是wps,同理
 
开始操作
 
 
打开开发工具
 
 
开启宏工具
 
 
打开VB编辑器
 
 
右键sheet1(也可以是你要编辑的其他sheet工作表)
 
 
点击导入
 
 
 
将以上代码编辑为一个.bas结尾的文件
 
 
选择导入1.bas
 
 
导入成功
 
 
退出界面
 
 
点击宏
 
 

 11. 双击或运行downloadandshow程序
 
 
成功运行
 
 
心得
 
你可以自己根据自己实际情况所需要,来自己编写修改源代码来完美的完成项目所需 ,代码中均有所注释。

参考链接： Python | 使用openpyxl模块在Excel工作表中绘制图表 2
 
使用openpyxl模块向Excel中插入图片
 
 示例Python实现结果展示
 
   
 
  
 
 
 
 
 
 
 
示例 
 
向一个Excel表格中A1位置插入一张图片。 
 
Python实现 
 
from openpyxl import load_workbook
 
from openpyxl.drawing.image import Image
 
 
 
 
 
def insertimg2excel(imgPath, excelPath):
 
    imgsize = (720 / 4, 1280 / 4)  # 设置一个图像缩小的比例
 
    wb = load_workbook(excelPath)
 
    ws = wb.active
 
    ws.column_dimensions['A'].width = imgsize[0] * 0.14  # 修改列A的宽
 
 
 
    img = Image(imgPath)  # 缩放图片
 
    img.width, img.height = imgsize
 
 
 
    ws.add_image(img, 'A1')  # 图片 插入 A1 的位置上
 
    ws.row_dimensions[1].height = imgsize[1] * 0.78  # 修改列第1行的宽
 
 
 
    wb.save('out.xlsx')  # 新的结果保存输出
 
 
 
 
 
if __name__ == '__main__':
 
    imgPath = '001.jpg'
 
    excelPath = 'test.xlsx'
 
    insertimg2excel(imgPath, excelPath)
 
 
 
结果展示 
 
 
 
声明： 总结学习，有问题或不当之处，可以批评指正哦，谢谢。

最开始是看了一个b站视频，他采用了python加vba实现了将一个图片转化在excel表格当中。https://www.bilibili.com/video/av55033139?t=300
 首先是python代码
 这里有个相对陌生的模块pIL（Python Imaging Library），pip install Pillow即可安装
 这里分析标量图里各个像素的rgb值，并生成一个txt文件
 
from PIL import Image
imload=Image.open("C:/Users/thinkpad/Desktop/sunmei.jpg")
im=imload.convert("RGB")
width,height=im.size
print(1)
demo=open('rgb2.txt','a')
for y in range(height):
    for x in range(width):
        rgb=im.getpixel((x,y))
        rgb=str(rgb)
        demo.write(rgb[1:-1]+"\t")
    demo.write("\n")
demo.close()
 
然后用excel将该txt文件打开，进入代码界面，
 
Sub set_rgb()
    Dim r As Range, arr
    For Each r In Range("A:AOQ")
        arr = Split(r, ",")
        r.Interior.Color = RGB(CInt(arr(0)), CInt(arr(1)), CInt(arr(2)))
    Next
    
End Sub
 
这里的AOQ是根据txt最右边的列名决定的（一定要看清楚！！！），由于这个vba编的有点问题，最后会报错提示下标越界，但是不影响正常结果出现，我也就没纠正。最后将列宽改成2.1-2.2左右（用来使每个单元格近似成一个正方形），最后的最后将每个单元格的数据删除就行了。
 
 效果如下
 
 继续放大看，由一个类似像素点的单元格组合而成。
 
 
当然这个是可以优化的，一是没必要保存成txt，直接保存成xlsx即可；二是vba实现的将单元格设置背景颜色的步骤也可以用python实现。整体的思路是先将rgb值直接转移到excel对应的单元格上，这一点用xlwt本应该很简单就能做到，但是！！！！xlwt只支持256列，目前一般的图片都比这个大，所以用xlwt就不行，所以我后来采用的是openpyxl，openpyxl功能很强大，能够设置字体、颜色等各种东西。经过我的研究发现他的设置颜色的值就是#加上十六进制的rgb（真是难为我这个对颜色，rgb啥的一窍不通的小白了），然后保存就比较简单了，最终优化代码如下所示;
 
from PIL import Image
import xlwt
import openpyxl
from openpyxl.styles import PatternFill
#因为xlwt无法输入超过256列的数据，所以在这采用oppyxl
imload=Image.open("C:/Users/thinkpad/Desktop/tiananmenguangchang.jpg")
im=imload.convert("RGB")
width,height=im.size
print(1)
xls=openpyxl.Workbook()
demo = xls.create_sheet(u'天安门广场')
#demo = xls.get_sheet_by_name(u'天安门广场')
#转化函数，由于部分十进制数转化为十六进制会是三位数比如lex（10）=0xa，,需要补0，把它变成Ox0a
def changergb(x):
    if len(x)==3:
        x='0x0'+x[-1]
    return(x)
for y in range(1,height-1):
    for x in range(1,width-1):
        rgb=im.getpixel((x,y))
        #print(rgb[0],rgb[1],rgb[2])
        r=changergb(hex(rgb[0]))
        g = changergb(hex(rgb[1]))
        b = changergb(hex(rgb[2]))
        cellcolor = (r + g + b).replace('0x', '')
        #print(cellcolor)
        rgb=str(rgb)
        fill = PatternFill("solid", fgColor=cellcolor)
        demo.cell(row=y, column=x).value=rgb[1:-1]#向单元格写入rgb值，其实已经没必要，可以注释掉
        demo.cell(row=y, column=x).fill=fill#想单元格设置填充值
xls.save(filename='tiananmenguangchagn.xlsx')

 
最后用pyinstaller将这些代码打包成了一个exe文件，不需要安装python啥的就能直接使用转化，就是有点大（60m左右）感兴趣的人可以自行提取 链接：https://pan.baidu.com/s/1PZS_5mztMoCXkSLrRJ6tmw
 提取码：1chb