Word.Tips.Net WordTips (Menu Interface)

Default Picture Settings

Many people paste pictures in their documents. Some people paste many, many pictures. It would be very beneficial for those people if the settings used by Word to paste a picture were persistent—in other words, Word remembered the size used to paste a picture or the position, and then used it for subsequent pictures.

Word does not have such a capability however. When you paste a picture, size is not persistent because the ratio between picture height and width can vary wildly from one picture to another. Positioning is not persistent because many page layouts call for pictures to be in different positions on the page. The only thing that is persistent is the setting of the "Float Over" check box on the Insert Picture dialog box.

If you have a need to format quite a few pictures using the same settings, the easiest approach is to create a quick-and-dirty macro to apply the formatting settings you want. You could then paste the picture, select it, and then run the macro. You can create such a macro by following these general steps:

  1. Paste the picture in your document.
  2. Select the picture you just pasted.
  3. Start the macro recorder.
  4. Make the size and position changes to the picture, as desired.
  5. Stop the macro recorder.

Your macro is now ready to use. Whenever a new picture is pasted in your document, select it and run the macro to apply the "default" settings.

WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (671) applies to Microsoft Word 97, 2000, 2002, and 2003.

Related Tips:

The First and Last Word on Word! Bestselling For Dummies author Dan Gookin puts his usual fun and friendly candor back to work to show you how to navigate Word 2013. Spend more time working and less time trying to figure it all out! Check out Word 2013 For Dummies today!


Leave your own comment:

  Notify me about new comments ONLY FOR THIS TIP
Notify me about new comments ANYWHERE ON THIS SITE
Hide my email address
*What is 5+3 (To prevent automated submissions and spam.)
           Commenting Terms

Comments for this tip:

Ken Endacott    22 Mar 2016, 07:59
The macro FullPageFloatingPicture will expand a floating picture to full page width.

The macro RestoreFloatingPictureSize will restore a floating picture to its original size. This is the size before any changes were made to the picture and may not necessarily be the size before FullPageFloatingPicture was run.

For inline pictures use the macros FullPageInlinePicture and RestoreInlinePictureSize

Sub FullPageFloatingPicture()
Dim aShape As Shape
 Set aShape = Selection.Range.ShapeRange(1)
  aShape.LockAspectRatio = True
  Selection.ShapeRange.ScaleWidth ActiveDocument.PageSetup.PageWidth / aShape.Width, _
         False, msoScaleFromMiddle
End Sub

Sub RestoreFloatingPictureSize()
  Selection.ShapeRange.ScaleWidth 1, True, msoScaleFromMiddle
End Sub

Sub FullPageInlinePicture()
Dim aInlineShape As InlineShape
 Set aInlineShape = Selection.Range.InlineShapes(1)
  aInlineShape.LockAspectRatio = True
  aInlineShape.Width = ActiveDocument.PageSetup.PageWidth
End Sub

Sub RestoreInlinePictureSize()
  Selection.Range.InlineShapes(1).ScaleWidth = 100
End Sub
miha    21 Mar 2016, 08:31
Ken Endacott===thanks
Is it possible to enlarge picture to screen size?
not for saving ,only viewing with undo ?or it only possible:to save on disk and opening with default picture program ?
thank you
Ken Endacott    16 Mar 2016, 08:13
The line should read:

Your macro will only work if the picture or shape is floating. If the picture is an inline shape (the default for inserted pictures is inline) then you can use:

Sub Size2()
  With Selection.InlineShapes(1)
    .Width = 2.88 * .Width
  End With
End Sub
MIHA    16 Mar 2016, 04:55
ActiveDocument.Shapes("Picture 9").Select
MIHA    16 Mar 2016, 04:48
Sub SIZE()
' SIZE Macro
    Selection.ShapeRange.ScaleWidth 2.88, msoFalse, msoScaleFromBottomRight
    Selection.ShapeRange.ScaleHeight 2.88, msoFalse, msoScaleFromTopLeft
    ActiveWindow.ActivePane.VerticalPercentScrolled = 7
End Sub
ActiveDocument.Shapes("Picture 9").Select

Ken Endacott    12 Mar 2016, 07:09
This tip only applies to versions of Word up to 2003. Starting with 2007 there were significant changes to pictures and shapes and it seems that Microsoft were too lazy to update the macro recorder.

If you can get hold of the VBA code from using the macro recorder in 2003 it should work in 2010.
Diana    11 Mar 2016, 14:55
I am using Word 2010. When I select the picture and then start the macro recording, the picture is deselected. I can't figure out a way around this, so I can't get your instructions to work. Thank you.
Roger Vaught    20 Feb 2016, 12:30
Sigh, Mac Word 2011 will not allow recording position or size of pictures.
Maria    11 Feb 2016, 11:30
Great tip on selecting a picture during Macro recording!

Now that I learned how to do that, I tried creating a border with the macro (Format Picture -> Line -> Solid Line, etc.) but aside from selecting the picture, the macro was blank.

