Shapename nach VBA zurückgeben

[Christopher]

Hallo zusammen,

in VBA kann man einem Shape über Shape.Name="Test" einen Namen geben. Jetzt
hätte ich gerne umgekehrt dieses Shape auf dem Blatt markiert und den Namen
in eine Variable gelesen. Am nähesten bin ich noch mit
"ActivePage.Shapes(i).Name" gekommen. Ich will aber nicht den Namen
irgendeines Shapes, sondern nur den des markierten.
Bin für einen guten Tip dankbar.

Gruß
Chris

[Chris Roth [ Visio MVP ]]

Chris, schau mal ob das hilft!

Sub VoteKerry

Dim shp as Visio.Shape
Dim sel as Visio.Selection
Dim i as integer

Set sel = Visio.ActiveWindow.Selection 'die Markierten!
For i = 1 to sel.Count
set shp = sel.item(i)
Debug.Print shp.Name
Next i

End Sub
--
Hope this helps,

Chris Roth
Visio MVP

Post by Christopher
Hallo zusammen,
in VBA kann man einem Shape ÃŒber Shape.Name="Test" einen Namen geben.
Jetzt
hÀtte ich gerne umgekehrt dieses Shape auf dem Blatt markiert und den
Namen
in eine Variable gelesen. Am nÀhesten bin ich noch mit
"ActivePage.Shapes(i).Name" gekommen. Ich will aber nicht den Namen
irgendeines Shapes, sondern nur den des markierten.
Bin fÃŒr einen guten Tip dankbar.
Gruß
Chris

[Christopher]

Hi Chris,

Sub VoteKerry was the absolutely right.
Thanks

Post by Chris Roth [ Visio MVP ]
Chris, schau mal ob das hilft!
Sub VoteKerry
Dim shp as Visio.Shape
Dim sel as Visio.Selection
Dim i as integer
Set sel = Visio.ActiveWindow.Selection 'die Markierten!
For i = 1 to sel.Count
set shp = sel.item(i)
Debug.Print shp.Name
Next i
End Sub
--
Hope this helps,
Chris Roth
Visio MVP

Post by Christopher
Hallo zusammen,
in VBA kann man einem Shape über Shape.Name="Test" einen Namen geben.
Jetzt
hätte ich gerne umgekehrt dieses Shape auf dem Blatt markiert und den
Namen
in eine Variable gelesen. Am nähesten bin ich noch mit
"ActivePage.Shapes(i).Name" gekommen. Ich will aber nicht den Namen
irgendeines Shapes, sondern nur den des markierten.
Bin für einen guten Tip dankbar.
Gruß
Chris