Word - Resize image to specified selected cells' dimensions

FaizanRoshan · #1 10-17-2015, 12:33 PM

What would be helpful is if there were a way to write the code so that the image is resized to the size of the cell (it is actually a merged set of cells), that it is being placed into.

I do not want to go through every one and figure out the width and height for each cell and type in the corresponding values for every cell, (it might take me one day).
Essentially I need to maintain the aspect ratio of the image file, and fill the target cell(s) without exceeding their boundaries.

Code:

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Word template that automatically resize's and formats image layout	vikkitoria60	Word VBA	3	09-30-2015 01:16 PM
Insert and resize image	lenguyenleduong	Word VBA	2	05-11-2014 07:23 AM
Shortcut for image resize	Hatthans	PowerPoint	0	01-06-2014 04:32 PM
How to resize the image in the header so that it fits the page	Isadora	Excel	1	08-20-2013 06:02 AM
Image proportional resize not functioning!	alexfcm	PowerPoint	0	09-27-2012 07:22 AM