I have a lot of pictures which need this border, so I want to be able to either set a default for the line type (just color and width) or use a macro to do this.

Each time I format a new picture, I have to manually change these two options. Any suggestions would be much appreciated.
Tony    07 Dec 2015, 06:05
Sorry - did not see comments below.
Don't worry about my question, thanks.
Matthew, Jennifer and Justin's suggestions are great, thanks :)
Tony    07 Dec 2015, 04:49
The macro recorder does not seem to work while in picture mode. Or probably other way around. The selected picture is no longer selected. What do you suggest please?

Thank you very much.
Julie    10 Nov 2015, 18:36
How can I change the default picture border color in Word 2013 from blue to black?
Lynn    01 Oct 2015, 15:31
I have been pasting photos into Word 2013 from the same webpage web 6-7 times a day for over three weeks. All of a sudden, the pictures are huge. Yes, I know that I can go in and reduce them but that is a pain. Am I missing a setting that I have inadvertently changed. I can't find a default anywhere.
Jeff    10 Jun 2015, 10:07
For those having issues with the picture de-selecting when starting the macro, you have to pause the macro (in Developers tab), select the pic again, then un-pause the macro.

It's a bit tricky.

If you don't have the developers tab showing, turn it on in your File/Options/Customize Ribbon > tick Developer in right side 'Main Tabs' box
Jeff    10 Jun 2015, 09:58
I needed all my pics in a 60 page doc with over 150 pics to be 'in front of text' and 'locked anchor'.

Word 2013 default is 'in line' and not locked anchor.

At first I couldn't get the macro to record the sequence as others have mentioned but I found that Jennifers/Ms Tiffany's file/options/advanced trick of setting it to 'in front of text' helped with the first part. Then I just needed to work out how to record the macro to be able to lock the anchor.

I achieved this by using the Shift F10 trick (after starting the macro, then pausing it, then re-selecting the pic, then un-pausing the macro) to scroll down to Size & Position, then using the Tab key and arrows to access the Position Tab, then tabbing down (not using the arrow keys!!) to 'lock anchor' then pressing the space bar to activate it. Then tab to ok, press enter and stop the macro.

now when I paste a pic (from another file) it automatically is 'in front of text' then I just click the macro to lock it's anchor.

Saved me hours of work!!
Terry    01 May 2015, 11:37
I found this MACRO. Works like a chnap for me.

Resize images with VBA

With the following VBA code, you can resize pictures to your ideal size. You can get it done as follow:

In this example, we resize the picture size to 1.78inch height and 3.17inch width.

1: Please select a picture you want to change the size;

2: Press Alt+F11 to open the Microsoft Visual Basic for Applications window;

3: Click Module from Insert tab, copy and paste the following VBA code into the Module window;

4: Click Run button to run the VBA

The VBA code on resizing images:

Sub ResizePics()
 Dim shp As Word.Shape
 Dim ishp As Word.InlineShape
 If Word.Selection.Type <> wdSelectionInlineShape And _
 Word.Selection.Type <> wdSelectionShape Then
 Exit Sub
 End If
 If Word.Selection.Type = wdSelectionInlineShape Then
 Set ishp = Word.Selection.Range.InlineShapes(1)
 ishp.LockAspectRatio = False
 ishp.Height = InchesToPoints(1.78)
 ishp.Width = InchesToPoints(3.17)
 If Word.Selection.Type = wdSelectionShape Then
 Set shp = Word.Selection.ShapeRange(1)
 shp.LockAspectRatio = False
 shp.Height = InchesToPoints(1.78)
 shp.Width = InchesToPoints(3.17)
 End If
 End If
 End Sub

Note: In shp.Height = InchesToPoints(1.78 ) and shp.Width = InchesToPoints(3.17) you can change the size to meet your need.

With this VBA code, you also cannot resize all or multiple picture at once. You need to go back and forth between the Word document and the Microsoft Visual Basic for Applications window to select the picture and apply the code. That’s too time-consuming
Maeve    09 Feb 2015, 14:37
Same issue with Macro record not allowing me to work with pictures, only text.

And for those responses about how this is "making it hard", I like to use a standard picture format across documents. In order to do this, it's ideal to have a preset or a macro that creates the lines and shadows, in colors etc, in each document. Copy + Paste or Format Copy are not helpful for ongoing, multi-document consistency work.

****DOES Anyone know how to get the macro to record Picture Format in 2013? *****

Matthew    04 Feb 2015, 20:10
Alternatively, if you just have one change to make to a series of pictures (eg the width or height) you can resize the first image and then select the next and press 'F4' to redo the last action.
Tex Everett    27 Jan 2015, 14:52
Thank you Jennifer!!!
KISS (Keep It Simple Stupid) is always best.
Jennifer    15 Jan 2015, 15:48
As Miss Tiffany describes above: "I'm not sure why you are all trying to make it so difficult?"

