I have a number of charts which are pasted on a sheet as pictures. I want to open a 'new document' in
Word and paste all pictures in that document. When the user closes the word file it would be nice that a 'Save As' screen
opens with a default directory "C:QRA Model *.doc".
If I select them all and paste to Word - they will appear as
one picture and I need them one below another so they have to be pasted one by one - one below another (with the size of each
picture fitting the page width - i.e. some times these pictures come wider than the page).
In earlier threads I
found this code which seems to be similar to what I want but it deals with a range not with a shape/picture?
Dim wdApp As Object
Dim wd As Object
On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If Err.Number 0 Then
Set wdApp = CreateObject("Word.Application")
On Error Goto 0
'the following statement opens a specific doc and I want a new one?
Set wd = wdApp.Documents.Open("C:testtest.doc")
wdApp.Visible = True
Range("A1:E10").CopyPicture xlScreen, xlPicture
If you like these VB formatting tags please consider sponsoring the author in support of injured Royal Marines
For moderators: In one of the earlier threads I found that 'the thread was moved to Word/Excel' forum? I can't find it,
is that still the same name?