Sub 全选非文本对象()
Dim l As Layer, s As ShapeFor Each s In ActivePage.Shapes
If s.Type <> cdrTextShape Then s.AddToSelectionNext sFor Each s In ActiveSelection.Shapes If s.Type = cdrGroupShape Then
tc = 0
For Each ss In s.Shapes
If ss.Type = cdrTextShape Then tc = tc + 1
sc = sc + 1
Next ss
' MsgBox "Sc = " & sc & ", tc = " & tc
If sc = tc And tc > 0 Then
s.RemoveFromSelection
End If
End If
Next s
End Sub