Autofit Image to a Preset Cell

GarethHourihane · #1 06-01-2011, 05:20 AM

Hi

I'm currently working on a photograph template for inclusion in a survey report.

What I have currently is a page with 2 cells for inserting images into. The problem is that whenever a photo is inserted it doesnt auto fill to the size of the cell. The photo retains it's original size.

Is there a way in which I can insert an image into a cell and regardless of what size the image was it will fill the cell?

Thanks , G

macropod · #2 06-01-2011, 08:10 PM

Hi Gareth,

Have you fixed the cell sizes to specified exact heigh and widths? Have you unchecked the table's 'automatically resize cells to fit contents' option?

Are you inserting the images directly into the cells from a file via Insert|Picture (or by dragging & dropping from the folder into the table), or are you dragging & dropping them from elsewhere in the document - the latter circumvents the resizing.

GarethHourihane · #3 06-01-2011, 11:52 PM

Hi Paul - Thanks for the response.

Cell size is fixed at 17cm x 9cm and 'automatically resize cells to fit contents' is unchecked.

The image is being inserted via insert / picture from file too.

It appears to work when inserting an image that is larger than the cell size - but not when an image is smaller.

macropod · #4 06-02-2011, 01:08 AM

Hi Gareth,

AFAIK, that's how it's meant to work - the cell constrains the maximum image size, but not the minimum.

GarethHourihane · #5 06-02-2011, 02:41 AM

So when inserting an image into a cell is there no way of forcing the image to fill the cell, regardless of whether it's decreasing or increasing the original size?

Thanks

macropod · #6 06-02-2011, 03:02 AM

Hi Gareth,

As I'm sure you've found, over-sized images are reduced in size. So, it's really only the under-sized images that are the problem. Regardless, the following macro will fit all inlineshapes in all cells in all tables to the 'best fit' for the cells they're in.

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

Note: As coded, the macro takes no account of cell border padding or any 'before/after' spacing for the paragraph they're attached to.

GarethHourihane · #7 06-02-2011, 05:05 AM

Spot on Paul. Thanks very much.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Adding Image into a excel cell and adding a hyperlink to the image	saravananiyyanar	Excel	3	05-04-2011 08:31 AM
How can I fill cell color starting from Cell D5 using Conditional formatting instead	Learner7	Excel	0	07-08-2010 05:50 AM
How can I make a cell color RED under the Today's date cell?	Learner7	Excel	2	07-08-2010 12:52 AM
Auto-populate an MS Word table cell with text from a diff cell?	dreamrthts	Word Tables	0	03-20-2009 01:49 PM
Table Autofit Behavior Default	Henri Blits	Word Tables	0	07-18-2006 03:49 PM