Excel VBA – 计数ActiveXcombobox的数量

是否有一个ActiveX控件的分类，我可以用来确定它们在一个工作表上的数量？ 寻找与.Type = 12的形状我认为将确定的ActiveX，但有某种'子types'，我可以用来确定types的ActiveX控件，如combobox或标签等？

Answer 1

如果要计算工作表上的ActiveX控件的数量。 试试下面的代码：

Sub try() Dim Ws As Worksheet Set Ws = Worksheets("Sheet1") Count = 0 For Each OleObj In Ws.OLEObjects If OleObj.OLEType = xlOLEControl Then If TypeName(OleObj.Object) = "ComboBox" Then Count = Count + 1 End If End If Next OleObj MsgBox "Number of ComboBoxes :" & Count End Sub