For Word 2013 (and probably other versions, as well but maybe in a different menu - figure it out.)

- Click on 'File'
- Click on 'Options'
- Click on 'Advanced'
- In the 'Cut, Copy and Paste' section, choose the default setting you want for 'Insert/paste pictures as:' from one of the dropdown selections given which are: In Line with Text, Square, Tight, Behind Text, In Front of Text, Through, or Top and Bottom.
- Click OK

Dave    25 Nov 2014, 17:39
What happened to AutoShape Defaults? Used to work on pictures in W2003, but cannot find it in Word 2007. Worked perfectly for adding borders, captions, etc.
Alex B    03 Oct 2014, 11:45
This doesn't work on Word 2007. When I start recording a macro I can't select the picture. My mouse turns into a little tape picture and I can't do anything. I tried with Shift+F10 as was described early, however my micro is empty!

I remember that several times I did macros to change pictures in previous version on Word when I did documents with a lot pictures and it worked fine.

I am dissapoiment with Word 2007 and 2010
John Randel    25 Sep 2014, 11:32
Thank you Miss Tiffany
Michael Hamilton    05 Sep 2014, 11:13
I am trying to subscribe to you Word newsletter but i can't find the authorization email anywhere in any of my Outlook folders.
Justin Donie    01 Sep 2014, 15:42
1) I set the formatting in the first image in the series I want to insert.
2) I copy the first image.
3) I paste a copy of the first image into position where I want the second image.
4) I then use "right-click > Change Picture" to swap the next image in the series for the pasted one. The formatting I've established in the first image now applies to the second.

Simply repeat steps 3 and 4 (paste / change image) to insert the rest of the images in the series.

Simple, easy, effective. :)
ChristineM    08 Aug 2014, 13:50
My "options" are set to paste pictures "top and bottom," but the other properties I want - 0.1" from text, centered, etc. - do not seem to be settable. Any hope?
Miss Tiffany    13 Jun 2014, 03:38
I'm not sure why you are all trying to make it so difficult?
- Click on 'File'
- Click on 'Options'
- Click on 'Advanced'
- In the 'Cut, Copy and Paste' section, choose the default setting you want for 'Insert/paste pictures as:' from one of the dropdown selections given which are: In Line with Text, Square, Tight, Behind Text, In Front of Text, Through, or Top and Bottom.
- Click OK
Sander    12 Jun 2014, 05:06
Had the same as the others here with regard to selecting of the picture.

The thing is, when the macro recorder is started, the picture is again de-selected.

However, if you push shift and use your arrows to left/right you can select the picture during the record.

Jeroen: Can you post a copy of the macro which made?
After I finalised the recorder, Word crashes/freezes and the macro is corrupted.
john    06 May 2014, 22:36
I found I can select the pic again when I backspace onto the pic. But, then the macro does not capture my formatting steps, either when I'm using the Toolbar buttons, or via the F10 right click menu. The most any macro captured is just the cursor movement:
Sub FormatPic()
' FormatPic Macro
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub
John    06 May 2014, 22:23
When I start the macro recorder, Word unselects my pic and puts the cursor to the right of the pic, as if to start typing. I'm using Word 2010, Windows 7 Pro
Jeroen    18 Apr 2014, 05:31
Works for me, just as explained you have to select the picture before starting your recording. The trick IMHO is the Shift+F10 to open the context menu:

- Paste picture, SELECT picture
- Start macro recording (name your macro & asign a hotkey)
- Shift+F10 to open context menu
- Use mouse to select option
- Use mouse to select tab
- Use mouse to select default value
  ..for me that is (12,01 cm)
- Use keyboard to type in default size
  ..for me that is (10 cm)
- Press enter
- end macro recording
now when I paste my next screenclip-picture in Word, I press my hotkey and get the size 10cm :)
Bruce Applegate    24 Jan 2014, 12:22
I have tried this several times in different documents (including starting from a new (empty) document). Once the macro recorder is started, the picture cannot be selected and the dialog box for size and position settings is unavailable.
Dawson Lewis    04 Dec 2013, 11:58
Confirmed, this does not work as described. Is there a solution?
Melanie Fordham    07 Nov 2013, 20:00
This doesn't work. When I start recording a macro I can't select the picture. My mouse turns into a little tape picture and I can't do anything.

Our Company

Sharon Parq Associates, Inc.

About Tips.Net

Contact Us


Advertise with Us

Our Privacy Policy

Our Sites


Beauty and Style




DriveTips (Google Drive)

ExcelTips (Excel 97–2003)

ExcelTips (Excel 2007–2016)



Home Improvement

Money and Finances


Pests and Bugs

Pets and Animals

WindowsTips (Microsoft Windows)

WordTips (Word 97–2003)

WordTips (Word 2007–2016)

Our Products

Helpful E-books

Newsletter Archives


Excel Products

Word Products

Our Authors

Author Index

Write for Tips.Net

Copyright © 2016 Sharon Parq Associates, Inc.