Thread: [Solved] Chart Fit to Content
View Single Post
 
Old 12-10-2017, 06:36 PM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,956
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

After inserting the charts, you could re-set the width of all of them in a single pass with a macro like:
Code:
Sub Demo()
Dim sWdth As Single, iShp As InlineShape
With ActiveDocument
  With .PageSetup
    sWdth = .PageWidth - .LeftMargin - .RightMargin - .Gutter
  End With
  For Each iShp In ActiveDocument.InlineShapes
  With iShp
    If .Type = wdInlineShapeChart Then .Width = sWdth
  End With
Next
End With
End Sub
For PC macro installation & usage instructions, see: http://www.gmayor.com/installing_macro.htm
For Mac macro installation & usage instructions, see: https://wordmvp.com/Mac/InstallMacro.html
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote