VBA模块内引用窗体控件的问题，问题解决了再加分

经测试，确定可行，方法如下：
1、先得添加一个 Form，只要添加一个空的就好了，因为后面所用到的 DataObject 对象，需要Form对象；
在VBA编辑器中点菜单：插入 -> 用户窗体，即可；
2、在你的模块中放入如下示例代码：
Sub Test()
Dim MyData As DataObject, MyStr As String
Set MyData = New DataObject
MyDataGetFromClipboard '获得剪切板内容
MyStr = MyDataGetText '赋值给变量
MsgBox MyStr
End Sub
注意，运行前 从任何窗口选中一些文字 Copy 一下，再运行这个 Test 宏。
有疑问，请Hi我或给我发BaiDu消息。
GoodLuck!

Sub abc()
For i = 1 To 5
Cells(i, 2)Delete Shift:=xlUp
Next
End Sub
在这个代码执行时，因为用了 Shift:=xlUp 会提示“一些单元格会被拆散”。
如果把它改成 Shift:=xlToLeft 就不会提示（只删除A1与B1合并单元格时）了。

没找到哪个变量可以表示整个PPT的当前幻灯片Slide，所以只好手动指定。
假设有控件的Slide是第二张，查找里面有没有名称是TextBox1的控件：
Sub 查找控件()
For Each i In ApplicationActivePresentationSlides(2)Shapes
'DebugPrint iName
If iName = "TextBox1" Then
'Call ……
End If
Next
End Sub

---