RUNADDON Language problem

[Blackend]

I use the RUNADDON command in my Visio drawing.

My problem is that the users has different language versions of viso. Some English, some Danish.

Problem is that the RUNADDON("Select database record") is called something else in Danish, something like RUNADDON("Vælg database tabel")

The drawing runaddon macros simply doesn’t work, if it’s not written for the correct language.

Is there another way of doing if, like using VBA, and check for the language setup, and then use the right runaddon command ?

Is there a 3. way of doing it ?

Anybody who has had the same trouble ?

Some source code and step by step guide will be nice, I’m pretty new to Visio.


BTW - Is there a list of all addons, installed with Visio ?

 

[Bill K. [MSFT]]

Use the universal name of the addon, not the local name.
To find the universal name, click Tools > Macros > Visual Basic Editor and
type this in the immediate window:
?Application.Addons("Database Wizard").NameU
=DBWiz

To list the names of all addons, run this macro:
Sub ListAddons
Dim oAddon As Visio.Addon
For Each oAddon In Application.Addons
Debug.Print oAddon.Name, oAddon.NameU
Next oAddon
End Sub


Hope this helps,
--
Bill K.
Microsoft Corporation

This posting is provided "AS IS" with no warranties, and confers no rights.

I use the RUNADDON command in my Visio drawing.

My problem is that the users has different language versions of viso. Some English, some Danish.

Problem is that the RUNADDON("Select database record") is called something

else in Danish, something like RUNADDON("Vælg database tabel")

The drawing runaddon macros simply doesn't work, if it's not written for the correct language.

Is there another way of doing if, like using VBA, and check for the

language setup, and then use the right runaddon command ?

 

[Bill K. [MSFT]]

Sorry, I wasn't very clear below.
Type this in the immediate window:
?Application.Addons("Database Wizard").NameU

The result should be:
DBWiz

--
Bill K.
Microsoft Corporation

This posting is provided "AS IS" with no warranties, and confers no rights.

 

[Blackend]

Hi Bill

Oki - i see your point now - Thanks

Is there a way to start it direct from VBA, something like

sub SelectRecord()
RunAddOn(DBWiz")
end sub

i know this whont work, but is there another way

Thanx very much
Blackend

 

[Bill K. [MSFT]]

Yes,
Application.Addons.ItemU("DBWiz").Run ""

BTW, you can get context sensitive help by setting the insertion point on a
word (such as "Addons") and pushing the F1 button.
If the developer reference is not installed, click Start > Control Panel >
Add or Remove Programs.
Then select "Microsoft Visio..." and click "Change". Then follow the setup
wizard.

Hope this helps,
--
Bill K.
Microsoft Corporation

This posting is provided "AS IS" with no warranties, and confers no rights.