Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- cht.Select
- ActiveChart.ChartArea.Copy
- PptApp.Visible = msoTrue
- Set PPShape = activeSlide.Shapes.PasteSpecial(DataType:=ppPasteMetafilePicture)
- With PPShape
- .Height = 440
- .Width = 790
- End With
Add Comment
Please, Sign In to add comment