Namenfeld kopieren
12.02.2004 16:33:19
Gregor
Ich habe folgendes Makros zum Beschreiben von Shapes in einem Textfeld aufgezeichnet:
Sub Makro()
Dim n
Dim intcounter
For intcounter = 1 To 200
n = Worksheets("Namen").Cells(intcounter, 1).Value
Worksheets("Formen").Shapes(n).Select
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 111.75, 205.5, _
87#, 20.25).Select
Selection.Characters.Text = n
With Selection.Characters(Start:=1, Length:=6).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 6
End With
With Selection
.AutoSize = True
End With
Selection.ShapeRange.Line.Visible = msoFalse
Next intcounter
Range("A2").Select
End Sub
Ich möchte aber, dass es mir neben den Shapes in ein Textfeld den Namen des Shapes schreibt. Also den Namen, der im "Namensfeld" (oben links) seht kopiert und ins Textfeld schreibt.
Ist mein Anliegen klar und kann ich das mit VBA vornehmen?
Schon mal vielen Dank und Gruss
Gregor