All Charts the same size

VisionAvenger · #1 01-17-2024, 07:59 AM

I've done quite a few web searches, but I can't find any method to resize ALL the charts in a Word document. You can't record a macro (if you do, no code is generated), and you can't use the Format Painter.

Is there no way to make all Charts the same size without having to go through one-by-one and changing the height and width?

Thanks for any help.

Guessed · #2 01-17-2024, 03:15 PM

You can do it with a macro quite easily. Are all the charts placed inline or do they have text wrapping turned on? Are there other graphics in the document that you don't want resized?
At it's simplest the macro could be

Code:

Sub ResizeGraphics()
  Dim inShp As InlineShape
  For Each inShp In ActiveDocument.InlineShapes
    inShp.LockAspectRatio = msoTrue
    inShp.Width = CentimetersToPoints(5)
  Next inShp
End Sub

VisionAvenger · #3 01-18-2024, 02:00 AM

Thanks, Andrew. Legend!

Have a great day!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
change printer settings - page size not paper size	trevorc	Excel Programming	4	07-20-2020 05:10 PM
Pasting Excel Charts and Graphs into PPT 2010 - Retaining Consistent Size	pptdiva	PowerPoint	0	06-29-2017 03:21 PM
After updating linked excel charts in publisher, all charts are moved	effinglife	Publisher	0	05-23-2017 02:27 AM
Font size showing different (some superscripted??) but tools show its the same size?	mikkygee	PowerPoint	4	12-14-2015 11:21 PM
Copying excel charts into word - huge file size.	Matt.M	Word	2	04-02-2014 07:38 PM