Get The Dimensions of an Imported Image

I was googling for a VBA code that allows me to get the dimension in "cm" of the imported image in the an Excel sheet. So the process I import the image and once imported it registers the dimensions Width & Height in a certain cell unit = cm. And if I move the image, the dimensions follow the image moving cells.

I found below links:
https://stackoverflow.com/questions/...age-dimensions
https://social.msdn.microsoft.com/Fo...e?forum=isvvba

Those links didn't work with me for the imported image in Excel plus it get info of a static file name while it should be variable.

Any help please.

Thank you for your questions, I meant insert instead of import. The insert picture in excel at the INSERT Tab.

The process is as following:
1- We'll insert images in Excel, now the images are saved and embedded within the excel thus the link and where it comes from isn't important. As we can delete the image folder but the image remains working should be.
2- After the insert automatically for example the dimensions are inserted in cells like in A10 = 120cm Width B10 = 120cm Height.
3- And if we move the image let's say from cells A-B-C to F-G-H the dimensions will move from A10 and B10 to F10 and G10


Hope this clarifies everything

The link below for the file that includes the pictures I'm referring to, what I'm trying is to retrieve the dimensions of those images in cells of the excel worksheet in CM. Any help please?

https://files.fm/u/t8fpwczb

Why "72 * 2.54" Does that refer as static measure. Please not images dimensions might differ from one another. I want to print the values into cells. Please advice me with a complete code, thank you!

Originally Posted by bakerman2

Remove the Calculate-event the try this one.

Please Login or Register  to view this content.

Thank you I think it's working now but 2 things:

1- I need to print the values in cells rather a message box
2- When I compare the message box for example it says
Picture dimensions are:
Height: 8.99 cm
Width: 12.74cm

When double clicking on this pic and go to the format section /picture tools it's giving me height 11.99 cm and width 16.99cm. There are big difference why?

Originally Posted by Marc L

Hi !

Have look to CentimetersToPoints method …

Can you elaborate please

Originally Posted by webiscore

Can you elaborate please

To see in VBA inner help …

Please Login or Register  to view this content.

I'm trying the following code and thanks a lot to you now I'm getting the accurate size but it's keep giving me
Run-time error '13":
Type mismatch

wpicture = .Cells(Application.Match(Target.Value, .Columns(1), 0), 2)

I checked the cells are correct and there's no mismatch but why?

Range("Q6") = y & "cm" /// BTW IT's not Printing Width Only the Height

Thanks man I appreciate and really sorry.

But why when I use If Target.Address = "$P$3" Then it doesn't load the images and dimensions and once I comment it I get the info needed but the excel keeps looping and stops responding.

Please use https://files.fm

Didn't get your point

Thank you I have managed that but now i'm trying to autoupdate the values if the image was resized

Originally Posted by bakerman2

Did you put the code in the worksheetmodule of Sheet1 ?

Replace P3 with the Range your Datavalidation is in.

Can't upload your file because it's too big.

This is the code and now working fine thanks.

Please Login or Register  to view this content.

Please can you advise me how to auto update the values if I'm resizing the image without going back and forth or closing the excel sheet.

Thank you so much!

Originally Posted by bakerman2

A shape only knows the click event so resizing a shape won't activate any code.

The only workaround I can think of is putting an Active-X label on the worksheet so you can use the mouseover- event to recalculate the dimensions.

You could place that label in a convenient place, remove the caption and set backstyle to transparent so it's invisible but present.

Thanks a lot for the information and so much appreciated for your support. Can you please elaborate and show me an example i'm a newbie