Help !!!

[Peter Totev]

Hi,

I want to show shape custom properties when I choose an Item of Combo Box in
Visio 2003.
I have this code so far.

Private Sub ComboBox1_Change()

Dim visShape As Visio.Shape
Set visShape = ActivePage.Shapes.Item(4)

Select Case ComboBox1
Case "hardware devices"
visShape.Application.DoCmd (1312)
Case ...
End Select
End Sub

The problem with him is that this display the Custom Properties of the
Selected Shape.
I want to display this shape wich I want in this case :
Set visShape = ActivePage.Shapes.Item(4)

I think this is very close to the right code,and I don't know what's wrong
with this code.
I'll be greatful to you if you have any ideas about this !!!

Tnank you in advanced!

 

[Al Edlund]

consider putting this after your shape selection

Dim visWindow As Visio.Window
Set visWindow = Application.ActiveWindow
' shape has to be selected for the command to work
visWindow.Select visShape, visSelect

and use this for your command
Application.DoCmd 1312

al

 

[Peter Totev]

Thanks for the help !

This work but I still have a little problem with this.
When the custom properties shows if I change something on them everything is
perfect. But if I didn't change something and click OK show me an error.
And specially this Error : Run-time error '-2032466955(86db03f5)'"
Do you know why this happened and Can you help me with this ?

Thank you again !

 

[Al Edlund]

consider putting this at the beginning
On Error Resume Next
al

 

[Peter Totev]

Thank you Al, this work !!!

Can you tell me something about my other problem with the Aliases.
This is the problem :

I make one project in Visio 2003. I link a shape from Visio with table from
Access Data Base.
In this Access Table I have a LookUp field.
And the problem is that in visio for this LookUp field is visualize a
number(the Id).
I want to be visualize the value of the this LookUp field which is some
string.
I heard that I can make this with "Alias".But I don't know how to make this.
And where I have to use this Aliases in Visio or in Access.
I tried to find something for Aliases in help of Visio and Access but with
no success.

 

[Al Edlund]

I'm not sure what you are attempting to accomplish, but it sounds like the
issue is in an Access definition. You might go back to the person that
suggested 'alias' and have them further define what they mean.
al