Doble click event in visio

Question

Hello everybody. I have a question I have a code that change the width and height of a shape when user click in a shape and I want that  when the user click a shape change the width and height of a shape, and when the user click again same shape, change
width and heigth to normal values. I did a code using a count but is not working, count variable do not change
Dim shape1 As shape
Set shape1 = Application.ActivePage.Shapes("AP1")
If count > 0 Then
shape1.Cells("Width").Formula = "0 mm"
shape1.Cells("Height").Formula = "0 mm"
count = 0
End If
If count = 0 Then
shape1.Cells("Width").Formula = "7,333 mm"
shape1.Cells("Height").Formula = "22 mm"
count = count + 1
End If

Answer 1

The basic problem is that the variable "count" in not kept. Every time you call your routine a new "count" is created.
Two ways of doing this:
Store the value "count" within the shape, have a look at Shape Data
Instead of using a variable, use the width or height as the value you compare with
e.g. If shape1.Cells("Width").Formula = "=0 mm"
Paul Herber, Sandrila Ltd. Engineering and software shapes for Visio
Sandrila Ltd