ppt遍历控件的方法
在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
复制代码
希望能与各位一起探讨。
[*]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
复制代码
页:
[1]