|
|
#4
04-11-2018, 02:36 PM
|
||||
|
||||
Try:
Code:
Sub Demo()
Application.ScreenUpdating = False
Dim i As Long
With ActiveDocument
For i = .InlineShapes.Count To 1 Step -1
With .InlineShapes(i)
.Range.InsertBefore "Picture " & i
.Delete
End With
Next
End With
Application.ScreenUpdating = True
End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] 
|
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| help creating a dollar counter add-in | dstallworth | PowerPoint | 0 | 04-23-2017 12:49 PM |
| add counter everytime a 1 appears in a cell | speedy1 | Excel | 0 | 01-16-2016 01:22 AM |
 ord vba replace the variable text with variable images to make offer products with images
|
tanzinim | Word VBA | 4 | 12-30-2015 01:40 PM |
|
How to Wrap Text on Images in Text Boxes
|
mrniceguy | Word | 1 | 02-16-2014 04:42 PM |
|
powerpoint slide hit counter
|
breisleach | PowerPoint | 7 | 08-30-2013 12:25 AM |
Windows 7 64bit 
Office 2010 32bit
Threaded Mode