Macro to select an { includepicture } field code and format the picture behind text and 100% scale

gmayor · #1 03-29-2015, 11:18 PM

Once you change an inline shape to a shape it is no longer an inline shape so you cannot process it as such. The following should work

Code:

Sub fixLetterHead()
Dim oInlineShape As InlineShape
Dim oShape As shape
    For Each oInlineShape In Selection.InlineShapes
        Set oShape = oInlineShape.ConvertToShape
        With oShape
            .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
            .RelativeVerticalPosition = wdRelativeVerticalPositionPage
            .Top = 0
            .Left = 0
            .WrapFormat.Type = wdWrapBehind
            .ScaleHeight 1, True
            .ScaleWidth 1, True
        End With
    Next oInlineShape
End Sub

sanpedro · #2 03-30-2015, 10:12 AM

Thank you very much! this works perfectly. i have amended it slightly by having a Exit For statement at the end of the for loop to only convert the first picture it finds. probably not the best way to do it but it works well so far.

Thank you

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Using IncludePicture and MailMerge to insert picture	Elena	Mail Merge	25	02-06-2022 05:35 PM
Microsoft Word macro to find text, select all text between brackets, and delete	helal1990	Word VBA	4	02-05-2015 03:52 PM
VBA code for Microsoft Word macro — select text and insert footnote	ndnd	Word VBA	10	01-06-2015 01:47 PM
Is it possible to not select all text upon entering a form field?	pruppert	Word	6	07-16-2012 08:01 PM
Word Editing Text for Picture format	sarun5	Word	2	05-27-2009 11:51 PM