我来帮你解决这个棘手的问题！结合分组控件的正确设置、调整VBA代码逻辑，再加专门的墨迹清除处理，这一套方案应该能完美解决你的需求：

一、先解决控件随机缩放的问题（分组后的关键设置） #

分组是正确的思路，但要给分组控件设置好属性才能彻底解决缩放问题：

1. 选中所有需要的ActiveX控件（复选框、组合框），右键选择组合 -> 组合
2. 选中这个分组，按F4打开属性窗口，修改这几个核心属性：
   • Locked：设为True（防止误拖动控件）
   • ScaleWithDocument：设为True（让控件跟着文档缩放比例同步调整，彻底解决随机缩放）
   • Placement：设为xlMoveAndSize（确保单元格大小变化时，控件跟着移动和调整尺寸）
   • PrintObject：设为True（如果需要打印这些控件的话）

二、修复分组后“全部清除”命令的异常 #

原来的代码可能是直接操作单个控件，分组后控件的归属关系变了，需要调整代码来遍历分组内的控件：

替换你的“全部清除”VBA代码： #

Sub 全部清除()
    Dim ctrlGroup As Shape
    Dim targetCtrl As OLEObject
    
    ' 替换成你的分组控件名称（可以在Excel顶部名称框查看）
    Set ctrlGroup = ThisWorkbook.ActiveSheet.Shapes("FormControlsGroup")
    
    ' 遍历工作表内所有ActiveX控件，筛选分组内的目标控件
    For Each targetCtrl In ThisWorkbook.ActiveSheet.OLEObjects
        ' 分组后的控件名称会带有分组前缀，比如"FormControlsGroup_CheckBox1"
        If InStr(targetCtrl.Name, ctrlGroup.Name) > 0 Then
            Select Case TypeName(targetCtrl.Object)
                Case "CheckBox"
                    targetCtrl.Object.Value = False ' 重置复选框状态
                Case "ComboBox"
                    targetCtrl.Object.Value = "-" ' 重置组合框为短横线
            End Select
        End If
    Next targetCtrl
    
    ' 保留你原来的单元格清除逻辑，比如清除指定范围内容
    ThisWorkbook.ActiveSheet.Range("A1:Z100").ClearContents
    
    ' 调用墨迹清除子程序
    Call 清除墨迹签名
End Sub

' 专门的墨迹清除子程序
Sub 清除墨迹签名()
    Dim inkShape As Shape
    ' 遍历工作表上所有形状，删除墨迹类型的形状
    For Each inkShape In ThisWorkbook.ActiveSheet.Shapes
        If inkShape.Type = msoInk Then
            inkShape.Delete
        End If
    Next inkShape
End Sub

代码关键说明： #

• 先通过分组名称定位到目标分组，然后遍历所有OLE控件，通过名称前缀判断是否属于该分组
• 用TypeName区分控件类型，分别执行重置逻辑
• 单独拆分出清除墨迹签名子程序，专门处理Excel墨迹（墨迹在Excel中是msoInk类型的Shape）

三、额外优化建议 #

• 给分组控件重命名：选中分组后，在Excel顶部的名称框里改成有意义的名字（比如"FormControlsGroup"），避免代码里用默认的"Group1"容易混淆
• 测试缩放效果：调整Excel窗口缩放比例、改变单元格大小，验证控件是否同步调整
• 工作表保护（可选）：如果需要防止用户误改控件，可以设置工作表保护，记得勾选允许编辑对象，这样清除按钮还能正常运行

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