Word - Resize image to specified selected cells' dimensions

macropod · #1 10-17-2015, 08:20 PM

Cross-posted at: http://answers.microsoft.com/en-us/o...6-bc3837ccb721
For cross-posting etiquette, please read: http://www.excelguru.ca/content.php?184

FaizanRoshan · #2 10-18-2015, 03:56 AM

Meaning of figure of height and width that i don't want to change h & w in code for each cells as i mention that all the cells have different size. i actually need one macro that resize any picture with size of selected cell.

macropod · #3 10-18-2015, 04:17 AM

Quote:

Originally Posted by FaizanRoshan

i don't want to change h & w in code for each cells as i mention that all the cells have different size.

The code you've already posted doesn't require any foreknowledge of the cell height or width - for every table in the document. Have you tried running it?

Your code could be made more efficient, though:

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
        .Height = .Range.Cells(1).Height
        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

Still, if you insert the pictures directly into the table cells via Insert|Picture, you don't even need a macro...

FaizanRoshan · #4 10-18-2015, 05:21 AM

Its work good but no as i want, if original picture height > width then after running code its resize on width and crop height with picture size. or if width > height then code resize width only with cell size.

macropod · #5 10-18-2015, 12:52 PM

Quote:

Originally Posted by FaizanRoshan

Its work good but no as i want, if original picture height > width then after running code its resize on width and crop height with picture size. or if width > height then code resize width only with cell size.

Well, you did say in your first post:

Quote:

fill the target cell(s) without exceeding their boundaries

Unless the aspect ratio is the same as the cell, you cannot fill it in both directions without exceeding the boundaries. But, if that's what you want, change > to <.

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