1. '図をコピーして貼り付け 
    2.  
         
  2. ThisWorkbook.Sheets(1).Activate 
    3.  
         
  3. ThisWorkbook.Sheets(1).Shapes("タイトル１").Select 
    4.  
         
  4. Selection.Copy 
    5.  
         
  5. Windows(bookName).Activate 
    6.  
         
  6. ActiveWorkbook.Sheets(1).Activate 
    7.  
         
  7. ActiveWorkbook.Sheets(1).Paste 
    8.