![]() |
|
#1
|
|||
|
|||
![]() 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 Cheers NP |
![]() |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
Squibble | Word VBA | 2 | 06-11-2014 05:36 PM |
![]() |
NBuckley | Word | 2 | 04-04-2014 03:17 AM |
![]() |
ramsgarla | Word VBA | 9 | 12-05-2012 03:23 AM |
![]() |
dflockyer | Word | 2 | 06-25-2012 05:24 PM |
![]() |
williebear | Outlook | 1 | 05-27-2009 11:32 PM |