Insert Picture with standard size

macropod · #1 02-09-2014, 02:16 PM

There a many border possibilities. The following should give you a starting point:

Code:

Sub InsertPicture()
With Application.Dialogs(wdDialogInsertPicture)
  If .Show = -1 Then
    With Selection
      .MoveStart wdCharacter, -1
      With .InlineShapes(1)
        .LockAspectRatio = True
        .Width = InchesToPoints(3)
        With .Borders
          .OutsideColor = wdColorBlack
          .OutsideLineStyle = wdLineStyleThickThinLargeGap
          .OutsideLineWidth = wdLineWidth300pt
        End With
      End With
      .Collapse
    End With
  End If
End With
End Sub

Bughi · #2 02-10-2014, 09:09 AM

I sincerely appreciate your help. Thank you.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Insert Picture changes colors	rowan.bradley	Drawing and Graphics	6	05-18-2013 05:26 PM
Macro for Picture Insert	rfhall50	Word VBA	2	10-25-2010 12:41 PM
Can I insert a picture into a picture ?	alexcalgary	Drawing and Graphics	2	10-16-2010 03:29 PM
Problem w/ Format Picture (size)	John Woram	PowerPoint	0	01-31-2010 10:29 AM
Wrong Picture Size	Roger A Firth	Drawing and Graphics	6	11-01-2009 10:34 AM