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 ------------------------------------------------------------------------------------- -~----------~----~----~----~------~----~------~--~---