Change Default Insert Picture?

Topic

New Reply

I use scanned images a lot, inserting through the Insert | Picture | From Scanner or Camera route.
I’d like to set this up so that by default, the image comes in as Behind Text, Don’t Move Object with Text.
How do I do this?
The macro recorder doesn’t seem to handle this.
Thanks!

Reply | Quote

Replies

I’d like to set this up so that by default, the image comes in as Behind Text, Don’t Move Object with Text.

What is the code you have so far? It’s easier to add a line or two than start from scratch.

Reply | Quote

No code at all, I fear.
JRR

Reply | Quote

and the Format Painter tool doesn’t work, either, on inserted pictures.
JRR

Reply | Quote

You could try this code:

Code:

Sub InsertScanPicSetWrapBehind()
   'WordBasic code from: [url]http://www.gmayor.com/scan_into_word_2007.htm[/url] - thanks to Terry Farrell
   Dim shp As Shape
   On Error Resume Next
   WordBasic.InsertImagerScan
   Set shp = ActiveDocument.InlineShapes(ActiveDocument.InlineShapes.Count).ConvertToShape
   With shp
      .WrapFormat.Type = wdWrapBehind
   End With
   Set shp = Nothing
End Sub

A few caveats:

[*]Test this code first in a dummy or copy document.
[*]Code assumes that your scanned pictures come in as an Inline Shapes by default. If they come in as Shapes (floating objects) by default instead, then this code won’t work, and we’d need to adjust it.
[*]I couldn’t find a way to specify “Don’t Move Object With Text” via code, but it appears to be set to that by default, when you set the shape to Wrap Behind Text.

Gary

Reply | Quote

You can set at least part of your requirements in the Tools, Options, Edit dialog.

May the Forces of good computing be with you!

RG

PowerShell & VBA Rule!
Computer Specs

Reply | Quote