Scriptlet – Weak Reference

Sub UnselectTextBoxes()
Dim c As New Collection
For Each s In ActiveWindow.Selection.ShapeRange
    If s.TextFrame.HasText <> msoTrue Then
        c.Add s
    End If
Next
ActiveWindow.Selection.Unselect
For Each s In c
    s.Select MsoTriState.msoFalse
Next
End Sub

Sub UnselectTextBoxes()

Dim c As New Collection

For Each s In ActiveWindow.Selection.ShapeRange

If s.TextFrame.HasText <> msoTrue Then

c.Add s

End If

ActiveWindow.Selection.Unselect

For Each s In c

s.Select MsoTriState.msoFalse

End Sub

一	二	三	四	五	六	日
		1	2	3	4	5
6	7	8	9	10	11	12
13	14	15	16	17	18	19
20	21	22	23	24	25	26
27	28	29	30	31

分类： Scriptlet

如何在PowerPoint中取消选择选区中的文本框