Search results for query: *

Hi! I would like to delete (or hide) all Visio default items which are in the right-click menu in order to add mine. Does someone know how to do and can help me? Thank you!

I know that's a menu selection but I don't succeed in programming it: delete all default Visio accelerators and create mine... To delete Visio accelerators I wrote: For i = 0 To accelItemsObj.Count - 1 Set accelItemObj = accelItemsObj.Item(i) accelItemObj.Delete Next i ... but it stops...

Hi! I would like to custom several Visio accelerators. For example I would like to link a function I've written with Ctrl+c (copy) but I don't know how to do. Thank you for your help.

Hello! I would like to know how to access Visio file properties... I write this in my VBA code: Set fs = CreateObject("Scripting.FileSystemObject") sProp = fs.BuiltinDocumentProperties.Item(1) but it doesn't work. Can someone help me?

Hello! I would like to write something in the Visio Statusbar when a drawing is created by automation. I've written: Set myUIObj = Visio.Application.BuiltInToolbars(visToolBarNone) Set myStatusbar = myUIObj.StatusBars.ItemAtID(visUIObjSetDrawing) Set myStatusItem =...

Hi! I've a flowchart "MyGraph.vsd" and I would like to save it as "MyGraph.jpg" with a macro. In my code I tried to do: Visio.ActiveDocument.SaveAs DocPath & "MyGraph.jpg" It creates the new file but when I open it, there's no drawing. How can I do? Thanks in advance!

Hi! I would like to open the Windows dialog box "Open" with VBA specifying a filter. With Excel I've used: chosenFile = Application.GetOpenFilename(fileFilter:=allFileFilter, Title:=aWindowTitle, MultiSelect:=True) but it doesn't work with VBA in Visio (GetOpenFileName doesn't exist). Is...