Hi ,
try this code
Dim appWord As Word.Document, aadoc
set appWord = getobject("FileName")
'copy picture from excel
For Each objShape In ActiveSheet.Shapes
objShape.Select
With objShape
.Height = intHeight
.Width = intWidth
.Copy
End With
Next
'Paste it into word
appWord.Activate
With appWord
.ActiveWindow.Selection.Goto what:=wdGoToPage,
Which:=wdGoToNext, Name:=strPageNumber
.ActiveWindow.Selection.Paste
End With
with regards
bala
--~--~---------~--~----~------------~-------~--~----~
-------------------------------------------------------------------------------------
Some important links for excel users:
1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at
http://www.excelitems.com
2. Excel tutorials at http://www.excel-macros.blogspot.com
3. Learn VBA Macros at http://www.vbamacros.blogspot.com
4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
If you find any spam message in the group, please send an email to:
Ayush Jain @ jainayus...@gmail.com or
Ashish Jain @ 26may.1...@gmail.com
-------------------------------------------------------------------------------------
-~----------~----~----~----~------~----~------~--~---
