prucommercialre.com


Cambiar el tamaño de un cuadro de texto en una macro

Rob tiene un cuadro de texto, en una hoja de cálculo que contiene el texto copiado desde Word. Quiere saber cómo puede cambiar el tamaño del cuadro de texto con una macro, de modo que cubra un rango específico de células.

Hay un par de maneras que usted puede acercarse a esta tarea. Uno es para especificar, en la macro, exactamente la que las células que desea cubrir con el cuadro de texto, y luego ajustar las propiedades del cuadro de texto para que coincida con las características de las células que se especifiquen.

ResizeBox1 Sub ()
Dim STL As String
Dim SBR As String
Rng Dim como gama

'Cambiar direcciones superior izquierda e inferior derecha como se desee
STL = "A1"
SBR = "M40"

'Asegurar un cuadro de texto se selecciona
Si TypeName (Selección) <> "TextBox" Entonces
MsgBox "cuadro de texto no está seleccionado"
Exit Sub
End If

Con la Selección
Rng Set = ActiveSheet.Range (STL)
.Top = Rng.Top
.Left = Rng.Left
Rng Set = ActiveSheet.Range (SBR)
.Width = Rng.Left + rng.Width
.height = Rng.Top + rng.Height
End With
Rng Set = Nothing
End Sub

Para utilizar la macro, cambie la dirección de las celdas que desea utilizar para la derecha de abajo hacia arriba a la izquierda y de la caja de texto. A continuación, seleccione el cuadro de texto y ejecutar la macro.

Si lo prefiere, puede utilizar un rango con nombre para especificar el rango de estar cubiertos por el cuadro de texto. La siguiente macro espera que el rango será nombrado RangeToCover. Cuando se selecciona el cuadro de texto y ejecutar la macro, el cuadro de texto cambia de tamaño para que coincida con el tamaño del rango.

ResizeBox2 Sub ()
Dim l_rRangeToCover como gama
Dim l_rLowerRight como gama

'Asegurar un cuadro de texto se selecciona
Si TypeName (Selección) <> "TextBox" Entonces
MsgBox "cuadro de texto no está seleccionado"
Exit Sub
End If

'Obtener el rango para cubrir
Establecer l_rRangeToCover = _
ActiveSheet.Range (Nombres ("RangeToCover"). RefersToRange.Value)

'Obtener su celda inferior derecha
Establecer l_rLowerRight = _
l_rRangeToCover.Cells (_
l_rRangeToCover.Rows.Count, _
l_rRangeToCover.Columns.Count)

"Cambiar el tamaño del cuadro de texto
Con la Selección
.Left = L_rRangeToCover.Left
.Top = L_rRangeToCover.Top
.Width = L_rLowerRight.Left + l_rLowerRight.Width - .Left
.height = L_rLowerRight.Top + l_rLowerRight.Height - .Top
End With
End Sub

ExcelTips es su fuente de capacitación rentable Microsoft Excel. Esta punta (3143) se aplica a Microsoft Excel 97, 2000, 2002, y 2003. Usted puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y versiones posteriores) aquí: Cambiar el tamaño de un cuadro de texto en una macro.