Create a shape with specific name if it is missing?

[VisDom]

Hi all,

I am fairly new to Visio but quite tech savy. I want to create a peace of code that runs every time I open my visio file and checks if a shape named "SpecialShape" is present on the first page. If not (bacause someone else have deleted it) I want the script to create it.

I figured out how to create a shape with a special name "NameU". My main question is: How to check if the shame with the Name "SpecialShape" is always present on the first page when I open up my document?

Code Select Expand

Private Sub Button1_Click()

    Dim vsoShape1 As Visio.Shape
    Dim vsoShape2 As Visio.Shape
 
    Set vsoShape1 = ActivePage.DrawRectangle(0, 0.2, 2, 0)
    vsoShape1.TextStyle = "Normal"
    vsoShape1.NameU = "SpecialShape"
    vsoShape1.LineStyle = "Text Only"
    vsoShape1.FillStyle = "Text Only"
    vsoShape1.Text = "Just a text"   
End Sub

Any ideas?

[wapperdude]

Here's a few links:
https://msdn.microsoft.com/en-us/vba/visio-vba/articles/documents-open-method-visio
http://www.visguy.com/2007/05/25/run-vba-code-when-documents-open/
http://visguy.com/vgforum/index.php?topic=1335.0

I've not tried this, but I can see a security issue if Visio automatically ran a macro upon startup.

Wapperdude

[VisDom]

That helps. Thanks!

How would I check if a shape with the Name  "SpecialShape" exists? I only find examples to identify shapes by ID?

[VisDom]

ok, found this solution:

Code Select Expand

For Each shp In ActivePage.Shapes
      If shp.Name = "SpecialShape" Then: Exit Sub
Next