Hiding the Product Name

[murugavelmsc]

Hi,

I have a Visio 2007 Application. I want to hide the text "Microsoft Visio" in the header of the document
(i.e. Filename - Microsoft Visio). Is it possible to hide that. If it is means please advice.

Thanks,
Murugavel

[Paul Herber]

Here is some code in Delphi that sets the application name to 'Fred':

Code Select Expand


target_hwnd: THandle;

target_hwnd := FindWindow(nil, 'Microsoft Visio');
if target_hwnd <> 0 then
  SendMessage(target_hwnd, WM_SETTEXT, 0, Integer(PChar('Fred')));


I've just tried it and it overwrites the Visio main window caption.

[murugavelmsc]

Hi
Is it possible in VBA to hide the Product Name.
If not means, how i can incorporate the delphi code into my application.

Thanks in advance,
Murugavel S

[Paul Herber]

Yes, you just have to translate the Delphi code into the VBA equivalent.

[AndyW]

Private Declare Function SendMessage Lib "USER32" Alias "SendMessageA" ( _
                                ByVal hwnd As Long, _
                                ByVal wMsg As Long, _
                                ByVal wParam As Long, _
                                LParam As Any) As Long

Private Const WM_SETTEXT = &HC


Call SendMessage(Visio.Application.WindowHandle32, WM_SETTEXT, 0, ByVal "New Title")

[Paul Herber]

Much better than my code!

[AndyW]

I've also noticed, that if you open another document in Visio, restore a document window etc that Visio will reset the application window and document window captions.

[murugavelmsc]

Hi,

It works great, But i click the save as - the name can be changed as "File Name - Microsoft Visio".
I want to change the name as Filename only in visio header window.

I can use the following code to save as

ThisDocument.SaveAs "C:\" & Trim(Wrkflow_Name_txt.Text) & ".vsd"


Please Help me.

Murugavel