ActiveX 组合框由 100 年代自行生成

Question

Excel 在我的一张纸上的同一位置堆叠了 100 多个组合框。

我已经对组合框进行了编码，但这只是为了调整字体的大小。

我也尝试手动删除这些框，但是当我清理其中的 254 个时，我切换了选项卡。 做了一些工作，保存并返回到工作表一，有 504 个组合框。

下面是组合框的宏。我使用的是 ActiveX 版本。

Private Sub ComboBox3_Change()
    Dim cb As ComboBox
    With ActiveSheet
        Set cb = .OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
                                 DisplayAsIcon:=False, Left:=322.5, Top:=11.5, Width:=176.5, Height:= _
                                 61.5).Object
        cb.Font.Size = 20
    End With
End Sub

Answer 1

该代码，每次事件调用时，都会在同一位置添加一个组合框

改变

被触发，所以每次你改变组合的值时，另一个放在那个前面。

要停止此操作，请停止添加 ，而是

set cb = .oleobjects.add()

用

   set cb = .olebjects("HEREPUTYOURCHECKNAME")

.

Set cb = .OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
                         DisplayAsIcon:=False, Left:=322.5, Top:=11.5, Width:=176.5, Height:= _