打开文件时如何修复activeX复选框移动答案

【问题标题】：How to fix activeX checkboxes moving when opening file打开文件时如何修复activeX复选框移动
【发布时间】：2015-04-30 00:47:09
【问题描述】：

我知道以前有人问过这个问题，但我没有找到适合我的答案。我无法进行 Windows 更新，因为该表格在全国各地的多台计算机上使用。

我有 24 个默认隐藏的复选框，它们会根据组合框的值变得可见。如果我在隐藏复选框的情况下保存文件，一旦我打开它，所有复选框都会在一个位置（而不是它们应该在的位置）。如果我在复选框可见的情况下保存它，那么我打开它一切正常。

这是坏人这个不错

我让它工作的唯一方法是，如果我保存它并隐藏所有复选框，然后在工作簿打开时隐藏它们。如果用户没有正确保存它，这可能是一个问题。像这样

 'if the row the row is hidden then the 2 checkboxes on this row are hidden too
 ActiveSheet.Rows("54:101").Hidden = False

 'Hide rows 54 to 101
 ActiveSheet.ComboBox2.Value = ""
 ActiveSheet.ComboBox3.Value = ""

我尝试更改复选框的对象定位属性，但似乎它必须是 Move but don't size with cells 才能工作

【问题讨论】：

标签： vba excel excel-2010 worksheet

【解决方案1】：

我自己修好了。我的解决方案是像这样为每个复选框设置一个单元格的位置

Dim rng As Range
Set rng = ActiveSheet.Range("H65")
With ActiveSheet.OLEObjects("CheckBox223")
    .Top = rng.Top
    .Left = rng.Left
    .Width = rng.Width
    .Height = rng.RowHeight
End With

 Set rng = ActiveSheet.Range("J65")
 With ActiveSheet.OLEObjects("CheckBox224")
    .Top = rng.Top
    .Left = rng.Left
    .Width = rng.Width
    .Height = rng.RowHeight
End With

 Set rng = ActiveSheet.Range("H69")
 With ActiveSheet.OLEObjects("CheckBox221")
    .Top = rng.Top
    .Left = rng.Left
    .Width = rng.Width
    .Height = rng.RowHeight
End With

 Set rng = ActiveSheet.Range("J69")
 With ActiveSheet.OLEObjects("CheckBox222")
    .Top = rng.Top
    .Left = rng.Left
    .Width = rng.Width
    .Height = rng.RowHeight
End With

 Set rng = ActiveSheet.Range("H73")
 With ActiveSheet.OLEObjects("CheckBox219")
    .Top = rng.Top
    .Left = rng.Left
    .Width = rng.Width
    .Height = rng.RowHeight
End With

 Set rng = ActiveSheet.Range("J73")
 With ActiveSheet.OLEObjects("CheckBox220")
    .Top = rng.Top
    .Left = rng.Left
    .Width = rng.Width
    .Height = rng.RowHeight
End With

【讨论】：