vinculado - insertar cuadro de texto en excel 2013

¿Cómo se coloca un objeto de cuadro de texto sobre una celda específica al automatizar Excel?

Question

Estamos automatizando Excel utilizando VB.Net e intentando colocar varias líneas de texto en una hoja de cálculo de Excel que podemos configurar para que no se imprima. Entre estos tendremos informes imprimibles. Podemos hacer esto si agregamos objetos de cuadro de texto y establecemos la configuración del objeto de impresión en falso. (Si tienes otra forma, por favor dirígeme)

El código para agregar un cuadro de texto es:

ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 145.5, 227.25, 304.5, 21#)

pero el posicionamiento está en puntos. Necesitamos una forma de colocarlo sobre una celda específica y dimensionarlo con la celda. ¿Cómo podemos saber dónde ponerlo cuando sabemos qué celda colocar?

Answer 1

Cuando copie y pegue un cuadro de texto, Excel colocará el nuevo cuadro de texto sobre la celda que esté seleccionada actualmente. Así que puede lograr esto muy fácilmente simplemente usando los comandos VBA copiar y pegar. Esto puede ser particularmente útil si va a utilizar muchos cuadros de texto muy similares, ya que está creando efectivamente una plantilla de cuadro de texto.

Answer 2

Si tiene el nombre o la posición de la célula, puede hacer:

With ActiveSheet
.Shapes.AddTextbox msoTextOrientationHorizontal, .Cells(3,2).Left, .Cells(3,2).Top, .Cells(3,2).Width, .Cells(3,2).Height
End With

Esto agregará un cuadro de texto sobre la celda B3. Cuando se cambia el tamaño de B3, el cuadro de texto también lo es.