Excel VBA调整QR码尺寸报Worksheet_Calculate重名错误如何修复

Ambiguous name detected: Worksheet_Calculate() 触发原因是VBA规定同一个工作表模块中不允许存在多个同名的事件过程。你为了适配多个QR码重复复制Worksheet_Calculate()过程，导致VBA检测到重复定义，抛出名称歧义错误。
另外你原有代码还存在两个隐性问题：

• 形状名称未加英文双引号，Array(MY_QR_CODE_A1)会被识别为未定义变量，后续也会触发运行错误
• QR生成函数里硬编码只裁剪A1位置的QR码，其他位置生成的QR码不会自动裁掉白边

不要重复创建同名事件过程，将所有QR码的尺寸调整逻辑合并到同一个Worksheet_Calculate()中即可，同时可以优化原有硬编码问题，适配多QR码场景。

优化后的QR码生成函数 #

替换原有写死A1裁剪逻辑的代码，自动适配任意调用位置生成的QR码：

Function GenerateQR(qrcode_value As String)
    Dim URL As String
    Dim My_Cell As Range
    Dim shapetocrop As Shape
    Dim origHeight As Single
    Dim croppoints As Single
    
    Set My_Cell = Application.Caller
    URL = "https://chart.googleapis.com/chart?chs=100x100&&cht=qr&chl=" & qrcode_value
    
    ' 清除同位置旧QR码
    On Error Resume Next
    ActiveSheet.Pictures("My_QR_CODE_" & My_Cell.Address(False, False)).Delete
    On Error GoTo 0
    
    ' 插入新QR码并对齐到目标单元格
    ActiveSheet.Pictures.Insert(URL).Select
    With Selection.ShapeRange(1)
        .Name = "My_QR_CODE_" & My_Cell.Address(False, False)
        .Left = My_Cell.Left
        .Top = My_Cell.Top
    End With
    GenerateQR = ""
    
    ' 自动裁剪当前QR码的白边
    Set shapetocrop = ActiveSheet.Shapes("My_QR_CODE_" & My_Cell.Address(False, False))
    With shapetocrop.Duplicate
        .ScaleHeight 1, True
        origHeight = .Height
        .Delete
    End With
    croppoints = origHeight * 17 / 100
    shapetocrop.PictureFormat.CropLeft = croppoints
    shapetocrop.PictureFormat.CropRight = croppoints
    shapetocrop.PictureFormat.CropTop = croppoints
    shapetocrop.PictureFormat.CropBottom = croppoints
End Function

合并后的尺寸调整事件代码 #

将所有QR码的尺寸调整逻辑放在同一个Worksheet_Calculate()过程中，推荐用循环批量处理，无需逐个修改形状名称：

Private Sub Worksheet_Calculate()
    Dim targetSize As Single
    Dim qrShape As Shape
    ' 读取F1单元格配置的统一QR码尺寸
    targetSize = Range("F1").Value
    
    ' 循环遍历当前表所有形状，批量调整所有QR码尺寸
    For Each qrShape In ActiveSheet.Shapes
        ' 匹配所有自动生成的QR码（名称以My_QR_CODE_开头）
        If Left(qrShape.Name, 11) = "My_QR_CODE_" Then
            qrShape.LockAspectRatio = msoTrue ' 锁定纵横比避免拉伸变形
            qrShape.Width = targetSize
            qrShape.Height = targetSize
        End If
    Next qrShape
End Sub

• 所有工作表级事件过程（包括Worksheet_Calculate、Worksheet_Change等）在单个工作表模块中只能存在一个，多逻辑需求全部合并到同一个过程内即可。
• 上述批量处理逻辑会自动适配后续新增的QR码，不需要每次新增标签就修改事件代码，更符合多操作员使用的防呆设计要求。
• 形状名称必须用英文双引号包裹，否则VBA会将其识别为变量而非字符串名称，触发运行错误。

内容的提问来源于stack exchange，提问作者Ossraff