Help !!!  
Author Message
Peter Totev





PostPosted: Visual Basic for Applications (VBA), Help !!! Top

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!



Microsoft ISV Community Center Forums1  
 
 
Cindy Meister





PostPosted: Visual Basic for Applications (VBA), Help !!! Top


Hi Peter

<<I want to show shape custom properties when I choose an Item of Combo
Box in Visio 2003. >>

Since I don't see any reply for you in this group, try asking the
specialists in the Visio newsgroup:

http://msdn.microsoft.com/newsgroups/default.aspx dg=microsoft.public.vi
sio.developer.vba&lang=en&cr=US
<BLOCKED::http://msdn.microsoft.com/newsgroups/default.aspx dg=microsoft
.public.visio.developer.vba&lang=en&cr=US>



-- Cindy (Word MVP)