Automatically position the application window for Visio 2013
Posted on 2014-02-07
I use Excel 2010 and Visio 2013.
Excel file (name: 'XL_driver') creates/ selects a type of Visio file (name: 'vis_slave'), via early binding, and xl vba procedures control all vis-slave vba procedures.
I wish the XL-diver application window to appear on screen above vis_slave application window, so the USER can conveniently use xl's ribbon buttons to work with vis_slave. Thus, when the USER drags xl_Driver about the screen, its vis_slave should follow.
First steps in xl_driver code show evidence of progress (#2), but ultimate failure (#3):
1. Application.top and Application.height give the correct top and height values for the xl_driver app window
2. Accessing the visio application object model from Excel:
Set visioApp = New Visio.Application
'VisioApp is legitimate: the following exits visio application
If Not visioApp Is Nothing Then visioApp.Quit
Set visioApp = Nothing
3. 'Now try to position visio app window below foot of xl app window
Set visioApp.top = Application.top + Application.height << BUG
Bug: 'Object does not support this property or method.
Problem: I cant find a path through the object model from visio application to .top
How do I do this, please?