Nota:
El acceso a esta página requiere autorización. Puede intentar iniciar sesión o cambiar directorios.
El acceso a esta página requiere autorización. Puede intentar cambiar los directorios.
Agrega un nuevo objeto Shape que representa un cuadro de texto a la colección Shapes especificada.
Sintaxis
expresión. AddTextbox (Orientation, Left, Top, Width, Height)
expresión Variable que representa un objeto Shapes.
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Orientation | Obligatorio | PbTextOrientation | Orientación del cuadro de texto. |
| Left | Obligatorio | Variant | Posición del borde izquierdo de la forma que representa el cuadro de texto. |
| Top | Obligatorio | Variant | Posición del borde superior de la forma que representa el cuadro de texto. |
| Width | Obligatorio | Variant | Ancho de la forma que representa el cuadro de texto. |
| Height | Obligatorio | Variant | Alto de la forma que representa el cuadro de texto. |
Valor devuelto
Forma
Comentarios
Para los parámetros Left, Top, Width y Height , los valores numéricos se evalúan en puntos; Las cadenas pueden estar en cualquier unidad compatible con Microsoft Publisher (por ejemplo, "2,5 in").
El parámetro Orientation puede ser una de las constantes PbTextOrientation declaradas en la biblioteca de tipos de Microsoft Publisher y mostradas en la tabla siguiente.
| Constante | Descripción |
|---|---|
| pbTextOrientationHorizontal | Cuadro de texto horizontal para idiomas que se escriben de izquierda a derecha. |
| pbTextOrientationRightToLeft | Cuadro de texto horizontal para idiomas que se escriben de derecha a izquierda. Este valor no tiene efecto si no se selecciona un idioma que se escriba de derecha a izquierda. |
| pbTextOrientationVerticalEastAsia | Cuadro de texto vertical para idiomas del Este asiático. Si se selecciona un idioma que no es del Este asiático, el texto se muestra con un giro de 90 grados hacia la derecha. |
Ejemplo
En el siguiente ejemplo se agrega un nuevo cuadro de texto horizontal a la primera página de la publicación activa.
Dim shpTextBox As Shape
Set shpTextBox = ActiveDocument.Pages(1).Shapes.AddTextBox _
(Orientation:=pbTextOrientationHorizontal, _
Left:=144, Top:=144, _
Width:=72, Height:=18)
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.