Enabled能在哪些控件中应用。

ningyong58

1. Sub Test()
   
2.   ''
   
3.     Dim Shp As Shape
   
4.     With Sheet1.OLEObjects.Add(ClassType:="Forms.TextBox.1", Link:=False, _
   
5.         DisplayAsIcon:=False, Left:=4.75, Top:=26, Width:=65.25, Height:= _
   
6.         12.75)
   
7.         .Name = "Shp1"
   
8.     End With
   
9.     Set Shp = Sheet1.Shapes("Shp1")
   
10.     Dim Rr As Range
    
11.     Set Rr = Cells(35, 2)
    
12.     With Rr
    
13.       Debug.Print Rr.Address, .Left, .Top, .Width, .Height
    
14.     End With
    
15.     With [Shp]
    
16.       .Top = Rr.Top
    
17.       .Left = Rr.Left
    
18.       .Height = Rr.Height
    
19.       .Width = Rr.Width
    
20.       .LockAspectRatio = msoFalse
    
21.       .OLEFormat.Object.Enabled = False
    
22.     End With
    
23. End Sub

复制代码

这个例子是生成TextBox的一个示例。
直接用Enabled不成立
需要采用.OLEFormat.Object.Enabled = False格式
由此为题。请问：Enabled能在哪些控件中应用？？
现在掌握的知识,Enabled只能OleFormat.Object中应用，没有全部试过。
OleFormat.Object表示什么意思。谢谢。

lb_bn

activex控件都可以用。
楼主用的父类是shape
父类用activesheet测试一下。