Wie kann ich in Visio 2013 Professional Shapes in einem funktionsübergreifenden Flussdiagramm automatisch nummerieren lassen?

Anonym

Hallo zusammen,

ich habe schon Google rauf und runter abgesucht, finde aber nur Lösungen bis zur Version 2010, die in 2013 nicht funktionieren.

Ich möchte eine dynamische und automatische Nummerierung der Shapes in meinem Funktionsübergreifenden Flussdiagramm haben, um die Prozessschritte referenzieren zu können.

Ideal wäre etwas im Format "<statisches Kürzel>-<laufende Nummer in Zehnerschritten>", z.B. "PS-10", "PS-20". Diese Nummerierung soll sich automatisch aktualisieren, wenn Shapes hinzugefügt oder entfernt werden.

Ideal wäre, wenn man die Reihenfolge der Shapes manuell beeinflussen kann, da Automatismen diesbezüglich meisten eingeschränkt intelligent sind, das muss aber nicht unbedingt sein.

Danke für eure Hilfe,

Colin

Gesperrte Frage. Diese Frage wurde aus der Microsoft-Support-Community migriert. Sie können darüber abstimmen, ob sie hilfreich ist, aber Sie können keine Kommentare oder Antworten hinzufügen oder der Frage folgen.

0 Kommentare

Antwort, die vom Frageautor angenommen wurde

Anonym

Lösung von Fei Xue (Original in diesem Thread: http://social.msdn.microsoft.com/Forums/office/en-US/ff941cb2-9e27-46f4-9b27-6dfc4c7366c6/visio-2013-how-do-i-get-automatically-numbered-shapes-in-a-crossfunctional-flowchart?forum=officegeneral)

--- schnipp ---

Hi,

According to your description, you want to automatically numbered shapes.

I suggest you select the shapes you wanted numbered and using the code below to numbered the shapes:
Sub autoNumShape()

Dim index As Integer

index = 1


For i = 1 To Application.ActiveWindow.Selection.Count

If TypeOf Application.ActiveWindow.Selection.Item(i) Is Shape Then

Application.ActiveWindow.Selection.Item(i).Text = "PS-" & index & Application.ActiveWindow.Selection.Item(i).Text

index = index + 1

End If

Next i


End Sub
Screen Shot:

You can get more detail about Visio Object Model from link below:

Visio Object Model Reference

Best regards

Fei

--- schnapp ---

0 Kommentare

Antwort, die vom Frageautor angenommen wurde

Anonym

Hallo Colin,

da du hier bisher keine Antwort erhalten hast, möchte ich dich bitten, deine Anfrage erneut im Visio Forum von Microsoft TechNet (nur in englischer Sprache verfügbar) zu posten.

Leider ist es mir nicht möglich deine Anfrage direkt dorthin zu verschieben, ich möchte dich deshalb bitten diese Anfrage erneut im TechNet-Forum zu stellen.

Hier der Link zum Forum:

http://social.technet.microsoft.com/Forums/office/en-US/home?category=visio2010

Es wäre sehr nett von dir, wenn du uns einen Link zu deiner Anfrage im TechNet-Forum zur Verfügung stellst. Auf diese Weise können auch andere User schnell die Antwort finden.

Gruß,

Pauline

0 Kommentare

1 zusätzliche Antwort

Anonym

2014-03-05T08:16:28+00:00

Gleiche Frage in englisch im technet, wie gewünscht:

http://social.technet.microsoft.com/Forums/office/en-US/ff941cb2-9e27-46f4-9b27-6dfc4c7366c6/visio-2013-how-do-i-get-automatically-numbered-shapes-in-a-crossfunctional-flowchart?forum=visiogeneral

Ich habs mal in der Visio 2010 Kategorie gepostet, eine für Visio 2013 gabs nicht :/
War diese Antwort hilfreich?

0 Kommentare Keine Kommentare