Insert and resize image

gmaxey · #1 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

lenguyenleduong · #2 05-11-2014, 07:23 AM

Quote:

Originally Posted by gmaxey

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

Thanks so much.

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