|
Hallo, ich habe folgenden Code um die Position bzw die Bezeichnung, sowas das Arbeitsblatt zu erhalten geschrieben:
Sub ReportShapes()
Dim Worksheet_ As Worksheet
Dim SheetLoop_ As Worksheet
Dim Shape_ As Shape
Dim Loop1_ As Integer
Dim Time_ As String
Set Worksheet_ = Sheets.Add
Worksheet_.Range("A1:E1") = Array("Arbeitsblatt", "Name", "ID", "X_Koordinate", "Y_Koordinate")
For Each SheetLoop_ In Worksheets
For Each Shape_ In SheetLoop_.Shapes
Loop1_ = Loop1_ + 1
With Shape_
Worksheet_.Cells(Loop1_ + 1, 1) = SheetLoop_.Name
Worksheet_.Cells(Loop1_ + 1, 2) = .Name
Worksheet_.Cells(Loop1_ + 1, 3) = .ID
Worksheet_.Cells(Loop1_ + 1, 4) = .Left
Worksheet_.Cells(Loop1_ + 1, 5) = .Top
End With
Next Shape_
Next SheetLoop_
End Sub
Nun möchte ich anstelle der "ID" in der 3.Spalte dort den Inhalt des Objektes darstellen.
Zum Beispiel ist das Rechteck 66 inhaltlich mit der "66" gefüllt. Diese möchte ich gerne dort angeben.
Ich habe schon vieles probiert aber hab es einfach nicht hinbekommen.
|