Resize an image to match a cell

[GBoy]

OK I am trying to resize an image I uplaod in to my worksheet to fit a cell which could potentially vary in size.

How do I take the size of a cell and tell the image to resize to it?

I did a search and there are many variations which combine with other requests and I cannot seem to get a clear idea as to what code I require.

Thanks.

[Leith Ross]

Hello Gboy,

The key is to use common properties. Both the Cell and the Image share 2 properties relating to they're size: Height and Width.

Example:

With Range("E5")
  .Height = Image1.Height
  .Width = Image1.Width
End With

Change Image1 to the name of the object you are using in your code.

Sincerely,
Leith Ross

[GBoy]

That is ideal, thank you very much.

[GBoy]

Out of curiosity what if I wanted to resize a cell to the size of an image?

[Leith Ross]

Hello Gboy,

Just reverse the objects...

With Image1
  .Height = ActiveSheet.Range("A5").Height
  .Width = ActiveSheet.Range("A5").Width
End With

Sincerely,
Leith Ross

[GBoy]

Once again many thanks.