Count shape in a mock-up in MS Visio

benjamin213 · #1 06-08-2022, 03:18 AM

Hello everyone,
I am totally new with MS Visio, and I'm lost.
I need to count each item in a bay.

I don't have a lot of information except position of each items, and a label for each items that say how much an item take place in a bay ( 1 U or 2 U or 3 U ...)
How can i proceed ?

Guessed · #2 06-08-2022, 04:24 PM

Since you haven't posted a sample file we can only guess at how your racks are structured. You can use a macro to count the shapes and subshapes on each page. This code below returns the output to the immediate window. You could modify it to process all pages or just the selected shapes depending on what you actually need it to do.

Code:

Sub CountEmUp()
  Dim aShp As Shape, aSubShape As Shape
  For Each aShp In ActivePage.Shapes
    Debug.Print aShp.Text, aShp.Master, aShp.Shapes.Count
    If aShp.Shapes.Count > 0 Then
      For Each aSubShape In aShp.Shapes
        Debug.Print "", aSubShape.Text, aSubShape.Master, aSubShape.Shapes.Count
      Next aSubShape
    End If
  Next aShp
End Sub

benjamin213 · #3 06-09-2022, 04:47 AM

Yes sorry I'll explain with more details.
i need to count each items in one bay and detect also how many slots its used. for example in this picture the last item use 12 slots.
I can't upload my file so i give you a wetransfer : WeTransfer - Send Large Files & Share Photos Online - Up to 2GB Free
it is not my file and i am a beginner with MS Visio so i don't understand a lot,
what are the scripts for, in vba.
Thank you by advance.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Visio 2019 standard: How to import a custom shape	EveA	Visio	1	01-24-2022 12:36 AM
Visio 2016 New homemade Shape Data export with Network Shape Data	Karlderxte	Visio	1	08-17-2021 04:04 PM
Add fields to shape in the desktop after using the visio excel add inn	rosscortb	Visio	1	08-16-2021 03:42 PM
How do I lock shape positions in Visio 2010	redwards60	Visio	1	08-11-2015 05:41 AM
VISIO - Formatting Shape Data Details TABLE	Lora	Visio	0	07-19-2010 12:15 PM