Solved

Visio and powerpoint

Posted on 2010-08-18
11
882 Views
Last Modified: 2012-05-10
Hi,

I have 150 diagrams in visio in different taps. How I can put this diagrams in a PowerPoint presentation with visual basic for applications
0
Comment
Question by:joyacv2
  • 8
  • 3
11 Comments
 
LVL 30

Expert Comment

by:Scott Helmers
ID: 33474077
It's certainly possible to automate the work of putting your Visio drawings into PowerPoint but I have a couple of questions first:
  1. If your goal is just to view the Visio drawings in a "slide show" format, have you tried just using Visio in full screen mode? With the drawing file open, press F5 to go into full screen view. You can use the arrow keys or PageUp/PageDown to move back and forth through the files. It's very much like viewing PPT slides.
  2. If your goal is to create a PPT file because you also have other information you want to add to the PPT slides, do you just want images of each Visio drawing in the PPT file or do you want to be able to edit the drawings from within PPT?
  3. If you just want images, I can help create code to do that (not too difficult).
  4. If you want to edit from within PPT, I suggest reading this article to decide about linking vs. embedding:
Let me know what you're trying to accomplish and we'll take it from there.

Regards,
Scott
 
0
 
LVL 30

Expert Comment

by:Scott Helmers
ID: 33474759
BTW, what versions of Visio and PowerPoint are you using?
0
 
LVL 1

Author Comment

by:joyacv2
ID: 33477009
Hi,

I only need to copy the diagrams from visio to the slides in powerpoint using code. Are 150 diagrams in the visio file in different tabs to the PowerPoint presentation in different slides
0
PRTG Network Monitor: Intuitive Network Monitoring

Network Monitoring is essential to ensure that computer systems and network devices are running. Use PRTG to monitor LANs, servers, websites, applications and devices, bandwidth, virtual environments, remote systems, IoT, and many more. PRTG is easy to set up & use.

 
LVL 30

Expert Comment

by:Scott Helmers
ID: 33477268
So you just need images of each diagram on a PPT slide.

Which version of Visio and PPT do you have?
0
 
LVL 1

Author Comment

by:joyacv2
ID: 33487980
Yes, are 150 diagrams in the visio file in different tabs, so I need 150 ppt slides in the presentation
0
 
LVL 30

Accepted Solution

by:
Scott Helmers earned 500 total points
ID: 33489972
I love it when coincidences like this happen...

I was rummaging through the code samples in the Visio 2007 SDK earlier today, looking for sample code to automate creation of Visio timelines. While there, I stumbled across a code sample I'd long forgotten that makes a PowerPoint slide from a Visio drawing page!

So I adapted the code to create a slide for every page in a drawing and the result is attached below. Feel free to adapt it as you wish, or if you need assistance modifying it, let me know.

Two important notes:
  1. The code is written to run against the "active" document. You can paste the code into your Visio drawing, or you can just open this file, then open your drawing, then run the macro.
  2. Visio has a peculiar habit (feature?) when creating jpg images -- it ignores blank space on the page and only creates the jpg for the part of the page that contains shapes. Read the somewhat lengthy note in the code for the workaround.

Scott
 

Save-Visio-as-jpg-and-insert-int.vsd
0
 
LVL 30

Expert Comment

by:Scott Helmers
ID: 33490042
Forgot to mention one thing -- each jpg image is positioned in the upper left corner of the slide. I didn't do any resizing or repositioning in the code. That's certainly possible but I figured I'd send this as it is so you can see whether it does what you want. Also, because the default slide orientation is landscape, this code works best if your Visio drawing pages are also landscape orientation.
0
 
LVL 30

Expert Comment

by:Scott Helmers
ID: 33491822
Because this question has come up before, I decided to enhance the code a bit more and write an article about the results -- you'll find a download link to the enhanced version of the code at the end of the article.
0
 
LVL 30

Expert Comment

by:Scott Helmers
ID: 33530371
Hi -- did you try the code I provided with the article referenced above? I think it should do what you've asked.

Scott
0
 
LVL 30

Expert Comment

by:Scott Helmers
ID: 33645719
joyacv2 == did the code included with the article referenced above solve your problem? It does save an image of each page of a Visio drawing in a PowerPoint slide. If it solves your problem, please close the question, otherwise, feel free to ask for additional information.

0
 
LVL 1

Author Closing Comment

by:joyacv2
ID: 34654042
Thank You for your help!
0

Featured Post

Netscaler Common Configuration How To guides

If you use NetScaler you will want to see these guides. The NetScaler How To Guides show administrators how to get NetScaler up and configured by providing instructions for common scenarios and some not so common ones.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

A recent Visio zone question asked how to use the data in an Excel file to create a Visio Gantt chart -- and then to dynamically update the Gantt chart. The good news is that the Viso Gantt Chart wizard can be automated. The bad news is that the…
Book Review: Using Microsoft Visio 2010 by Chris Roth   Disclaimer: The author of Using Visio 2010 is a friend and fellow Visio MVP. Whether you’re new to Visio or are upgrading to Visio 2010 from a previous version, you will find a lot to like…
Email security requires an ever evolving service that stays up to date with counter-evolving threats. The Email Laundry perform Research and Development to ensure their email security service evolves faster than cyber criminals. We apply our Threat…
The Email Laundry PDF encryption service allows companies to send confidential encrypted  emails to anybody. The PDF document can also contain attachments that are embedded in the encrypted PDF. The password is randomly generated by The Email Laundr…

770 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question