resize a pasted Chart in Word from Excel/vba

[drom]

Hi and Thanks in advance!
I am inserting a chart from Excel to Word, (works Fine)

On Error Resume Next:                     Application.ScreenUpdating = False
  Dim wsFilterRp As String:               wsFilterRp = Fx_wShtName(X:=180)
Dim obChart3 As ChartObject:              Set obChart3 = ActiveSheet.ChartObjects("Chart3")
  Dim WordApp As Object:                  Set WordApp = GetObject(, "Word.Application")
  Dim WordDoc As Object
  
  
  If WordApp Is Nothing Then
    Set WordApp = CreateObject("Word.Application")
  End If
    WordApp.Visible = True
    Set WordDoc = WordApp.Documents.Add
    WordDoc.Select
 
  obChart3.Chart.ChartArea.Copy
  Application.Wait Now + TimeValue("00:00:02")
  WordApp.Selection.PasteAndFormat 13

But after I Insert the Excel Chart named "Chart3" in my ActiveSheet

How can I resize this pasted Chart/Picture/Shape ??

• So that it measures as the width of the Wrod Document, page.

My Pasted Chart/Picture/Image in X times bigger than the Active WordDocument

 

[NdNoviceHlp]

Hi again Drom. U can trial this...

Dim WidthAvail As Double
'determine width
With WordApp.ActiveDocument.PageSetup
    WidthAvail = .PageWidth - .LeftMargin - .RightMargin - .Gutter
End With
'size shape to sheet
With WordDoc.Shapes(Shapes.Count)
.LockAspectRatio = msoFalse
.Width = WidthAvail
End With

Dave

 

[drom]

With WordDoc.Shapes(Shapes.Count) .LockAspectRatio = msoFalse .Width = WidthAvail End With

Hi
My VBA code, does not recognize any shape in my Word document (despite I am iserting a chart from Excel using VBA
When I Use the Inmediate window I get:

?WordDoc.Shapes.Count
 0 
?WordApp.ActiveDocument.Shapes.Count
 0 
?WordApp.Shapes.Count
Error

So I can't Apply:

With WordDoc.Shapes(Shapes.Count)
.LockAspectRatio = msoFalse
.Width = WidthAvail
End With

And I need that in order to :

.LockAspectRatio = msoFalse
etc

Any new help ?

Hi again Drom. U can trial this...

Dim WidthAvail As Double
'determine width
With WordApp.ActiveDocument.PageSetup
    WidthAvail = .PageWidth - .LeftMargin - .RightMargin - .Gutter
End With
'size shape to sheet
With WordDoc.Shapes(Shapes.Count)
.LockAspectRatio = msoFalse
.Width = WidthAvail
End With

Dave

 

[NdNoviceHlp]

maybe...

'size shape to sheet
With WordDoc.InLineShapes(InlineShapes.Count)
.LockAspectRatio = msoFalse
.Width = WidthAvail
End With

Dave