Is there a way to standardise the size of images when doing a mailmerge?

gmayor · #3 05-20-2020, 08:59 PM

FWIW if you use the following to run the merge, you can include the macro at merge time, though if using Paul's macro it would require a minor change to be compatible (see below)
https://www.gmayor.com/MergeAndSplit.htm

Code:

Sub FixImages(oDoc As Document)
    Application.ScreenUpdating = False
    Dim Tbl As Table, iShp As InlineShape
    For Each Tbl In oDoc.Tables
        With Tbl.Range
            For Each iShp In .InlineShapes
                With iShp
                    .LockAspectRatio = True
                    With .Range.Cells(1)
                        If .Height <> iShp.Height Then
                            If .Width <> iShp.Width Then
                                iShp.Height = .Height
                                If iShp.Width > .Width Then
                                    iShp.Width = .Width
                                End If
                            End If
                        End If
                    End With
                End With
            Next
        End With
    Next
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
size of imported images ???	yvessr	Drawing and Graphics	14	05-04-2019 07:46 AM
Font size change after mailmerge (labels)	Ludo_S	Mail Merge	3	05-02-2016 02:34 PM
Mailmerge is enlarging the size of the email	Joan	Mail Merge	2	10-27-2014 05:16 PM
Standardise repeated actions	TiVivibi	PowerPoint	0	10-10-2014 02:06 PM
has anyone had any success using dynamic images in Mailmerge?	bakhesh	Mail Merge	1	09-29-2013 08:05 PM