How to Resizing Word Charts/Pictures in Excel

How to Resize word charts/pictures in excel

Requirement:

The user has written VB code in Excel to paste a series of charts as pictures into word:

"WordApp.Activedocument.bookmarks.Add Range:=WordApp.Selection.Range, Name:="datachart"

Sheets("Sheet3").Select
ActiveChart.ChartArea.Select
ActiveChart.CopyPicture

WordApp.Selection.Goto Name:="datachart"
WordApp.Selection.Paste"

The problem is user needs to be able to re-size these charts (either in word or excel) so that they are all a smaller size in the word document.

So how does the user re-size these using Excel VBA?

https://www.ozgrid.com/forum/forum/other-software-applications/excel-and-or-word-help/10431-resizing-word-charts-pictures-in-excel

Solution:

This will reduce the a chart on a worksheet:

Code:

    
ActiveChart.Parent.Width = ActiveChart.Parent.Width * 0.7
ActiveChart.Parent.Height = ActiveChart.Parent.Height * 0.7

This will ensure the chart stays reduced when copied to word:

Code:

Sub Chart2Word()

    Dim WordApp As Object
    
    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True
    WordApp.documents.Add
    WordApp.activedocument.bookmarks.Add Range:=WordApp.Selection.Range, Name:="datachart"
    
    ActiveChart.ChartArea.Select
    ActiveChart.CopyPicture
    
    WordApp.Selection.Goto Name:="datachart"
    WordApp.Selection.Paste
    WordApp.activedocument.inlineshapes(1).Width = WordApp.activedocument.inlineshapes(1).Width * 0.7
    
End Sub

Obtained from the OzGrid Help Forum.

Solution provided by Andy Pope.