By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
424,968 Members | 1,588 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 424,968 IT Pros & Developers. It's quick & easy.

visio save as

100+
P: 142
Sam,
Help again! In the Save function you help me before,

Expand|Select|Wrap|Line Numbers
  1.  
  2. Dim sNew As String
  3. sNew = Split(ActiveDocument.Name, ".")(0) ' Strip filetype
  4. sNew = sNew & "-" & Format(Now(), "yyyy-mm-dd") & ".vsd"
  5. MsgBox "Saving chart as readonly in " & sNew
  6. ActiveDocument.SaveAs vsDoc.path & sNew
  7.  
what the code above do is after excel input text to the original visio, it save to a new name, and the original visio disappear. But how I can save the original visio to a new name and leaving the original visio open as the active document?
Thanks
Apr 23 '07 #1
Share this Question
Share on Google+
2 Replies


100+
P: 142
Or is there a way to make a copy of the visio before I input the text, so leaving the original file open. but I only find "CopyFile" for excel, not for visio. and how can I lock the file path as the original file path?
Apr 24 '07 #2

100+
P: 142
yeah, just declare another vsapp.
Apr 24 '07 #3

Post your reply

Sign in to post your reply or Sign up for a free account.