DoCmd (1312)
I managed to show up the custom properies window of selected shape when I click on the drop down list item of combo box. But first I want to show up the properties of the shape that I indicate in the code (visShape) - not the selected shape from the Visio draw page. Then when I close the custom properties it gives me error - Run-time error '-20324669555(86db03f5). I don't know where I'm wrong. Please, give me some hints or tell me what I have to add or change in the code.
Here is my code:
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
[903 byte] By [Supernaut] at [2007-12-23] 