Texto en una textbox

[rguez]

Hola obra vez

Necesito llegar al texto dentro de una textbox
a través de un comando parecido al que sigue:


Ficha.Sheets("hoja1").Shapes("tbox25").Characters.Text = "mi texto"

El problema es que no funciona.

No me sirva la solucion: tbox25.text="mi texto"
pues el nombre de la textbox está en una variable que se recorre en un bucle.

Gracias

 

[Greg Truby]

Hay que usar el objeto textframe primero.

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> WriteTextboxText()

    <SPAN style="color:#00007F">Dim</SPAN> strBoxName <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>
    <SPAN style="color:#00007F">Dim</SPAN> shpTextBox <SPAN style="color:#00007F">As</SPAN> Shape
    
    <SPAN style="color:#00007F">For</SPAN> i = 1 <SPAN style="color:#00007F">To</SPAN> 2
        strBoxName = "Text Box " & i
        <SPAN style="color:#00007F">Set</SPAN> shpTextBox = ActiveSheet.Shapes(strBoxName)
        shpTextBox.TextFrame.Characters.Text = "hello " & i
    <SPAN style="color:#00007F">Next</SPAN> i

    <SPAN style="color:#00007F">Set</SPAN> shpTextBox = <SPAN style="color:#00007F">Nothing</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
</FONT>