Results 1 to 6 of 6
  1. #1
    New Lounger
    Join Date
    May 2003
    Location
    Birmingham, England
    Posts
    11
    Thanks
    0
    Thanked 0 Times in 0 Posts
    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!

  2. #2
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts
    Quote Originally Posted by itshimathome View Post
    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.

  3. #3
    New Lounger
    Join Date
    May 2003
    Location
    Birmingham, England
    Posts
    11
    Thanks
    0
    Thanked 0 Times in 0 Posts
    No code at all, I fear.
    JRR

  4. #4
    New Lounger
    Join Date
    May 2003
    Location
    Birmingham, England
    Posts
    11
    Thanks
    0
    Thanked 0 Times in 0 Posts
    and the Format Painter tool doesn't work, either, on inserted pictures.
    JRR

  5. #5
    Super Moderator
    Join Date
    Dec 2000
    Location
    New York, NY
    Posts
    2,970
    Thanks
    3
    Thanked 29 Times in 27 Posts
    You could try this code:

    Code:
    Sub InsertScanPicSetWrapBehind()
       'WordBasic code from: http://www.gmayor.com/scan_into_word_2007.htm - 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

  6. #6
    Super Moderator RetiredGeek's Avatar
    Join Date
    Mar 2004
    Location
    Manning, South Carolina
    Posts
    9,433
    Thanks
    371
    Thanked 1,456 Times in 1,325 Posts
    You can set at least part of your requirements in the Tools, Options, Edit dialog.
    Attached Images Attached Images
    May the Forces of good computing be with you!

    RG

    PowerShell & VBA Rule!

    My Systems: Desktop Specs
    Laptop Specs

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •