Avatar of bsharath
bsharath
Flag for India asked on

Is there any way to save Vsd Visio files as Jpg. When Macro run.

Hi,

Is there any way to save Vsd Visio files as Jpg. When Macro run.

There are times when many ask the floor plans. As i have data linking in the visio files they keep changing. So the current one will take me some time to get them to jpeg images.

Is there a way a macro when run gets each sheet and each file to jpeg and save them to sheets name in a folder.

This is very useful for me if anyone can help...
Regards
sharath
Microsoft Visio

Avatar of undefined
Last Comment
bsharath

8/22/2022 - Mon
ASKER CERTIFIED SOLUTION
Scott Helmers

THIS SOLUTION ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
See Pricing Options
Start Free Trial
GET A PERSONALIZED SOLUTION
Ask your own question & get feedback from real experts
Find out why thousands trust the EE community with their toughest problems.
bsharath

ASKER
Thanks a lot scott this orks perfect. But for each drawing i have 2 user interaction as attached. Can this also be automatted.

ScreenShot050.bmp
ScreenShot051.bmp
bsharath

ASKER

Hi Scott for some files i get the attached box as well.Can this also be overridden.
One more thing. For each building i have the relevant floors in folders. So can i have this macro visio file in a folder. Can it scan all folders within the root folder and put all the jpg's in 1 folder with relevant folder names.So when i send then i can zip then individually or the whole folder please...
As i have the visio files into the jpg they ae not so clear when they are zoomed. I think its because of the computer icons resolution. Can that be made with high resolution
ScreenShot052.bmp
Scott Helmers

Regarding your three dialog boxes (from top to bottom):
  1. The first one apparently has to do with some of the shapes on the page (not our seat position master). It would seem that if you click yes and update them that it wouldn't ask again. Is that true?
  2. I'm not sure the reason for the second dialog. When does this one appear? Does it appear for each of the files that the program opens or just certain ones? Does it happen every time?
  3. The shape numbering  dialog is a result of the auto-number option on each page. If you're finished adding shapes, you can turn off the auto-number option on each page and this message shouldn't appear.
I'm sure it's possible to process files in and into separate directories but I'm not clear what you're looking for. Why don't you attach a screen shot of the directory structure you have in mind and indicate again where you want the images to be put. You might ask this as a separate question unless this is what you meant in the first place for this question (I thought you wanted everything in one directory for this question).

The biggest problem with the screen resolution of the jpg images is that the icons are so small to start with. By the time you zoom in to be able to read them, they get pixelated and fuzzy. Why don't you experiment with saving pages in other image formats to see whether they look any better when they're blown up so severely. You can also try saving jpg images at 100% quality instead of the default of 75% (the setting is on the jpg quality dialog after you select save as jpg).
Experts Exchange has (a) saved my job multiple times, (b) saved me hours, days, and even weeks of work, and often (c) makes me look like a superhero! This place is MAGIC!
Walt Forbes
bsharath

ASKER
1.  This box comes on every open of the visio page.
2. It apears after the first box.
3. Ok
How can i change the settings to 100% quality.
 
I have a root folder as
D:\Visio Plans
 
within this i have a lot of folders as
GTY
HYE
HRE
GAW
So when i have the visio macro in the D:\Visio Plans. And run the macro all the folders need to be scanned and the same folder names have to be created into a folder called 'Visio Jpg"
 
Scott Helmers

  1. I'm not sure I can help wtih this one other than to suggest you remove whatever shapes are in need of being updated. It's probably the intelligent wall shapes you have on some pages. Try replacing all of them with plain lines and that may solve the problem.
  2. Presumably this will stop appearing if you remove all the intelligent wall shapes.
It will take me a while to figure out how to traverse the subdirectories. I haven't done it before but will try to get to it this week.
bsharath

ASKER
Ok Scott
⚡ FREE TRIAL OFFER
Try out a week of full access for free.
Find out why thousands trust the EE community with their toughest problems.
bsharath

ASKER
Ok Scott
bsharath

ASKER
Any help scott. On instructing the macro to scan all folders and place then in 1 folder.
bsharath

ASKER
Any help scott. On instructing the macro to scan all folders and place then in 1 folder.
Your help has saved me hundreds of hours of internet surfing.
fblack61
Scott Helmers

Creating a tooltip involves editing the shapesheet for a shape. Every Visio object -- the shapes, the pages and even the Visio document itself -- has a shapesheet, which is a spreadsheet-like object that contains the data that drives the behavior of the shape.

Creating a tooltip requires modifying the shapesheet for an object. I've adapted the instructions below from this article (from a blog written by Visio developers at Microsoft):
    http://blogs.msdn.com/visio/archive/2006/07/04/655569.aspx


1) Select the shape in your drawing to which you want to add a tooltip

2) Go to Window > Show Shapesheet

3) If there is already a Section with the title "User-defined Cells", go to step 5.

4) Go to Insert > Section, check User-defined cells and click OK

5) In the "User-defined Cells" section, click on the row name of the last row to select
the title of the row

5) Type visEquivTitle and press Enter - you should now see
User.visEquivTitle for the row

6) Double click into the Value cell of that row and delete the contents of the cell

7) Locate the hyperlink section and click once in the Address field for the hyperlink, then press enter. You should see this in the Value cell of the visEquivTitle row:
    =Hyperlink.Row_1.Address
(note: the row number shown above may be different)

8) If there is already a section with the title "Shape Data", go to step 12

9) Go to Insert > Section, check Custom properties and click OK

10) Provide a Label and Value if you want this information to be visible

11) If you don't want the shape data to be visible, enter TRUE in the
Invisible cell

12) Close the Shapesheet window and repeat for any other shape you like

13) Choose File > Save as Web Page to create the HTML output


Try these steps and let me know whether this produces the desired result.
Scott Helmers

whoops -- ignore above -- it was intended for a different question
bsharath

ASKER
ok...
⚡ FREE TRIAL OFFER
Try out a week of full access for free.
Find out why thousands trust the EE community with their toughest problems.
bsharath

ASKER
Hi Scott. How are you.?
I have sent a mail to you on some help. Shall post the same in EE. But can you confirm you have received the same and you have the time for this... :-)
Scott Helmers

Got the email but haven't had a chance to look at it yet. I'll try tonight or first thing tomorrow (this afternoon is fully booked).

Scott
bsharath

ASKER
Ok Scott thank you
I started with Experts Exchange in 2004 and it's been a mainstay of my professional computing life since. It helped me launch a career as a programmer / Oracle data analyst
William Peck