Thema Datum  Von Nutzer Rating
Antwort
Rot Inhalt eines Objektes
15.04.2021 11:15:16 Eintracht00
NotSolved
15.04.2021 12:58:51 Gast11833
Solved

Ansicht des Beitrags:
Von:
Eintracht00
Datum:
15.04.2021 11:15:16
Views:
69
Rating: Antwort:
  Ja
Thema:
Inhalt eines Objektes

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.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Inhalt eines Objektes
15.04.2021 11:15:16 Eintracht00
NotSolved
15.04.2021 12:58:51 Gast11833
Solved