Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1364to1368
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Pfeillänge messen

Pfeillänge messen
29.06.2014 10:56:34
stef26
Guten Morgen,
ich hab da ein kleines Problem, wo ich Unterstützung bräuchte...
Ich habe einen Pfeil dessen länge ich messe und in die Zelle A1 eintragen lasse.
Habe ein Textfeld, die diesen Wert abgreift.
Pfeil und Textfeld sind Gruppiert.
D.h. wenn ich den Pfeil ändere, dann ändert sich mein Wert. So weit so gut.
Nun möchte ich den Pfeil kopieren (Kopy Button) und die Verknüpfung zur Zelle
A1 löschen.
Problem: Beim Kopieren des Textes entsteht ein neues Textfeld, dessen Name ich nicht kenne, so kann ich auch nicht die Verbindung zu A1 löschen.
Hab es mit einen Zähler versucht, da im orginal Tool jedoch sehr viele Textfelder
entstehen, kann ich das vergessen. Ich bräuchte was , wo ich den Namen des neuen Textfeldes auslesen kann, damit ich es ansprechen kann.
Anbei mal ein simples Beispiel meines Tools..
https://www.herber.de/bbs/user/91310.xlsm
Vielleicht geht es ja einfacher, da ich lediglich mit Macrorecorder das Kopieren aufgenommen habe.
Liebe Grüße
Stefan

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pfeillänge messen
29.06.2014 11:47:46
ransi
Hallo Stefan
Schau dir mal dies an:
Sub Makro3()
    Dim myNewShape As ShapeRange
    Dim myNewTextBox As Shape
    Dim Element As Object
    Set myNewShape = ActiveSheet.Shapes.Range(Array("Messen1")).Duplicate
    For Each Element In myNewShape.GroupItems
        If Element.DrawingObject.ShapeRange.Type = 17 Then 'TextBox finden
            Set myNewTextBox = Element
        End If
    Next
    With myNewTextBox 'TextBox formatieren und bearbeiten
        'left = irgendwo
        '.Height=auch irgendwo
        .DrawingObject.Text = "ABC"
    End With
End Sub


Ganz ohne select und activate.
Da kannst dann ganz direkt auf die Objekte zugreifen und sie bearbeiten.
ransi

Anzeige
AW: Pfeillänge messen
29.06.2014 12:27:34
stef26
Hallo Ransi,
das ist ja genial. Jetzt kann ich das super für mein Tool umsetzen.
BESTEN DANK !!!!
Liebe Grüße
Stefan

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige