So fügen Sie text zu einem (Arbeitsblatt) Textfeld mit VBA in Excel?

Habe ich eingefügt, um ein Textfeld in mein Arbeitsblatt, mit dem Menü "Einfügen/Textfeld" auf der Multifunktionsleiste von Excel 2007. Es wurde automatisch mit dem Namen "TextBox 17".
Ich bin versucht, setzen Sie seinen Wert mit meinem VBA-code, aber ich kann nicht herausfinden, die Art und Weise, es zu tun. Ich habe sogar versucht, führen Sie eine single-line-routine nur zum füttern der textbox mit text (wie die folgenden und andere Kombinationen) ist jedoch fehlgeschlagen.

Sub test()
    Sheets(1).Shapes.item(14).Text = "eventually some text"
    Sheets(1).Shapes(14).Text = "eventually some text"
    Worksheets(1).Shapes(14).Value = "eventually some text"
    Sheets(1).Shapes("TextBox 17").Text = "eventually some text"
    Sheets(1).Shapes("TextBox 17").ControlFormat.Value = "eventually some text"
    Worksheets(1).Shapes(14).TextFrame.TextRange.Text = "eventually some text"
End Sub

Während in der Forschung über diesen, fand ich Antworten, die nur über activeX-Textfelder. Aber soweit ich verstanden habe, ist die textbox, die ich eingefügt haben, ist nicht von dieser Art sein.

Kann jemand helfen?

InformationsquelleAutor dimitris | 2015-03-28

  1. 1

    Diese scheint zu funktionieren, kein problem:

    Sheets(1).Shapes(14).TextFrame.Characters.Text = "xxx"
    danke. schien einfach. aber ich habe verbrannt meine Gedanken mit ihm.

    InformationsquelleAutor fontan

  2. 1

    War ich in der Lage, den text im Feld Inhalt mit

    Sub test()
    Sheets(1).Shapes.Item(14).TextFrame.Characters.Text = "eventually some text"
End Sub

    InformationsquelleAutor PeterT

Schreibe einen Kommentar