ppt遍历控件的方法

banjinjiu

在excel中，遍历控件的方法很多，如：《vba常用技巧解析》第8部分 控件与用户窗体，技巧119 遍历控件的方法，工作表中的ActiveX控件可以根据控件的程序标识符找到相应的控件，文本框(TextBox1)。http://club.excelhome.net/thread-395683-70-1.html。
ppt遍历控件如何模仿excel的方法？谢谢。

1. 'vba常用技巧解析
   
2. '第8部分 控件与用户窗体
   
3. '技巧119 遍历控件的方法
   
4. '工作表中的ActiveX控件可以根据控件的程序标识符找到相应的控件，文本框(TextBox1)
   
5. Private Sub CommandButton1_Click()
   
6. Dim Obj As OLEObject
   
7. For Each Obj In Me.OLEObjects
   
8. If Obj.progID = "Forms.TextBox.1" Then
   
9. Obj.Object.Text = ""
   
10. End If
    
11. Next
    
12. End Sub

复制代码

希望能与各位一起探讨。

banjinjiu

1. Sub t2()
   
2. For Each sld In ActivePresentation.Slides
   
3. For Each shp In sld.Shapes
   
4. 'Debug.Print shp.Name
   
5. Dim oTLB As InterfaceInfo, I As Long
   
6. Set oTLB = TLI.InterfaceInfoFromObject(CommandButton1)
   
7. For I = 1 To oTLB.Members.Count
   
8. Debug.Print oTLB.Members(I).Name
   
9. Next
   
10. Next
    
11. Next
    
12. End Sub

复制代码

联谊会

标记一下，备用