Shapes in TextBox konvertieren

Forumthread: Shapes in TextBox konvertieren
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Shapes in TextBox konvertieren

27.08.2025 15:47:56

Alex Feuz

Hallo Freaks

Wie kann ich eine Shape in eine MSForms.TextBox konvertieren?

Ich habe unter https://www.herber.de/bbs/user/178762.xlsm ein Beispieldatei hochgeladen.

Gruss Alex

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Meinst Du eine MSForms.TextBox in einem UserForm ? _owT

27.08.2025 16:52:48

NoNet
AW: Shapes in TextBox konvertieren

27.08.2025 17:25:03

Yal
AW: Shapes in TextBox konvertieren

27.08.2025 17:35:59

Alex Feuz
AW: Shapes in TextBox konvertieren

27.08.2025 18:10:24

daniel

Meinst Du eine MSForms.TextBox in einem UserForm ? _owT

27.08.2025 16:52:48

NoNet

_owT = "ohne weiteren Text"

AW: Shapes in TextBox konvertieren

27.08.2025 17:25:03

Yal

Hallo Alex,

alle graphische Objekte, die auf einem Blatt gezeichnet werden können, sind Shapes.
Man kann den Typ eines Shapes nicht ändern. Das einzige, was Du machen kannst, ist eine neue Shape vom Typ Textbox mit dieselben Größe/Stelle erzeugen und die darunter darunterliegende löschen.

Sollte ungefährt so aussehen (ungetestet):

Private Sub CommandButton1_Click()

Dim sh As Shape

Dim tb As Shape

    

    For Each sh In ActiveSheet.Shapes

        If Not InStr(1, sh.Name, "TextBox") Then 'alles was nicht Textbox ist

            Debug.Print sh.Name

            Set tb = ActiveSheet.Shapes.AddTextbox(msoTextOrientationDownward, sh.Left, sh.Top, sh.Width, sh.Height)

            Debug.Print tb.Name

            sh.Delete

        End If

    Next sh

End Sub

VG
Yal

AW: Shapes in TextBox konvertieren

27.08.2025 17:35:59

Alex Feuz

Moin Yale

Danke für die schnelle Antwort.

Ich werde den Vorschlag überarbeiten und anschliessend vieleicht weiterer Fragen haben, ansonst werde ich es als Beispiel-Datei hochladen.

Gruss Alex

AW: Shapes in TextBox konvertieren

27.08.2025 18:10:24

daniel

Ja.
Vielleicht sollte noch rein, dass der Text des Shapes, in die Box noch übernommen wird.

Aus meiner Sicht mach dir Konvertierung nur Sinn, wenn die fixen Texte der Textfelder für den Anwender überschreibbar werden sollen.

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!