使用OFFICE自带控件在EXCEL中批量插入二维码以及条码

经常在工作中我们需要在电子表格中插入二维码或者条码，在office早期直接下载条码字体就能解决问题，而在以后版本中需要 Microsoft BarCode Control （根据office版本不同有不同的版本）一般office的专业版都带有这个控件，如果没有可以自己下载安装。如果安装完成后可以按照以下的步骤完成条码或者二维码的批量生成。

1 如果生成单个二维码，按照下图打开开发工具菜单

再按照下图选择控件Microsoft BarCode Control 直接插入到相应的单元格，设置属性可以设置关联单元格或Value就可以生成二维码，可以通过修改属性，产生不同的编码。根据以往经验像批量生成二维码，将单元格向下拖拽时发现生成的二维码都是相同的值，说明对于控件而言这种简单的办法是没有办法批量生成二维码。

2批量生成二维码这时就需要借助VBA代码实现批量生成二维码

2.1第一步先在单元格中插入一个二维码不做任何设置

2.2将以下代码先拷贝到电子表格的VBA编辑器中

2.3再到开发工具中插入表单控件《按钮》选择与批量生成二维码函数关联，就可以再第二列生成第一列的二维码，如果有兴趣可将以下每个函数关联一个按钮，方便使用。二维码的大小可以修改以下函数中属性。以下的代码有注释，可以方便的根据自己需求进行修改。

Sub 清除()
Dim pic As Shape
With Sheet1
For Each pic In .Shapes
If pic.Type = 12 Then pic.Delete '删除sheet1中所有二维码图片'
Next pic
End With
End Sub

Sub 批量生成二维码()
Dim k As Long, i As Long
Call 清除
k = ActiveSheet.Range("A65536").End(xlUp).Row
For i = 1 To k
With ActiveSheet.OLEObjects.Add(ClassType:="BARCODE.BarCodeCtrl.1") '新增控件 '控件的属性
.Left = ActiveSheet.Cells(i, 1).Width + 2
.Top = ActiveSheet.Cells(i, 1).Top + 2
.Width = 70
.Height = 70 '链接的参数单元格
.Object.Style = 11 '二维码
.Object.ShowData = 1
.LinkedCell = "A" & i
End With
Next
End Sub
Sub 批量生成条形码()
Dim k As Long, i As Long
Call 清除
k = ActiveSheet.Range("A65536").End(xlUp).Row
For i = 1 To k
With ActiveSheet.OLEObjects.Add(ClassType:="BARCODE.BarCodeCtrl.1") '新增控件控件的属性'
.Left = ActiveSheet.Cells(i, 1).Width + 2
.Top = ActiveSheet.Cells(i, 1).Top + 2
.Width = 150
.Height = 50 '链接的参数单元格’
.Object.Style = 7
.Object.ShowData = 1
.LinkedCell = "A" & i
End With
Next
End Sub
Sub 导出二维码条形码()
Dim ad$, m&, mc$, shp As Shape
Dim nm$, n&, myFolder$
n = 0
myFolder = ThisWorkbook.Path & "\二维码图片\" '指定文件夹名称
For Each shp In ActiveSheet.Shapes
If shp.Type = 12 Then
If Len(Dir(myFolder, vbDirectory)) = 0 Then
MkDir myFolder
End If
n = n + 1
m = shp.TopLeftCell.Row
mc = Cells(m, 1) '
If code_name = "" Then
nm = mc & ".jpg" '图形对象的名字'
Else
nm = ActiveSheet.Cells(m, code_name) & ".jpg"
End If
shp.CopyPicture '将图形对象复制到剪切板'
With ActiveSheet.ChartObjects.Add(0, 0, shp.Width, shp.Height).Chart '在工作表中添加一个图表对象 '
.Parent.Select
.Paste '代码将剪切板中的图形对象以图片的格式粘贴到新添加的图表中
.Export myFolder & nm
.Parent.Delete '删除工作表中添加的图表对象'
End With
End If
Next
End Sub

使用OFFICE自带控件在EXCEL中批量插入二维码以及条码相关推荐

Excel怎么批量生成二维码图片？
1.在excel中单元格中录入二维码信息 2.选中数据单元格区域,然后点击[图片工具]选项 3.点击[批量生成] 4.在[保存到区域]选项中录入F2 5.最后鼠标点击[确定]即可完成 ...
Excel如何批量提取二维码图片中的信息？
1.首先我们选中二维码图片单元格区域 2.然后点击[图片工具] 3.选择[批量解码] 4.选择保存区域为E2单元格 5.最后我们点击[确定]即可完成 6.完成效果如下图
速码工具箱，Excel批量生成二维码，瞬间搞定！
之前写过一篇文章,<批量生成二维码>,当时介绍了VBA中两种生成二维码的方式,一种需要引用QRmaker控件,一种是纯代码生成的方式.但是这两种方式都有一个最大的bug--不支持64位. ...
Excel竟然可以批量解锁二维码内容的操作
今天小编要分享的操作是,Excel可以批量解锁二维码内容的操作,如下图所示,某销售公司为了保密销量信息呢,将其中的销量信息生成二维码,希望能通过扫码来获得对应的销量.那现在呢,为了统一做汇报工作,需要 ...
向Excel中批量插入图片，自动排版
一.安装软件向Excel中批量插入图片,需要用到一个工具"E灵",您只需百度搜索"罗刚君E灵" 5个字即可找到下载地址,也可以在以下网站找到: http:// ...
word/excel/cad中插入二维码
1.有需求为在word文档中插入二维码,寻访度娘后,大部分人推荐使用QRmaker制作. 2.找寻QRmaker,网上很多都是1.1版本,后来才知道这个版本有问题(对中文支持不好),偶然得到1.3的版 ...
读取excel批量生成二维码
昨天工作需要,让生成二维码,让用草料生成,就需要一个个的复制粘贴,有点麻烦.关键是量特别大,如果传统的复制粘贴要很长时间才可以. 后来想到用程序生成.于是百度了一下生成二维码的方法,别说还很简单,把代 ...
如何从Excel表格导入数据批量生成二维码
目前二维码应用渐趋广泛,二维码具有储存量大.保密性高.追踪性高.抗损性强.备援性大.成本便宜等特性,这些特性特别适用于表单.安全保密.追踪.证照.存货盘点.资料备援等方面.那么我们怎么用条码打印软件从 ...
编程示例：表格程序开发的EXCEL方法，以二维码的数据容量计算为例
编程示例:表格程序开发的EXCEL方法,以二维码的数据容量计算为例在二维码的计算中,它的第一个表格是以版本号为参数,计算该版本下的数据容量. 表1如下: 在EXCEL中以公式的形式生成与上图一致的表 ...
如何从Excel表格导入数据批量生成二维码 1
目前二维码应用渐趋广泛,二维码具有储存量大.保密性高.追踪性高.抗损性强.备援性大.成本便宜等特性,这些特性特别适用于表单.安全保密.追踪.证照.存货盘点.资料备援等方面.那么我们怎么用条码打印软件从 ...

使用OFFICE自带控件在EXCEL中批量插入二维码以及条码

使用OFFICE自带控件在EXCEL中批量插入二维码以及条码相关推荐

最新文章

热门文章