Change size of all graphs

Hello everybody,

I am very new to this forum and only have a little bit of VBA skills, however, I hope you could help me something, which I am sure is very easy for you.

I have a excel workbook with a lot of different graphs, which I need for a presentation.
I would like to have a macro that makes all graphs the same size.
I was thinking about 2 cells where I can put the width and the height in cm and then a button which I can press to change all the sizes.
Is that possible?

You would help me a lot! Really appreciate your time and effort!

Best,
Aden

UPDATE:::


Hello everybody,

So I tried my best till know and it almost works.

However, till now it only works for the active sheet but I would want the charts from the whole workbook to be the same size?

Please Login or Register  to view this content.

Hi there,

See if the following code does what you need:

Please Login or Register  to view this content.

Hope this helps - please let me know how you get on.

Regards,

Greg M

That works perfectly!

Thank you so much Greg!!!!

Thank you for your quick answer!!!!!

I am not sure if I got that 100%. That means I might optimize the macro for my monitor, however, if I would send it to a collegeau if wouldn't work anymore?

I found the answer!!!


Application.CentimetersToPoints(Worksheets("Template").Range("J4").Value)


Thank you all!

Hi again,

Many thanks for your feedback - glad I was able to help.

Best regards,

Greg M