Solved

Application.Window.Caption is read-only in Visio 2010, 2013.Is there a work around to disable the cation or change it?

Posted on 2015-02-02
6
126 Views
Last Modified: 2015-02-12
I drive Visio 2010 from excel 2010.
Excel causes visio files to be made with machine-defined file names, and maintains a spreadsheet of visio files created.
In this spread sheet, the user does not see the machine defined name, but a token name the user has chosen.

Ideally, I'd like the token file name to replace the machine file name in the App.window.caption (seems not).

If that's not possible, is there a way of customising the Status Bar Message?

One 'indirect' option is to provide a customised ribbon button called "My File Name", which calls a MsgBox or UserForm that displays the file name from a variable.

Else, is there another work around (except for displaying the token file name within the Visio drawing window)?


Thanks

Kelvin
0
Comment
Question by:Kelvin4
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 3
6 Comments
 
LVL 51

Expert Comment

by:Rgonzo1971
ID: 40585647
Hi,

the reference says it is read and write

pls try

Debug.Print Application.ActiveWindow.Caption
Application.ActiveWindow.Caption = Application.ActiveWindow.Caption & 1
Debug.Print Application.ActiveWindow.Caption

for reference
https://msdn.microsoft.com/en-US/en-en/library/office/ff768113(v=office.15).aspx

Regards
0
 

Author Comment

by:Kelvin4
ID: 40586293
Thank you Rgonzo,
I see your reference, which is new to me.
In my hybrid system (code in Excel drives Visio) the following code has these effects:

'Application' refers to Excel
Application.Caption = "Think! Question Writer, loaded with Question File: " & "'" & item_FileName & "'"
'this alters the Caption of the excel application

visioApp is the object I set for the visio application
    MsgBox "visioApp.Window.Caption = " & visioApp.Window.Caption
'this reports the default text of the Visio window

'I think this is the ACID test of whether visioApp.Window.Caption is write as well as read.......
    visioApp.Window.Caption = "testing... hello" does not write ... it threw a bug report

I conclude visioApp.Window.Caption is read only?

Kelvin
0
 
LVL 51

Expert Comment

by:Rgonzo1971
ID: 40586310
Have you tried ?

visioApp.ActiveWindow.Caption  = "testing... hello"

of course you should have first an active window
0
Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

 

Author Comment

by:Kelvin4
ID: 40590452
Thanks, sorry for the delay -

I tested the code as you commented,: the default caption reads as expected; the customised caption failed:

Code written directly into into standard module of Visio 2013 (Excel not involved).  

Sub test()

          ' the NEXT line reports the default caption, as displayed on the Visio application window ----->>
    Debug.Print "default Caption = "; Application.ActiveWindow.Caption

          ' the NEXT line is bug: 'invalid window type for this action'-->>
    Application.ActiveWindow.Caption = "testing... hello"

    Debug.Print "Custom Caption = "; Application.ActiveWindow.Caption

End Sub

I think the page: https://msdn.microsoft.com/en-US/en-en/library/office/ff768113(v=office.15).aspx
is incorrect!

Kelvin
0
 
LVL 51

Accepted Solution

by:
Rgonzo1971 earned 500 total points
ID: 40590467
Sorry can't help further
0
 

Author Closing Comment

by:Kelvin4
ID: 40605179
Thanks for your advice, which is always appreciated.
Visio's object model is more limited than xl, and it can be a bit frustrating.

Kelvin
0

Featured Post

Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
Visio: Linking Data to Shapes from a SQL Database 7 209
Help With Vision 7 75
ERD Visio 2010 Drawing - Table Relationships 4 154
Mirroring in Visio 2010 5 42
The ability to add structure to Visio diagrams using containers, lists and callouts is one of my favorite features in Visio 2010. In this article we’ll examine lists. We’ll explore containers and callouts in separate articles. Prior to reading th…
Meetings to discuss business process can waste time, and often do .  The meeting's dialog can get confusing when participants have different professional perspectives and backgrounds.  A jointly-developed process picture helps wade through the confu…
This video shows how to use Hyena, from SystemTools Software, to update 100 user accounts from an external text file. View in 1080p for best video quality.

734 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