Insert Picture with standard size

styleruk · #1 11-03-2011, 02:56 AM

HI

I can't seem to find a way in Word 2007 to set a standard for inserting pics. That is; Size and border. So I thought I'd record a macro.

1) Can't right click a picture to select border and shading when recording a macro
2) When the picture is selected, the border and shading button is greyed out! so I can't use the button to add border even when not recording a macro...

Any ideas?

macropod · #2 11-03-2011, 04:34 AM

Hi styleruk,

You could use a macro like:

Code:

Sub InsertPicture()
With Application.Dialogs(wdDialogInsertPicture)
  If .Show = -1 Then
    With Selection
      .MoveStart wdCharacter, -1
      With .InlineShapes(1)
        .LockAspectRatio = True
        .Width = InchesToPoints(3)
      End With
      .Collapse
    End With
  End If
End With
End Sub

This macro runs the normal InsertPicture dialogue, but then resizes the inserted pic to 3in wide and scales the height to suit. You can change the '3', use .Height instead of .Width and use 'CentimetersToPoints' instead of 'InchesToPoints', if you prefer. You could assign the macro to a keyboard shortcut and/or the QAT.

Bughi · #3 02-09-2014, 09:14 AM

I am a beginner in my line of my work and it would very helpful if you could insert in the above macro how to add a border to the inserted picture and/or insert multiple pictures at once.
Thank you in advance.

macropod · #4 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 · #5 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