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

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

 

Content is available under CC BY-SA 3.0 unless otherwise noted.