可否提供组合框教程
追答Sub Add()
Dim Ole As OLEObject, Arr As Variant
Arr = Array("A", "B", "C")
With Sheet1
.DrawingObjects.Delete
Set Ole = .OLEObjects.Add(classtype:="Forms.Combobox.1", Left:=1, Top:=1, Width:=100, Height:=30)
With Ole
.Object.Font.Size = 30
.Object.List = Arr
End With
End With
End Sub
代码