Advertisement
Guest User

Untitled

a guest
Jun 19th, 2019
92
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.28 KB | None | 0 0
  1. wbInd.Sheets("EuropeCovBonds graph fix").ChartObjects("Diagramm 1").Copy
  2.  
  3. wbInd.Sheets("EuropeCovBonds graph fix").ChartObjects("Diagramm 1").ChartArea.Copy
  4.  
  5. wbInd.Sheets("EuropeCovBonds graph fix").ChartObjects("Diagramm 1").Activate
  6. ActiveChart.ChartArea.Copy
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement