Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ActiveSheet.PasteSpecial Format:="Microsoft Visio Document", Link:=False, DisplayAsIcon:=False
- ' Select all and copy each Visio page
- pg.CreateSelection(visSelTypeAll).Copy
- ' Paste special to each ppt slide, size and position properly
- pptApp.ActiveWindow.View.GotoSlide (i)
- pptApp.ActiveWindow.View.PasteSpecial i + 63, Link:=False, DisplayAsIcon:=False
Add Comment
Please, Sign In to add comment