|
|
#2
05-11-2014, 05:31 AM
|
|||
|
|||
This is because your code inserts the picture twice. Try:
Code:
With Application.Dialogs(wdDialogInsertPicture)
If .Display = -1 Then
If .Name <> "" Then
Set Photo = ActiveDocument.InlineShapes.AddPicture(FileName:=.Name, _
LinkToFile:=False, SaveWithDocument:=True, _
Range:=Selection.Range)
End If
End If
End With
|
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Shortcut for image resize | Hatthans | PowerPoint | 0 | 01-06-2014 04:32 PM |
| How to resize the image in the header so that it fits the page | Isadora | Excel | 1 | 08-20-2013 06:02 AM |
| Image proportional resize not functioning! | alexfcm | PowerPoint | 0 | 09-27-2012 07:22 AM |
| Background image vs. insert image | lilaria | PowerPoint | 0 | 04-18-2011 08:45 AM |
 Insert Vector Image
|
icu222much | Office | 2 | 11-07-2009 02:49 PM |
Windows 7 32bit 
Office 2010 (Version 14.0)
Threaded Mode