ppt遍历控件的方法

user_irkec

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

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

复制代码
希望能与各位一起探讨。

0451dxdx530

• Sub t2()
  
• For Each sld In ActivePresentation.Slides
  
• For Each shp In sld.Shapes
  
• 'Debug.Print shp.Name
  
• Dim oTLB As InterfaceInfo, I As Long
  
• Set oTLB = TLI.InterfaceInfoFromObject(CommandButton1)
  
• For I = 1 To oTLB.Members.Count
  
• Debug.Print oTLB.Members(I).Name
  
• Next
  
• Next
  
• NextEnd Sub
  

复制代码