View Single Post
 
Old 10-11-2014, 04:20 AM
NobodysPerfect NobodysPerfect is offline Windows 8 Office 2010 32bit
Competent Performer
 
Join Date: Jan 2014
Location: Germany
Posts: 136
NobodysPerfect is on a distinguished road
Default

Code:
If Selection.Range.InlineShapes.Count > 0 Then
    If Not Selection.Range.InlineShapes(1).Type = 5 Then RSel = Selection.Range
Else
    Set RSel = Selection.Range
End If
Seems to work in app_WindowSelectionChange.

Cheers
NP
Reply With Quote