Hi All
I must be speding far too much time in Excel. I am trying to loop through all Worksheets in an Excel Workbook, copy all charts on those Worksheet and paste them into a new Word Doc.
I have got all the code except the vital bit about pasting into Word
The code below is waht I have so far, most I pinched off a post by Jack in the Uk (thanks Jack)
Code
Sub Excel_to_Word_JackintheUK()
Set Word6 = CreateObject("Word.Basic")
With Word6
If UCase(Left(Application.OperatingSystem, 3)) <> "MAC" Then
.AppRestore
.AppMaximize 1
Else
AppActivate "Microsoft Word"
End If
.FileNewDefault
.InsertPara
For Each wWsht In ThisWorkbook.Worksheets
For Each sShape In wWsht.Shapes
sShape.Copy
[b]'Bugs out here ARRHHHH!!![/b]
Selection.PasteSpecial
Next sShape
Next wWsht
End With
End Sub
Display More