VBA 制作二维码

chunyu.wu

于 2024-04-11 13:09:34 发布

阅读量1.6k

点赞数 3

分类专栏： VBA 文章标签： VBA

本文链接：https://blog.csdn.net/wuchunyu002/article/details/137635230

版权

VBA 专栏收录该内容

64 篇文章 4 订阅

订阅专栏

本文介绍了如何使用VBA在Excel中创建二维码，通过SubgenBarCode函数调用clearBarCode子程序清除原有内容，指定B1单元格的数据作为二维码内容，并调整二维码大小与A1单元格一致。

摘要由CSDN通过智能技术生成

假设从B1单元格取值，在A1单元格中生成二维码，
那么，代码如下↓

Sub genBarCode()
    '清除已有二维码
    Call clearBarCode
    With ActiveSheet.OLEObjects.Add(ClassType:="BARCODE.BarCodeCtrl.1")
        .Object.Style = 11    '二维码样式
        .Object.Value = Range("B1").Value    '二维码内容
        '二维码大小和单元格A1相同
        .Height = Cells(1, 1).Height
        .Width = Cells(1, 1).Width
        .Left = Cells(1, 1).Left
        .Top = Cells(1, 1).Top
    End With
End Sub

Sub clearBarCode()
    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
        If shp.Type = 12 Then shp.Delete
    Next
End Sub

生成的二维码如下↓