Propiedad MoveWhenInTheWay

True si la ventana del Ayudante de Office se mueve cuando se encuentre en el área de trabajo del usuario. Por ejemplo, el Ayudante se moverá si molesta para arrastrar y colocar, o para escribir con el teclado. Boolean de Lectura/Escritura.

Comentarios

La propiedad MoveWhenInTheWay corresponde a la opción Mover cuando moleste de Características del ayudante en la ficha Opciones del cuadro de diálogo Ayudante de Office.


Ejemplo de la propiedad MoveWhenInTheWay

Este ejemplo muestra el Ayudante de Office en una ubicación específica y configura varias opciones antes de mostrarlo.

With Assistant

    .Reduced = True

    .Left = 400

    .MoveWhenInTheWay = True

    .TipOfDay = True

    .Visible = True

    .Animation = msoAnimGreeting

End With


Propiedad NewBalloon

Crea un nuevo globo del Ayudante de Office. Devuelve un objeto Balloon.


Ejemplo de la propiedad NewBalloon

Este ejemplo crea un globo con encabezado, texto y tres opciones de región y, a continuación, lo muestra.

With Assistant.NewBalloon

    .Button = msoButtonSetOK

    .Heading = "Datos de ventas por regiones"

    .Text = "Seleccione una región"

    For i = 1 To 3

        .CheckBoxes(i).Text = "Región " & i

    Next

    .Show

End With


Propiedad Reduced

True si la ventana del Ayudante de Office aparece con su tamaño más pequeño. Boolean de Lectura/Escritura.


Ejemplo de la propiedad Reduced

Este ejemplo muestra el Ayudante de Office en una ubicación específica y configura varias opciones antes de mostrarlo.

With Assistant

    .Reduced = True

    .Left = 400

    .MoveWhenInTheWay = True

    .TipOfDay = True

    .Visible = True

    .Animation = msoAnimationGreeting

End With


Propiedad SearchWhenProgramming

True si el Ayudante de Office muestra ayuda acerca de la aplicación así como ayuda acerca de la programación mientras el usuario trabaja con Visual Basic. Boolean de Lectura/Escritura.

Comentarios

La propiedad SearchWhenProgramming corresponde a la opción Buscar ayuda del producto y de programación de Características del ayudante en la ficha Opciones del cuadro de diálogo Ayudante de Office.


Ejemplo de la propiedad SearchWhenProgramming

Este ejemplo le permite buscar ayuda de la aplicación y de programación mientras trabaja en Visual Basic.

Assistant.SearchWhenProgramming = True


Método Show

Objeto Balloon: Muestra el objeto globo especificado. Devuelve una constante msoBalloonType que indica en qué globo hace clic el usuario.

Objeto FileFind: Muestra el cuadro de diálogo Buscar archivo y los criterios de búsqueda actuales. Sólo para Macintosh.

Sintaxis

expresión.Show

expresión    Requerida. Una expresión que devuelve un objeto Balloon o un objeto FileFind.

Comentarios

Para el objeto Balloon, puede utilizar el valor devuelto por el método Show para mostrar una selección de botones del usuario. El método Show devuelve una de las siguiente constantes msoBalloonType:

msoBalloonButtonAbort msoBalloonButtonCancel msoBalloonButtonIgnore msoBalloonButtonNo msoBalloonButtonOK msoBalloonButtonRetry msoBalloonButtonSnooze msoBalloonButtonYes	msoBalloonButtonBack msoBalloonButtonClose msoBalloonButtonNext msoBalloonButtonNull msoBalloonButtonOptions msoBalloonButtonSearch msoBalloonButtonTips msoBalloonButtonYesToAll


Ejemplo del método Show

Este ejemplo crea un globo que contiene tres opciones. La variable x se configura como el valor devuelto por el método Show, que será 1, 2 ó 3 según el rótulo seleccionado por el usuario. En el ejemplo, un cuadro de mensaje muestra el valor de la variable x, pero puede pasar el valor a otro procedimiento o puede utilizarlo en una instrucción Select Case.

Set b = Assistant.NewBalloon

With b

    .Heading = "Este es el encabezado"

    .Text = "Seleccione una de las siguientes:"

    .Labels(1).Text = "Opción Uno"

    .Labels(2).Text = "Opción Dos "

    .Labels(3).Text = "Opción Tres "

    x = .Show

End With

MsgBox x


Propiedad Sounds

True si el Ayudante de Office produce el sonido que corresponde a las animaciones. Boolean de Lectura/Escritura.

Comentarios

Si no hay una tarjeta de sonido instalada, esta propiedad no tiene efecto.


Ejemplo de la propiedad Sounds

Este ejemplo muestra el Ayudante de Office, lo anima y genera sonido.

With Assistant

    .Visible = True

    .Sounds = True

    .Animation = msoAnimationBeginSpeaking

End With


Propiedad TipOfDay

True si el Ayudante de Office muestra una sugerencia especial cada vez que se abre la aplicación de Office. Boolean de Lectura/Escritura.

Comentarios

La propiedad TipOfDay corresponde a la opción Mostrar sugerencia al inicio de Otras opciones de sugerencias en la ficha Opciones del cuadro de diálogo Ayudante de Office.


Ejemplo de la propiedad TipOfDay

Este ejemplo muestra el Ayudante de Office en una ubicación específica y configura varias opciones antes de mostrarlo.

With Assistant

    .Reduced = True

    .Left = 400

    .MoveWhenInTheWay = True

    .TipOfDay = True

    .Visible = True

    .Animation = msoAnimGreeting

End With


Propiedad Animation

Devuelve o establece la acción de animación de Ayudante de Office. Al aplicar esta propiedad al objeto Assistant, el Ayudante se anima inmediatamente (si el Ayudante está visible). Al aplicar esta propiedad al objeto Balloon, el Ayudante se anima sólo mientras se muestre el globo. Long de Lectura/Escritura.

Puede ser una de las siguientes constantes MsoAnimationType:

msoAnimationAppear msoAnimationBeginSpeaking msoAnimationCharacterSuccessMajor msoAnimationCheckingSomething msoAnimationDisappear msoAnimationEmptyTrash msoAnimationGestureDown msoAnimationGestureLeft msoAnimationGestureRight msoAnimationGestureUp msoAnimationGetArtsy msoAnimationGetAttentionMajor msoAnimationGetAttentionMinor msoAnimationGetTechy msoAnimationGetWizardy msoAnimationGoodbye msoAnimationGreeting	msoAnimationIdle msoAnimationListensToComputer msoAnimationLookDown msoAnimationLookDownLeft msoAnimationLookDownRight msoAnimationLookLeft msoAnimationLookRight msoAnimationLookUp msoAnimationLookUpLeft msoAnimationLookUpRight msoAnimationPrinting msoAnimationSaving msoAnimationSearching msoAnimationSendingMail msoAnimationThinking msoAnimationWorkingAtSomething msoAnimationWritingNotingSomething
Comentarios

Clip es el Ayudante predeterminado y msoAnimationIdle es el tipo de animación predeterminado para el Ayudante.

Dependiendo del Ayudante seleccionado, la propiedad Animation puede producir o no una animación obvia. Sin embargo, todas las constantes MsoAnimationType son válidas para todos los Ayudantes.

Las siguientes constantes MsoAnimationType representan animaciones que repiten la acción especificada hasta que se cierre el Ayudante o hasta que la propiedad Animation se restablezca con otra animación.

msoAnimationCheckingSomething msoAnimationGetArtsy msoAnimationGetTechy msoAnimationSaving	msoAnimationSearching msoAnimationThinking msoAnimationWorkingAtSomething msoAnimationWritingNotingSomething


Ejemplo de la propiedad Animation (Microsoft Office)
Ejemplo de la propiedad Animation

Este ejemplo muestra el Ayudante de Office en una ubicación específica y configura varias opciones antes de mostrarlo.

With Assistant

    .Reduced = True

    .Move xLeft:= 400, yTop:= 300

    .MoveWhenInTheWay = True

    .TipOfDay = True

    .Visible = True

    .Animation = msoAnimationGreeting

End With


Propiedad FileName

Objeto Assistant: Devuelve o establece el nombre del archivo del Ayudante de Office activo. String de Lectura/Escritura.

Objeto FileSearch: Devuelve o establece el nombre del archivo que desea buscar en una búsqueda de archivos. En el nombre del archivo pueden incluirse los comodines * (asterisco) o ? (signo de interrogación).  String de Lectura/Escritura. Utilice el comodín del signo de interrogación para indicar cualquier carácter sencillo. Por ejemplo, escriba m?les para indicar "males" y "miles". String de Lectura/Escritura. Utilice el comodín del asterisco para indicar cualquier número de caracteres. Por ejemplo, escriba *.txt para buscar todos los archivos que tengan extensión .TXT. String de Lectura/Escritura.

Comentarios

En Windows, la extensión del nombre de los archivos de Ayudantes es .act y los archivos están instalados en la carpeta \Archivos de programa\Microsoft Office\Office\Actors en Win95, en la carpeta \Windows\MsApps\Actors en Windows NT y en la carpeta Microsoft:Ayudantes en Macintosh.

Los siguientes nombres de archivo corresponden a los Ayudantes de Office 97.

Personaje	Nombre de archivo
Logotipo de Office	Logo.act
Capitán Can	Powerpup.act
Dr. Genio	Genius.act
Robi	Hoverbot.act
Catulina	Scribble.act
Boli	Dot.act
Clipo	Clippit.act
Natura	MNature.act
William	Will.act


Ejemplo de la propiedad FileName

Este ejemplo utiliza la propiedad FileName para personalizar el texto del globo de Ayudantes de Office específicos. La variable btext puede utilizarse para el valor de la propiedad Text en un diálogo Asistente de impresión.

Select Case Assistant.FileName

Case "will.act"

    btext = "Imprimir o no imprimir. Esa es la cuestión."

Case "genius.act"

    btext = "La suma de las casillas de verificación es igual al documento que hay que imprimir."

Case Else

    btext = "Elija el documento que desea imprimir."

End Select

Este ejemplo busca los archivos ubicados en la carpeta Mis documentos que empiezan por cmd. El nombre y la ubicación de los archivos encontrados se muestra en el ejemplo.

Set fs = Application.FileSearch

With fs

    .LookIn = "C:\Mis documentos"

    .FileName = "cmd*"

    If .Execute > 0 Then

        MsgBox "Se encontró " & .FoundFiles.Count & _

            " archivo(s)."

        For i = 1 To .FoundFiles.Count

            MsgBox .FoundFiles(i)

        Next i

    Else

        MsgBox "No se encontraron archivos."

    End If

End With


Propiedad BalloonType

Devuelve o establece el tipo de globo que utiliza el Ayudante de Office. Puede ser una de las siguientes constantes MsoBalloonType: msoBalloonTypeButtons, msoBalloonTypeBullets, o msoBalloonTypeNumbers. Al crear un nuevo globo con el método NewBalloon, esta propiedad está inicialmente establecida en msoBalloonTypeButtons. Long de Lectura/Escritura.


Ejemplo de la propiedad BalloonType

Este ejemplo crea un globo de instrucciones que explica cómo seleccionar una impresora. El globo no tiene modo, de forma que el usuario puede seguir las instrucciones del globo y mantenerlo visible mientras trabaja.

Set bln = Assistant.NewBalloon

With bln

    .Heading = "Instrucciones para elegir una impresora."

    .Text = "Haga clic en Aceptar cuando haya elegido una impresora."

    .Labels(1).Text = "En el menú Archivo, elija Imprimir."

    .Labels(2).Text = "Haga clic en Configurar."

    .Labels(3).Text = "Seleccione el nombre de la impresora."

    .BalloonType = msoBalloonTypeNumbers

    .Mode = msoModeModeless

    .Callback = "ProcessPrinter"

    .Button = msoButtonSetOK

    .Show

End With


Propiedad Button

Devuelve o establece el tipo de botón mostrado en la parte inferior del diálogo Ayudante de Office. Al crear un nuevo globo con el método NewBalloon, esta propiedad está inicialmente establecida en msoButtonSetOK. Long de Lectura/Escritura.

Puede ser una de las siguientes constantes MsoButtonSetType:

msoButtonSetAbortRetryIgnore msoButtonSetBackClose msoButtonSetBackNextClose msoButtonSetBackNextSnooze msoButtonSetCancel msoButtonSetNextClose msoButtonSetNone msoButtonSetOK	msoButtonSetOkCancel msoButtonSetRetryCancel msoButtonSetSearchClose msoButtonSetTipsOptionsClose msoButtonSetYesAllNoCancel msoButtonSetYesNoCancel msoButtonSetYesNo


Ejemplo de la propiedad Button (Microsoft Office)
Ejemplo de la propiedad Button

Este ejemplo crea un diálogo con encabezado, texto y tres opciones de región y, a continuación, lo muestra.

With Assistant.NewBalloon

    .Heading = "Datos de ventas por regiones "

    .Text = "Seleccione una región"

    For i = 1 To 3

        .CheckBoxes(i).Text = "Región " & i

    Next

    .Button = msoButtonSetOkCancel

    .Show

End With


Propiedad Checkboxes

Devuelve el conjunto BalloonCheckboxes que representa todas las casillas de verificación del globo especificado. Es de sólo lectura.

Para obtener información acerca de cómo devolver un único miembro del conjunto, consulte Devolución del objeto de un conjunto.


Ejemplo de la propiedad Checkboxes (Microsoft Office)
Ejemplo de la propiedad Checkboxes

Este ejemplo crea un diálogo con encabezado, texto y tres opciones de región. Cuando el usuario selecciona una casilla de verificación y, a continuación, hace clic en Aceptar en el globo, se ejecuta el procedimiento apropiado.

With Assistant.NewBalloon

    .Heading = "Datos de ventas por regiones"

    .Text = "Seleccione su región"

    For i = 1 To 3

        .CheckBoxes(i).Text = "Región" & i

    Next

    .Button = msoButtonSetOkCancel

    .Show

Select Case True

    Case .CheckBoxes(1).Checked

        runregion1

    Case .CheckBoxes(2).Checked

        runregion2

    Case .CheckBoxes(3).Checked

        runregion3

End Select

End With


Propiedad Checked

True si la casilla de verificación especificada en el diálogo Ayudante de Office está activada. Boolean de Lectura/Escritura.


Ejemplo de la propiedad Checked (Microsoft Office)
Ejemplo de la propiedad Checked

Este ejemplo crea un diálogo con encabezado, texto y tres opciones de región. Cuando el usuario selecciona una casilla de verificación y, a continuación, hace clic en Aceptar en el globo, se ejecuta el procedimiento apropiado.

With Assistant.NewBalloon

    .Heading = "Datos de ventas por regiones"

    .Text = "Seleccione su región"

    For i = 1 To 3

        .CheckBoxes(i).Text = "Región" & i

    Next

    .Button = msoButtonSetOkCancel

    .Show

Select Case True

    Case .CheckBoxes(1).Checked

        runregion1

    Case .CheckBoxes(2).Checked

        runregion2

    Case .CheckBoxes(3).Checked

        runregion3

End Select

End With


Propiedad FeatureTips

True si el Ayudante de Office proporciona información acerca de la utilización de las funciones de la aplicación más eficazmente. Boolean de Lectura/Escritura.

Comentarios

La propiedad FeatureTips se corresponde con la opción Uso más efectivo de las funciones en la ficha Opciones del cuadro de diálogo del Ayudante.


Ejemplo de la propiedad FeatureTips

Este ejemplo configura el Ayudante de Office para proporcionar información acerca de cómo utilizar las funciones de la aplicación de una manera más eficaz.

Assistant.FeatureTips = True


Propiedad GuessHelp

True si el Ayudante de Office muestra una lista de temas de Ayuda relevantes basados en el contexto en que se encuentre el usuario inmediatamente antes de hacer clic en la ventana del Ayudante o presionar F1. Boolean de Lectura/Escritura.

Comentarios

La propiedad GuessHelp corresponde a la opción Sugerir temas de Ayuda de Características del ayudante en la ficha Opciones del cuadro de diálogo Ayudante de Office.


Ejemplo de la propiedad GuessHelp (Microsoft Office)
Ejemplo de la propiedad GuessHelp

Este ejemplo configura el Ayudante de Office para que sugiera temas de Ayuda.

Assistant.GuessHelp = True


Propiedad Heading

Devuelve o establece el encabezado que aparece en el diálogo Ayudante de Office. String de Lectura/Escritura.

Comentarios

Puede especificar que se muestre un gráfico mediante esta sintaxis: {tipo ubicación escala}, donde tipo es bmp (bitmap), wmf (metaarchivo de Windows) o pict (archivo PICT para Macintosh PICT); ubicación es el identificador del recurso o su vía de acceso y nombre de archivo, y escala especifica el ancho del archivo wmf o pict (se omite en los archivos bmp).


Ejemplo de la propiedad Heading (Microsoft Office)
Ejemplo de la propiedad Heading

Este ejemplo crea un diálogo con encabezado, texto y tres opciones de región y, a continuación, lo muestra.

With Assistant.NewBalloon

    .Button = msoButtonSetOkCancel

    .Heading = "Datos de ventas por regiones "

    .Text = "Seleccione una región"

    For i = 1 To 3

        .CheckBoxes(i).Text = "Región" & i

    Next

    .Show

End With


Método Help

Muestra el Ayudante de Office y el diálogo integrado Ayudante.

Sintaxis

expresión.Help

expresión   Requerida. Una expresión que devuelve un objeto Assistant.


Ejemplo del método Help

Este ejemplo muestra el diálogo integrado Ayudante cuando el usuario activa la casilla de verificación "Se requiere más información".

Set b = Assistant.NewBalloon

With b

    .Heading = "Información del usuario"

    .Text = "Seleccione su nivel"

    .CheckBoxes(1).Text = "Principiante."

    .CheckBoxes(2).Text = "Avanzado."

    .CheckBoxes(3).Text = "Se requiere más información."

    .Show

End With

If b.CheckBoxes(3).Checked = True Then

    Assistant.Help

End If


Propiedad AssistWithWizards

True si el Ayudante de Office proporciona información de Ayuda acerca de los asistentes. Boolean de Lectura/Escritura.

Comentarios

La propiedad AssistWithWizards corresponde a la opción Ayuda con asistentes de Características del ayudante en la ficha Opciones del cuadro de diálogo Ayudante de Office.


Ejemplo de la propiedad AssistWithWizards (Microsoft Office)
Ejemplo de la propiedad AssistWithWizards

Este ejemplo configura el Ayudante de Office para que ofrezca información de Ayuda acerca de los asistentes.

Assistant.AssistWithWizards = True


Propiedad HighPriorityTips

True si el Ayudante de Office muestra sugerencias de prioridad alta. Boolean de Lectura/Escritura.

Comentarios

La propiedad HighPriorityTips corresponde a la opción Mostrar sólo sugerencias de prioridad alta de Otras opciones de sugerencias en la ficha Opciones del cuadro de diálogo Ayudante de Office.


Ejemplo de la propiedad HighPriorityTips (Microsoft Office)
Ejemplo de la propiedad HighPriorityTips

Este ejemplo configura el Ayudante de Office para que muestre sugerencias de prioridad alta.

Assistant.HighPriorityTips = True


Propiedad Icon

Devuelve o establece el tipo de icono que aparece en la parte superior izquierda del diálogo Ayudante de Office. Puede ser una de las siguientes constantes MsoIconType: msoIconAlert, msoIconNone o msoIconTip. String de Lectura/Escritura.


Ejemplo de la propiedad Icon (Microsoft Office)
Ejemplo de la propiedad Icon

Este ejemplo crea un globo con un icono de alerta que indica al usuario que seleccione una impresora.

With Assistant.NewBalloon

    .Heading = "Seleccione una impresora "

    .Text = "Debe seleccionar una impresora antes de imprimir."

    .Icon = msoIconAlert

    .CheckBoxes(1).Text = "Impresora local"

    .CheckBoxes(2).Text = "Impresora de red"

    .Show

End With


Propiedad KeyboardShortcutTips

True si el Ayudante de Office proporciona información de Ayuda acerca de los métodos abreviados del teclado. Boolean de Lectura/Escritura.

Comentarios

La propiedad KeyboardShortcutTips corresponde a la opción Métodos abreviados de Mostrar sugerencias acerca de en la ficha Opciones del cuadro de diálogo Ayudante de Office.


Ejemplo de la propiedad KeyboardShortcutTips (Microsoft Office)
Ejemplo de la propiedad KeyboardShortcutTips

Este ejemplo configura el Ayudante de Office para que ofrezca información de Ayuda acerca de los métodos abreviados.

Assistant.KeyboardShortcutTips = True


Propiedad Labels

Devuelve un conjunto BalloonLabels que representa todos los rótulos de botones, rótulos de números y rótulos de viñetas contenidos en el diálogo Ayudante de Office especificado. Es de sólo lectura.

Para obtener información acerca de cómo devolver un único miembro del conjunto, consulte Devolución del objeto de un conjunto.


Ejemplo de la propiedad Labels (Microsoft Office)
Ejemplo de la propiedad Labels

Este ejemplo crea un globo que contiene tres opciones. La variable x se configura como el valor devuelto por el método Show, que será 1, 2 ó 3 según el rótulo seleccionado por el usuario. En el ejemplo, un cuadro de mensaje muestra el valor de la variable x, pero puede pasar el valor a otro procedimiento o puede utilizarlo en una instrucción Select Case.

Set b = Assistant.NewBalloon

With b

    .Heading = "Este es el encabezado"

    .Text = "Seleccione una opción:"

    .Labels(1).Text = "Opción Uno"

    .Labels(2).Text = "Opción Dos"

    .Labels(3).Text = "Opción Tres"

    x = .Show

End With

MsgBox x


Propiedad BalloonError

Devuelve un valor que indica el último error de globo registrado. String de sólo lectura.

Puede ser una de las siguientes constantes MsoBalloonErrorType:

Constante	Descripción
msoBalloonErrorBadPictureRef	El globo contiene un mapa de bits que no se ha podido mostrar porque el archivo no existe o porque el mapa de bits no es un archivo .BMP o .WMF válido (o un archivo PICT en Macintosh).
msoBalloonErrorBadReference	El globo contiene una referencia no reconocida o no admitida.
msoBalloonErrorButtonlessModal	El globo que intentó mostrar es modal, pero no contiene botones. El globo no se mostrará porque no puede cerrarse.
msoBalloonErrorButtonModeless	El globo que intentó mostrar no tiene modo, no contiene botones y no tiene un procedimiento asignado a la propiedad Callback. El globo no se mostrará porque se requiere un procedimiento para evaluar el botón seleccionado en él.
msoBalloonErrorNone	La propiedad ha mostrado con éxito el globo; no se ha encontrado ningún error.
msoBalloonErrorBadCharacter	El globo contiene un carácter de control ASCII distinto de CR o LF y mayor que 32.
msoBalloonErrorOutOfMemory	El globo no aparecerá porque no hay memoria suficiente.
msoBalloonErrorTooBig	El globo es demasiado grande como para mostrarse en pantalla.
msoBalloonErrorOther	El globo no aparecerá porque se ha producido algún otro error; por ejemplo, otro globo modal ya está activo.


Ejemplo de la propiedad BalloonError (Microsoft Office)
Ejemplo de la propiedad BalloonError

Este ejemplo crea un globo que genera un error. El error se debe a que el globo se ha creado sin posibilidad de cerrarlo. El tipo de botón se ha establecido en msoButtonSetNone y el modo de globo predeterminado es msoModeModal, produciendo un globo sin botones. Observe que no hay forma de cerrar un globo modal sin botones.

With Application.Assistant

With .NewBalloon

    .Heading = "Éste nunca se mostrará."

    .Text = "Imagine un globo aquí."

    .Button = msoButtonSetNone

    .Show

End With

.Visible = True

If .BalloonError = msoBalloonErrorButtonlessModal Then

    MsgBox "Necesita un botón para cerrar el globo."

End If

End With


Propiedad Mode

Devuelve o establece el tipo de globo mostrado. Puede ser una de las siguientes constantes MsoModeType: msoModeAutoDown, msoModeModal, o msoModeModeless. Al crear un nuevo globo con el método NewBalloon, esta propiedad está inicialmente establecida en msoModeModal. Long de Lectura/Escritura.

Comentarios

Si la propiedad Mode de un globo se establecen en msoModeModeless, el usuario puede trabajar en la aplicación mientras el globo está visible. Si la propiedad se establece en msoModeModal, el usuario debe cerrar el globo antes de poder volver a trabajar en la aplicación. Si la propiedad se establece en msoModeAutoDown, el globo se cierra al instante cuando el usuario hace clic en cualquier parte de la pantalla.

Si la propiedad Mode de un globo se establece en msoModeModeless, se requiere un valor para la propiedad Callback. El método Close sólo puede utilizarse si la propiedad está establecida en msoModeModeless.


Ejemplo de la propiedad Mode (Microsoft Office)
Ejemplo de la propiedad Mode

Este ejemplo crea un globo con un icono de alerta que indica al usuario que seleccione una impresora. Como el globo no tiene modo, el usuario tiene acceso a los comandos de la impresora mientras el globo está visible.

With Assistant.NewBalloon

    .Heading = "Seleccione una impresora"

    .Text = "Debe seleccionar una impresora antes de imprimir."

    .Icon = msoIconAlert

    .CheckBoxes(1).Text = "Impresora local"

    .CheckBoxes(2).Text = "Impresora de red"

    .Mode = msoModeModeless

    .Callback = "ProcessPrinter"

    .Show

End With


Propiedad MouseTips

True si el Ayudante de Office ofrece sugerencias para utilizar el mouse (ratón) de forma más efectiva. Es de Lectura/Escritura. Boolean.

Comentarios

La propiedad MouseTips corresponde a la opción Uso más efectivo del mouse (ratón) de Mostrar sugerencias acerca de en la ficha Opciones del cuadro de diálogo Ayudante de Office.


Ejemplo de la propiedad MouseTips (Microsoft Office)
Ejemplo de la propiedad MouseTips

Este ejemplo configura el Ayudante de Office para ofrecer sugerencias para utilizar el mouse (ratón) de forma más efectiva.

Assistant.MouseTips = True


Objeto Assistant

Representa el Ayudante de Office de Microsoft.

Uso del objeto Assistant

Utilice la propiedad Assistant para devolver el objeto Assistant. No hay un conjunto para el objeto Assistant; sólo puede haber un objeto Assistant activo a la vez. Utilice la propiedad Visible para mostrar el Ayudante.

Comentarios

El Ayudante predeterminado es Clip. Para seleccionar un Ayudante diferente con el lenguaje de macros, utilice la propiedad FileName.

El siguiente ejemplo muestra un Ayudante seleccionado anteriormente y lo anima con el sonido asociado. Si su PC no tiene una tarjeta de sonido instalada, este ejemplo no genera un error, pero no se oirá el sonido.

With Assistant

    .Visible = True

    .Sounds = True

    .Animation = msoAnimationBeginSpeaking

End With


Objeto Balloon

Representa el globo donde el Ayudante de Office muestra los encabezados y el texto. Un globo puede contener controles como casillas de verificación y rótulos.

Uso del objeto Balloon

Utilice la propiedad NewBalloon para devolver un objeto Balloon. No hay un conjunto para el objeto Balloon; sólo puede haber un globo visible a la vez. Sin embargo, es posible definir varios globos y llamar a cualquiera de ellos cuando sea necesario. Para obtener más información, consulte "Definición y reutilización de globos" más adelante en este tema.

Utilice la propiedad Show para mostrar el globo especificado. Utilice la propiedad Callback para ejecutar los procedimientos basados en las selecciones de globos sin modo (globos que permanecen visibles mientras un usuario trabaja en la aplicación). Utilice el método Close para cerrar los globos sin modo.

El siguiente ejemplo crea un globo que contiene sugerencias para guardar los datos introducidos.

With Assistant.NewBalloon

    .BalloonType = msoBalloonTypeBullets

    .Icon = msoIconTip

    .Button = msoButtonSetOkCancel

    .Heading = "Sugerencias para guardar información."

    .Labels(1).Text = "Guarde su trabajo a menudo."

    .Labels(2).Text = "Instale un protector de sobretensión."

    .Labels(3).Text = "Salga de la aplicación de la manera apropiada."

    .Show

End With

Definición y reutilización de globos

Puede volver a utilizar globos, asignándolos a variables de objeto y llamándolos, cuando sea necesario, en su procedimiento. Este ejemplo define globo1, globo2 y globo3 como globos independientes y los muestra en diferentes puntos del procedimiento.

Set globo1 = Assistant.NewBalloon

globo1.Heading = "Primer globo "

Set globo2 = Assistant.NewBalloon

globo2.Heading = "Segundo globo"

Set globo3 = Assistant.NewBalloon

globo3.Heading = "Tercer globo"

globo1.Show

globo3.Show

globo2.Show

También puede combinar variables de objeto globo en una matriz e indizarlos en ella.


Objeto de conjunto BalloonCheckboxes

Un conjunto de objetos BalloonCheckbox que representan todas las casillas de verificación del diálogo Ayudante de Office.

Uso del conjunto BalloonCheckboxes

Utilice la propiedad Checkboxes para devolver el conjunto BalloonCheckboxes.

Utilice Checkboxes(índice), donde índice es un número de 1 a 5, para devolver un objeto BalloonCheckbox individual. Puede haber hasta cinco casillas de verificación en un globo; cada casilla de verificación aparece cuando se asigna un valor a su propiedad Text.

El siguiente ejemplo escribe, en la ventana de depuración, el texto de todas las casillas de verificación de un globo existente.

For Each box In .CheckBoxes

    If box.Text <> "" Then

        Debug.Print box.Text

    End If

Next

No puede agregar o quitar casillas de verificación del conjunto BalloonCheckboxes.

Comentarios

Las casillas de verificación de un globo muestran las opciones del usuario hasta que cierre el globo. Los rótulos del globo graban la opción del usuario en el momento en que haga clic en el botón ubicado junto al rótulo.


Objeto BalloonCheckbox

Representa una casilla de verificación en el diálogo Ayudante de Office. El objeto BalloonCheckbox es un miembro del conjunto BalloonCheckboxes.

Uso del objeto BalloonCheckbox

Utilice Checkboxes(índice), donde índice es un número de 1 a 5, para devolver un objeto BalloonCheckbox individual. Puede haber hasta cinco casillas de verificación en un globo; cada casilla de verificación aparece cuando se asigna un valor a su propiedad Text.

El siguiente ejemplo crea un diálogo con encabezado, texto y tres opciones de región. Cuando el usuario selecciona una casilla de verificación y, a continuación, hace clic en Aceptar, se ejecuta el procedimiento apropiado.

With Assistant.NewBalloon

    .Heading = "Datos de ventas por regiones"

    .Text = "Seleccione su región"

    For i = 1 To 3

        .CheckBoxes(i).Text = "Región" & i

    Next

    .Button = msoButtonSetOkCancel

    .Show

    Select Case True

        Case .CheckBoxes(1).Checked

            runregion1

        Case .CheckBoxes(2).Checked

            runregion2

        Case .CheckBoxes(3).Checked

            runregion3

    End Select

End With

Comentarios

Las casillas de verificación de un globo muestran las opciones del usuario hasta que cierre el globo. Los rótulos del globo graban la opción del usuario en el momento en que haga clic en el botón ubicado junto al rótulo.


Objeto de conjunto BalloonLabels

Un conjunto de objetos BalloonLabel que representan todos los rótulos del diálogo Ayudante de Office.

Uso del conjunto BalloonLabels

Utilice la propiedad Labels para devolver el conjunto BalloonLabels.

Utilice Labels(índice), donde índice es un número de 1 a 5, para devolver un objeto BalloonLabel. Puede haber hasta cinco rótulos en un globo; cada rótulo aparece cuando se asigna un valor a su propiedad Text.

El siguiente ejemplo crea un globo que contiene tres opciones. La variable x se establece con el valor que devuelve el método Show, que será 1, 2 ó 3, dependiendo del rótulo que el usuario seleccione. El ejemplo muestra el valor de la variable x, pero puede trasladar el valor a otro procedimiento, o puede utilizarlo en una sentencia Select Case.

Set b = Assistant.NewBalloon

With b

    .Heading = "Éste es mi título"

    .Text = "Seleccione una de las siguientes opciones:"

    .Labels(1).Text = "Opción uno"

    .Labels(2).Text = "Opción dos"

    .Labels(3).Text = "Opción tres"

    x = .Show

End With

MsgBox x

Comentarios

Las casillas de verificación de un globo muestran las opciones del usuario hasta que cierre el globo. Los rótulos del globo graban la opción del usuario en el momento de hacer clic en el botón ubicado junto al rótulo.


Objeto BalloonLabel

Representa un rótulo en el diálogo Ayudante de Office. El objeto BalloonLabel es un miembro del conjunto BalloonLabels.

Uso del objeto BalloonLabel

Utilice Labels(índice), donde índice es un número de 1 a 5, para devolver un objeto BalloonLabel. Puede haber hasta cinco rótulos en un globo; cada rótulo aparece cuando se asigna un valor a su propiedad Text.

El siguiente ejemplo crea un globo que pide al usuario que haga clic en el rótulo que corresponda a su edad.

With Assistant.NewBalloon

    .Heading = "Marque su grupo de edad."

    .Labels(1).Text = "Menos de 30."

    .Labels(2).Text = "Más de 30."

    .Labels(3).Text = "No le importa."

    .Text = "¿Cuál de las siguientes " _

        & .Labels.Count & " opciones es aplicable?"

    .Show

End With

Comentarios

Las casillas de verificación de un globo muestran las opciones del usuario hasta que cierre el globo. Los rótulos del globo graban la opción del usuario en el momento en que haga clic en el botón ubicado junto al rótulo.


Método Add

Agrega un objeto a un conjunto. Seleccione uno de los siguientes conjuntos para ver una descripción detallada del método Add para dicho conjunto.

CommandBarControls

CommandBars

DocumentProperties

PropertyTests


Método Add (conjunto CommandBarControls)

Crea un nuevo control de barra de comandos y lo agrega al conjunto de controles de la barra de comandos especificada. Devuelve un objeto CommandBarButton, CommandBarComboBox o CommandBarPopup.

Sintaxis

expresión.Add(Type, Id, Parameter, Before, Temporary)

expresión   Requerida. Expresión que devuelve un objeto CommandBarControls.

Type   Variant opcional. Tipo de control que se va a agregar a la barra de comandos especificada. Puede ser una de las siguientes constantes MsoControlType: msoControlButton, msoControlEdit, msoControlDropdown, msoControlComboBox o msoControlPopup.

Id   Variant opcional. Número entero que especifica un control integrado. Si el valor de este argumento es 1, o si se omite este argumento, se agregará a la barra de comandos un control personalizado en blanco del tipo especificado.

Parameter   Variant opcional. Para controles integrados, la aplicación contenedora utiliza este argumento para ejecutar el comando. En controles personalizados, este argumento puede utilizarse para enviar información a los procedimientos de Visual Basic o para guardar la información acerca del control, de forma similar a un segundo valor de la propiedad Tag.

Before   Variant opcional. Número que indica la posición del nuevo control de barra de comandos. El nuevo control se inserta delante del control ubicado en esta posición. Si se omite este argumento, el control se agrega al final de la barra de comandos especificada.

Temporary   Variant opcional. True para que el nuevo control sea temporal. Los controles temporales se eliminan automáticamente al cerrar la aplicación contenedora. El valor predeterminado es False.


Ejemplo del método Add (conjunto CommandBarControls)

Este ejemplo agrega un control de botón con un gráfico a la barra de comandos denominada "Personalizada" y, a continuación, asigna el control al procedimiento denominado "Analizar".

Set barraPers = CommandBars("Personalizada")

barraPers.Visible = True

Set botónGráf = barraPers.Controls.Add(Type:=msoControlButton)

botónGráf.FaceId = 17

botónGráf.OnAction = "Analizar"


Método Add (conjunto CommandBars)

Crea una nueva barra de comandos y la agrega al conjunto de barras de comandos. Devuelve un objeto CommandBar.

Sintaxis

expresión.Add(Name, Position, MenuBar, Temporary)

expresión   Requerida. Expresión que devuelve un objeto CommandBars.

Name   Variant opcional. Nombre de la nueva barra de comandos. Si se omite este argumento, Word asignará un nombre predeterminado a la barra de comandos, por ejemplo, "Personalizada 1".

Position   Variant opcional. Posición de la nueva barra de comandos. Puede ser una de las siguientes constantes MsoBarPosition:

Constante	Descripción
msoBarLeft, msoBarTop, msoBarRight, msoBarBottom	Indica las coordenadas izquierda, derecha, superior e inferior de la nueva barra de comandos.
msoBarFloating	Indica que la nueva barra de comandos no estará acoplada.
msoBarPopup	Indica que la nueva barra de comandos será un menú contextual.
msoBarMenuBar	Indica que la nueva barra de comandos reemplazará la barra de menús del sistema en Macintosh.
MenuBar   Variant opcional. True para reemplazar la barra de menús activa con la nueva barra de comandos. El valor predeterminado es False.

Temporary   Variant opcional. True para que la nueva barra de comandos sea temporal. Las barras de comandos temporales se eliminan al cerrar la aplicación contenedora. El valor predeterminado es False.


Ejemplo del método Add (conjunto CommandBars)

Este ejemplo agrega una barra de comandos de nivel superior denominada "Personalizada" que no se guardará al finalizar la sesión. El ejemplo también agrega un botón de revisión ortográfica integrado a la barra de comandos.

Set miBarra = CommandBars _

    .Add(Name:="Personalizada", Position:=msoBarTop, _

    Temporary:=True)

With miBarra

    .Controls.Add Type:=msoControlButton, Id:=2

    .Visible = True

End With


Método Add (conjunto DocumentProperties)

Crea una nueva propiedad de documento personalizada. Sólo es posible utilizar este método con el conjunto de propiedades de documento personalizadas.

Sintaxis

expresión.Add(Name, LinkToContent, Type, Value, LinkSource)

expresión   Requerida. Objeto DocumentProperties personalizado.

Name   String requerida. Nombre de la propiedad.

LinkToContent   Boolean requerido. Especifica si la propiedad está vinculada al contenido del documento contenedor. Si este argumento es True, se requiere el argumento LinkSource ; si es False, se requiere el argumento del valor.

Type   Long requerido. Tipo de datos de la propiedad. Puede ser una de las siguientes constantes MsoDocProperties: msoPropertyTypeBoolean, msoPropertyTypeDate, msoPropertyTypeFloat, msoPropertyTypeNumber o msoPropertyTypeString.

Value   Variant opcional. Valor de la propiedad si no está vinculada al contenido del documento contenedor. Si fuera posible, el valor se convierte para que coincida con el tipo de datos especificado por el argumento de tipo; en caso contrario, se produce un error. Si LinkToContent es True, se omite el argumento Value y la nueva propiedad de documento tiene un valor predeterminado hasta que la aplicación contenedora actualice los valores de la propiedad vinculada, normalmente al guardar el documento.

LinkSource   Boolean opcional. Se ignora si LinkToContent es False. Origen de la propiedad vinculada. La aplicación contenedora determina los tipos de vinculación de origen que se pueden utilizar.


Ejemplo del método Add (conjunto DocumentProperties)

Este ejemplo agrega una nueva propiedad de documento personalizada y le asigna el nombre "Completa". Debe pasarse el conjunto DocumentProperties personalizado al procedimiento.

Sub AddCustomProperty(dp As DocumentProperties)

    dp.Add name:="Completa", linkToContent:=False, _

    type:=msoPropertyTypeBoolean, value:=False

End Sub


Método Add (conjunto PropertyTests)

Agrega un objeto PropertyTest al conjunto PropertyTests.

Sintaxis

expresión.Add(Name, Condition, Value, SecondValue, Connector)

expresión   Expresión que devuelve un objeto PropertyTests.

Name   String requerida. Nombre del criterio de la propiedad. El nombre corresponde a un valor del cuadro Propiedad del cuadro de diálogo Búsqueda avanzada.

Condition   Variant requerida. Condición de los criterios de búsqueda. Puede ser una de las siguientes constantes MsoCondition:

msoConditionAnyNumberBetween msoConditionAnytime msoConditionAnytimeBetween msoConditionAtLeast msoConditionAtMost msoConditionBeginsWith msoConditionDoesNotEqual msoConditionEndsWith msoConditionEquals msoConditionFileTypeAllFiles msoConditionFileTypeBinders msoConditionFileTypeDatabases msoConditionFileTypeExcelWorkbooks msoConditionFileTypeOfficeFiles msoConditionFileTypePowerPointPresentations msoConditionFileTypeTemplates msoConditionFileTypeWordDocuments msoConditionIncludesNearEachOther msoConditionIncludesPhrase msoConditionInTheLast	msoConditionInTheNext msoConditionIsExactly msoConditionIsNo msoConditionIsNot msoConditionIsYes msoConditionLastMonth msoConditionLastWeek msoConditionLessThan msoConditionMoreThan msoConditionNextMonth msoConditionNextWeek msoConditionOn msoConditionOnorAfter msoConditionOnorBefore msoConditionThisMonth msoConditionThisWeek msoConditionToday msoConditionTomorrow msoConditionYesterday
Value   Variant opcional. Valor de los criterios de búsqueda que se van a comprobar.

SecondValue   Variant opcional. Valor superior del intervalo de búsqueda. Sólo es posible utilizar este argumento si Condition es msoConditionAnyTimeBetween o msoConditionAnyNumberBetween.

Connector   Variant opcional. Especifica la manera de combinar dos criterios de búsqueda. Puede ser una de las siguientes constantes msoConnector: msoConnectorAnd o msoConnectorOr.


Ejemplo del método Add (conjunto PropertyTests)

Este ejemplo agrega dos pruebas de propiedad a los criterios de búsqueda. La primera comprueba que los archivos encontrados sean documentos de Word y la segunda que los archivos encontrados hayan sido modificados entre el 1 de enero y el 30 de junio de 1996.

Set fs = Application.FileSearch

fs.NewSearch

With fs.PropertyTests

    .Add Name:="Tipos de archivo", _

        Condition:=msoConditionFileTypeWordDocuments, _

        Connector:=msoConnectorOr

    .Add Name:="Última modificación", _

        Condition:=msoConditionAnytimeBetween, _

        Value:="1/1/96", SecondValue:="6/30/96", _

        Connector:=msoConnectorAnd

End With


Método Copy

Copia el control de barra de comandos especificado en una barra de comandos existente.

Sintaxis

expresión.Copy(Bar, Before)

expresión   Requerida. Expresión que devuelve un objeto CommandBarControl, CommandBarButton, CommandBarPopup o CommandBarComboBox.

Bar   Variant opcional. Un objeto CommandBar que representa la barra de comandos de destino. Si se omite este argumento, el control se copia en la misma barra de comandos, es decir, la barra de comandos en la que ya estaba ubicada.

Before   Variant opcional. Número que indica la posición del nuevo control en la barra de comandos especificada. El nuevo control se inserta delante del control ubicado en esta posición. Si se omite este argumento, el control se copia al final de la barra de comandos.


Ejemplo del método Copy

Este ejemplo copia el primer control de la barra de comandos denominada "Estándar" en la barra de comandos "Personalizada" y lo coloca en primer lugar. El ejemplo asigna un nuevo parámetro al control y establece el foco en el nuevo botón.

Set miBarraPers = CommandBars("Personalizada")

Set miControl = CommandBars("Estándar").Controls(1)

With miControl

.Copy Bar:=miBarraPers, Before:=1

.Parameter = "2"

.SetFocus

End With


Propiedad Count

Devuelve el número de elementos del conjunto especificado. Long de sólo lectura.

Comentarios

En el conjunto CommandBars, el recuento sólo incluye barras de menú, barras de herramientas y menús contextuales. No se incluyen los menús y submenús.


Ejemplo de la propiedad Count

Este ejemplo utiliza la propiedad Count para mostrar el número de barras de comandos del conjunto.

MsgBox "Hay " & CommandBars.Count & " barras en el conjunto."

Este ejemplo utiliza la propiedad Count para mostrar el número de casillas de verificación del globo Ayudante de Office.

With Assistant.NewBalloon

    .CheckBoxes(1).Text = "Primera opción"

    .CheckBoxes(2).Text = "Segunda opción"

    .Text = "Tiene las siguientes " _

    & .CheckBoxes.Count & " opciones."

    .Show

End With

Este ejemplo utiliza la propiedad Count para mostrar el número de rótulos del globo Ayudante de Office.

With Assistant.NewBalloon

    .Heading = "Marque su grupo de edad."

    .Labels(1).Text = "20 a 29."

    .Labels(2).Text = "30 a 39."

    .Labels(3).Text = "40 o más"

    .Text = "¿Cuál de las " _

    & .Labels.Count & " opciones siguientes es aplicable?"

    .Show

End With

Este ejemplo muestra el número de propiedades de documento del conjunto DocumentProperties que se han pasado al procedimiento.

Sub CountDocumentProperties(dp As DocumentProperties)

    MsgBox "Hay " & dp.Count & " propiedades en el conjunto."

End Sub


Método Delete

Elimina el objeto especificado del conjunto que lo contiene.

Sintaxis 1

expresión.Delete

Sintaxis 2

expresión.Delete(Temporary)

Sintaxis 3

expresión.Delete(BstrQueryName)

expresión   Requerida. Expresión que devuelve un objeto CommandBar o DocumentProperty, sintaxis 1, un objeto CommandBarControl, sintaxis 2, o un objeto FileFind, sintaxis 3.

Temporary   Variant opcional. True para eliminar el control en la sesión actual. La aplicación mostrará de nuevo el control en la siguiente sesión.

BstrQueryName   String requerida. Cadena de hasta 31 caracteres que indica el nombre del criterio de búsqueda guardado que se debe eliminar.

Comentarios

No es posible eliminar una propiedad de documento integrada.


Ejemplo del método Delete

Este ejemplo elimina todas las barras de comandos personalizadas no visibles.

foundFlag = False

deletedBar = 0

For Each bar In CommandBars

    If (bar.BuiltIn = False) And _

    (bar.Visible = False) Then

        bar.Delete

        foundFlag = True

        deletedBar = deletedBar + 1

    End If

Next

If Not foundFlag Then

    MsgBox "No se han eliminado barras de comando."

Else

    MsgBox deletedBar & " barras personalizadas eliminadas."

End If

Este ejemplo elimina una propiedad de documento personalizada. Debe pasarse el objeto DocumentProperty personalizado al procedimiento.

Sub DeleteCustomDocumentProperty(dp As DocumentProperty)

    dp.Delete

End Sub


Método Execute

Ejecuta un procedimiento asociado a un control de barra de comandos o inicia la búsqueda de archivos. Seleccione uno de los siguientes objetos para ver una descripción detallada del método Execute para dicho objeto.

CommandBarButton

CommandBarControl

CommandBarPopup

CommandBarComboBox

FileSearch

FileFind


Método Execute (Controles de la barra de comandos)

Ejecuta la macro o comando integrado asignado al control de barra de comandos especificado. Para controles personalizados, utilice la propiedad OnAction para especificar la macro que desea ejecutar.

Sintaxis

expresión.Execute

expresión   Requerida. Expresión que devuelve un objeto CommandBarControl, CommandBarButton, CommandBarPopup o CommandBarComboBox.


Ejemplo del método Execute (Controles de la barra de comandos)

Este ejemplo comprueba el valor del control de cuadro combinado en la barra de comandos denominada "Mi barra de comandos". Si el valor es "Primero", el ejemplo devuelve la macro especificada por la propiedad OnAction del control de barra de comandos.

Set miControl = CommandBars("Mi barra personalizada").Controls(1)

With miControl

If .List(.ListIndex) = "Primero" Then

miControl.Execute

   End If

End With


Método Execute (objetos FileSearch y FileFind)

Objeto FileSearch: Inicia la búsqueda de los archivos especificados.

Objeto FileFind: Inicia la búsqueda de los archivos especificados y actualiza el conjunto FindFileResults. Sólo aplicable en equipos Macintosh.

Sintaxis 1

expresión.Execute(SortBy, SortOrder, AlwaysAccurate)

Sintaxis 2

expresión.Execute

expresión   Requerida. Expresión que devuelve un objeto FileSearch, sintaxis 1, o un objeto FileFind, sintaxis 2.

SortBy   Variant opcional. Método utilizado para ordenar los archivos devueltos. Puede ser una de las siguientes constantes MsoSortBy: msoSortbyFileName, msoSortbyFileType, msoSortbyLastModified o msoSortbySize.

SortOrder   Variant opcional. Criterio de ordenación de los archivos devueltos. Puede ser una de las siguientes constantes MsoSortOrder: msoSortOrderAscending o msoSortOrderDescending.

AlwaysAccurate   Boolean opcional. True para que la búsqueda incluya archivos que hayan sido agregados, modificados o eliminados desde que se actualizó por última vez el índice. El valor predeterminado es True.


Ejemplo del método Execute (objetos FileSearch y FileFind)

Este ejemplo busca todos los archivos que comiencen por "cmd" en la carpeta Mis documentos y muestra la ubicación y nombre de cada archivo encontrado. El ejemplo ordena la lista de archivos devueltos por nombre de archivo en orden alfabético ascendente.

Set fs = Application.FileSearch

With fs

    .LookIn = "C:\Mis documentos"

    .FileName = "cmd*"

    If .Execute(SortBy:=msoSortbyFileName, _

            SortOrder:=msoSortOrderAscending) > 0 Then

        MsgBox "Se han encontrado " & .FoundFiles.Count & _

            " archivos."

        For i = 1 To .FoundFiles.Count

            MsgBox .FoundFiles(i)

        Next i

    Else

        MsgBox "No se han encontrado archivos."

    End If

End With


Método SetFocus

Mueve el foco del teclado al control de barra de comandos especificado para poder recibir la entrada de teclado. El tipo de entrada de teclado que se puede dirigir al control depende del tipo de control de que se trate.

Nota Si el control está inhabilitado o no es visible desde el estado actual, este método fallará.

Sintaxis

expresión.SetFocus

expresión   Requerida. Expresión que devuelve un objeto CommandBarControl, CommandBarButton, CommandBarPopup o CommandBarComboBox.


Ejemplo del método SetFocus

Este ejemplo copia el cuarto control de barra de comandos de la barra de comandos personalizada Mi barra personalizada y lo pega en la misma barra de comandos que el primer control. El ejemplo también asigna un nuevo parámetro al control y establece el foco en el nuevo botón.

Set miControl = CommandBars("Mi barra personalizada") _

    .Controls(4)

With miControl

.Copy Before:=1

.Parameter = "2"

.SetFocus

End With


Propiedad Text

Objeto CommandBarComboBox: Devuelve o establece el texto en el área de presentación o modificación del control de cuadro combinado de la barra de comandos. String de Lectura/Escritura.

Objeto BalloonLabel o BalloonCheckbox: Devuelve o establece el texto mostrado junto a la casilla de verificación o rótulo especificados del globo Ayudante de Office. String de Lectura/Escritura.

Objeto Balloon: Devuelve o establece el texto mostrado después del encabezado pero antes de las casillas de verificación o rótulos especificados del globo Ayudante de Office. String de Lectura/Escritura.

Objeto FileFind: Devuelve o establece la cadena que se va a buscar, hasta 80 caracteres, en el texto principal de un documento durante una búsqueda de archivos. Sólo aplicable en equipos Macintosh. String de Lectura/Escritura.

Comentarios

Para los objetos Balloon, BalloonLabel y BalloonCheckbox, puede especificar que se muestre un gráfico mediante la siguiente sintaxis: {type location sizing_factor}, donde type es bmp (mapa de bits), wmf (metarchivo de Windows), o pict (archivo Macintosh PICT); location es el identificador de recursos o la ruta de acceso y nombre de archivo; y sizing_factor especifica el ancho del archivo wmf o pict (se omite para bmp).


Ejemplo de la propiedad Text

Este ejemplo comprueba el número de elementos del control de cuadro combinado en la barra de comandos denominada "Personalizada". Si hay más de tres elementos en la lista, el ejemplo borra la lista y agrega un primer elemento nuevo. El nuevo elemento predeterminado para este control es "Floyd".

Set miBarra = CommandBars("Personalizada")

Set miControl = miBarra.Controls(2)

With miControl

    If .ListCount > 3 Then

        .Clear

        .AddItem "Floyd", 1

        .Text = "Floyd"

    End If

End With

Este ejemplo crea un nuevo globo Ayudante de Office con encabezado, texto y tres opciones de región. El ejemplo utiliza la propiedad Text para proporcionar un rótulo a cada casilla de verificación.

With Assistant.NewBalloon

    .Heading = "Datos de ventas por regiones"

    .Text = "Seleccione una región"

    For i = 1 To 3

        .CheckBoxes(i).Text = "Región " & i

    Next

    .Show

End With

Este ejemplo crea un nuevo globo Ayudante de Office con encabezado, texto y tres opciones de región. El ejemplo utiliza la propiedad Text para proporcionar al usuario instrucciones acerca del globo.

With Assistant.NewBalloon

    .Heading = "Datos de ventas por regiones"

    .Text = "Seleccione una región"

    For i = 1 To 3

        .CheckBoxes(i).Text = "Región " & i

    Next

    .Show

End With


Propiedad Top

Objeto CommandBar o CommandBarControl: Devuelve o establece la distancia (en píxeles) desde el borde superior de la barra de comandos especificada o del control de barra de comandos hasta el borde superior de la pantalla. Para barras de comandos acopladas, esta propiedad devuelve o establece la distancia desde la barra de comandos hasta el borde superior del área de acoplamiento. Long de Lectura/Escritura para CommandBar; Long de sólo lectura para CommandBarControl.

Objeto Assistant: Devuelve o establece la posición vertical de la ventana del Ayudante de Office, en puntos, con relación a la pantalla. Integer de Lectura/Escritura.


Ejemplo de la propiedad Top

Este ejemplo sitúa la esquina superior izquierda de la barra de comandos flotante denominada "Personalizada" a 140 píxeles del borde izquierdo de la pantalla y a 100 píxeles del borde superior de la pantalla.

Set miBarra = CommandBars("Personalizada")

miBarra.Position = msoBarFloating

With miBarra

    .Left = 140

    .Top = 100

End With

Este ejemplo desplaza el Ayudante de Office a la coordenada especificada.

Assistant.Top = 500


Propiedad HelpContextId

Devuelve o establece el identificador de contexto del tema de Ayuda adjunto al control de barra de comandos. Long de Lectura/Escritura.

Comentarios

Para utilizar esta propiedad, también debe establecer la propiedad HelpFile.


Ejemplo de la propiedad HelpContextId

Este ejemplo agrega un botón administrador de informes personalizado al menú Archivo y especifica un tema de Ayuda que se mostrará como Ayuda sensible al contexto de ese botón.

Set fileMenu = CommandBars _

    .FindControl(Type:=msoControlPopup, Id:=fileID)

Set fileMenuDrop = fileMenu.CommandBar

Set nuevoBotón = fileMenuDrop.Controls _

    .Add(Type:=msoControlButton, Before:=3)

With nuevoBotón

    .Caption = "Abrir Informe"

    .DescriptionText = "Abre un formulario de informe trimestral"

    .OnAction = "ReportManager"

    .HelpFile = "C:\corphelp\custom.hlp"

    .HelpContextID = 47

End With


Propiedad HelpFile

Devuelve o establece el nombre de archivo del tema de Ayuda adjunto al control de barra de comandos. String de Lectura/Escritura.

Comentarios

Para utilizar esta propiedad, también debe establecer la propiedad HelpContextID.


Ejemplo de la propiedad HelpFile

Este ejemplo agrega un botón administrador de informes personalizado al menú Archivo y especifica un tema de Ayuda que se mostrará como Ayuda sensible al contexto de ese botón.

Set fileMenu = CommandBars _

   .FindControl(Type:=msoControlPopup, Id:=fileId)

Set fileMenuDrop = fileMenu.CommandBar

Set nuevobotón = fileMenuDrop.Controls _

    .Add(Type:=msoControlButton, Id:=customId, Before:=3)

With nuevoBotón

    .Caption = "Abrir Informe"

    .DescriptionText = "Abre un formulario de informe trimestral"

    .OnAction = "ReportManager"

    .HelpFile = "C:\corphelp\custom.hlp"

    .HelpContextID = 47

End With


Propiedad LargeButtons

True si se muestran botones grandes en la barra de herramientas. Boolean de Lectura/Escritura.


Ejemplo de la propiedad LargeButtons

Este ejemplo muestra botones grandes en la barra de herramientas y Sugerencias en todas las barras de comandos si la barra de menús principal activa es la barra "Personalizada".

Set todasBarras = CommandBars

If todasBarras.ActiveMenuBar.Name = "Personalizada" Then

    todasBarras.LargeButtons = True

    todasBarras.ShowToolTips = True

End If


Propiedad List

Devuelve o establece el valor de un elemento de lista del control de cuadro combinado de la barra de comandos. String de Lectura/Escritura.

Nota   Esta propiedad es sólo de lectura para controles de cuadro combinado integrados.

Sintaxis

expresión.List(Index)

expresión   Requerida. Expresión que devuelve un objeto CommandBarComboBox.

Index   Long requerido. Elemento de lista que se va a establecer.


Ejemplo de la propiedad List

Este ejemplo comprueba el valor del cuarto elemento de lista del control de cuadro combinado "Hortalizas" en la barra de comandos denominada "Personalizada". Si el valor es "Tomate", se ejecuta el código especificado por la propiedad OnAction del control de barra de comandos.

Set miBarra = CommandBars("Personalizada")

Set miControl = miBarra.Controls("Hortalizas")

If miControl.List(4) = "Tomates" Then miControl.Execute


Propiedad ListCount

Devuelve el número de elementos de lista del control de cuadro combinado de la barra de comandos. Long de sólo lectura.


Ejemplo de la propiedad ListCount

Este ejemplo comprueba el número de elementos del control de cuadro combinado en la barra de comandos denominada "Personalizada". Si hay más de tres elementos en la lista, se borra la lista y se agrega, y se muestra un nuevo primer elemento como predeterminado para el control de cuadro combinado.

Set miBarra = CommandBars("Personalizada")

Set miControl = miBarra.Controls(2)

With miControl

    If .ListCount > 3 Then

        .Clear

        .AddItem Text:="Floyd", Index:=1

        .ListIndex = 1

    End If

End With


Propiedad ListHeaderCount

Devuelve o establece el número de elementos de lista del control de cuadro combinado de la barra de comandos que aparece encima de la línea separadora. Long de Lectura/Escritura.

Nota   Esta propiedad es sólo de lectura para controles de cuadro combinado integrados.

Comentarios

Si la propiedad ListHeaderCount tiene valor –1 indica que no hay línea separadora en el control de cuadro combinado.


Ejemplo de la propiedad ListHeaderCount

El siguiente ejemplo agrega un control de cuadro combinado a la barra de comandos denominada "Personalizada" y, a continuación, agrega dos elementos a la lista del cuadro combinado. El ejemplo también establece el número de elementos de línea, el ancho del cuadro combinado y un valor vacío predeterminado para el cuadro combinado.

Set miBarra = CommandBars("Personalizada")

Set miControl = miBarra.Controls.Add(Type:=msoControlComboBox)

With miControl

    .AddItem Text:="Primer elemento", Index:=1

    .AddItem Text:="Segundo elemento", Index:=2

    .DropDownLines = 3

    .DropDownWidth = 75

    .ListHeaderCount = 1

End With


Propiedad ListIndex

Devuelve o establece el número de índice el elemento seleccionado en la lista del control de cuadro combinado de la barra de comandos. Si no se selecciona ningún elemento de la lista, esta propiedad devuelve cero. Long de Lectura/Escritura.

Note   Esta propiedad falla cuando se aplica a controles que no sean controles de lista.

Comentarios

Al establecer la propiedad ListIndex el control especificado selecciona el elemento dado y ejecuta la acción apropiada en la aplicación.


Ejemplo de la propiedad ListIndex

Este ejemplo ejecuta un procedimiento existente, basado en la selección del cuadro combinado. El texto del cuadro combinado puede ser cualquiera, ya que para determinar qué procedimiento ejecutar, el ejemplo utiliza tanto la propiedad ListIndex como el número de índice del elemento de texto.

With miControl

    Select Case .ListIndex

        Case 1

            chartcourse

        Case 2

            displaygraph

        Case Else

           MsgBox "opción no válida"

    End Select

End With


Propiedad NameLocal

Devuelve el nombre de una barra de comandos integrada tal como se muestra en el idioma de la aplicación contenedora o devuelve, o establece el nombre de una barra de comandos personalizada. String de Lectura/Escritura.

Nota   Al tratar de establecer esta propiedad para una barra de comandos integrada, se producirá un error.

Comentarios

El nombre local de la barra de comandos integrada aparece en la barra de título, cuando la barra no está acoplada, y en la lista de barras de comandos disponibles, siempre que se muestre dicha lista en la aplicación contenedora.

Si cambia el valor de la propiedad LocalName de una barra de comandos personalizada, también cambiará el valor de Name y viceversa.


Ejemplo de la propiedad NameLocal

Este ejemplo muestra el nombre y el nombre adaptado de la primera barra de comandos de la aplicación contenedora.

With CommandBars(1)

    MsgBox "El nombre de la barra de comandos es " & .Name

    MsgBox "El nombre adaptado de la barra de comandos es " & .NameLocal

End With


Propiedad OLEMenuGroup

Devuelve o establece el grupo de menús al que pertenece el control emergente de la barra de comandos cuando el grupo de menús del servidor OLE se combina con el grupo de menús de un cliente OLE, es decir, cuando un objeto del tipo aplicación contenedora se incrusta en otra aplicación. Puede ser una de las siguientes constantes MsoOLEMenuGroup: msoOleMenuGroupNone, msoOleMenuGroupFile, msoOleMenuGroupEdit, msoOleMenuGroupContainer, msoOleMenuGroupObject, msoOleMenuGroupWindow o msoOleMenuGroupHelp. Long de Lectura/Escritura.

Nota   Esta propiedad es sólo de lectura para controles integrados.

Comentarios

Esta propiedad permite que las aplicaciones complementarias especifiquen cómo serán representados sus controles de barra de comandos en la aplicación Office. Si ni la aplicación contenedora ni el servidor contienen barras de comandos, se producirá una combinación de menús OLE normal. Se combinarán la barra de menús y todas las barras de herramientas del servidor y ninguna de las barras de herramientas del contenedor. Esta propiedad sólo es relevante para controles emergentes de la barra de menús ya que los menús se combinan por categorías de grupos de menús.

Si las dos aplicaciones que se combinan contienen barras de comandos, los controles de barras de comandos se combinan de acuerdo con la propiedad OLEUsage.


Ejemplo de la propiedad OLEMenuGroup

Este ejemplo comprueba la propiedad de un nuevo control emergente personalizado de la barra de menús activa y lo establece en msoOLEMenuGroupNone.

Set miControl = ActiveMenuBar.Controls _

    .Add(Type:=msoControlPopup,Temporary:=False)

miControl.OLEMenuGroup = msoOLEMenuGroupNone


Propiedad OLEUsage

Devuelve o establece las funciones del cliente OLE y del servidor OLE en que se utilizará un control de barra de comandos al combinarse dos aplicaciones de Microsoft Office. Puede ser una de las siguientes constantes MsoControlOLEUsage: msoControlOLEUsageNeither, msoControlOLEUsageServer, msoControlOLEUsageClient o msoControlOLEUsageBoth. Long de Lectura/Escritura.

Comentarios

Esta propiedad permite especificar cómo serán representados los controles de barra de comandos de las aplicaciones complementarias en una aplicación de Office cuando se combinan con otra aplicación de Office. Si tanto el cliente como el servidor contienen barras de comandos, los controles de barra de comandos se incrustan en el cliente control a control. Los controles personalizados marcados como sólo del cliente (o ni del cliente ni del servidor) se eliminan del servidor y los controles marcados como sólo del servidor (o ni del cliente ni del servidor) se eliminan del cliente. El resto de los controles se combinan.

Si una de las aplicaciones de combinación no es una aplicación de Office se utiliza la combinación de menús normal, controlada por la propiedad OLEMenuGroup.


Ejemplo de la propiedad OLEUsage

Este ejemplo agrega un nuevo botón a la barra de comandos denominada Tools y establece su propiedad OLEUsage.

Set miControl = CommandBars("Tools").Controls _

    .Add(Type:=msoControlButton,Temporary:=True)

miControl.OLEUsage = msoControlOLEUsageNeither


Propiedad OnAction

Devuelve o establece el nombre de la macro de Visual Basic que se ejecutará cuando el usuario haga clic o cambie el valor de un control de barra de comandos. String de Lectura/Escritura.

Nota   La aplicación contenedora determina si el valor es un nombre de macro válido.


Ejemplo de la propiedad OnAction

Este ejemplo agrega un control a la barra de comandos denominada "Personalizada" y establece que la macro denominada "MiSub" se ejecute siempre que se haga clic en el botón.

Set miBarra = .CommandBars("Personalizada")

Set miControl = miBarra.Controls _

    .Add(Type:=msocontrolButton)

With miControl

    .FaceId = 2

    .OnAction = "MiSub"

End With

miBarra.Visible = True


Propiedad Parameter

Devuelve o establece una cadena que una aplicación pueda utilizar para ejecutar un comando asociado con un control de barra de comandos. String de Lectura/Escritura.

Comentarios

Si el parámetro especificado se establece para un control integrado, la aplicación puede modificar su comportamiento predeterminado si puede analizar y utilizar el nuevo valor. Si el parámetro se establece para controles personalizados, puede utilizarse para enviar información a los procedimientos de Visual Basic o para guardar la información acerca del control, de forma similar a un segundo valor de la propiedad Tag.


Ejemplo de la propiedad Parameter

Este ejemplo copia el cuarto control de la barra de comandos personalizada denominada "Personalizada" y lo pega en la misma barra de comandos que el primer control. El ejemplo asigna un nuevo parámetro y establece el foco en el nuevo botón.

Set miControl = CommandBars("Personalizada").Controls(4)

With miControl

    .Copy , 1

    .Parameter = "2"

    .SetFocus

End With


Método PasteFace

Pega el contenido del Portapapeles en el control de botón de la barra de comandos especificada.

Sintaxis

expresión.PasteFace

expresión   Requerida. Expresión que devuelve un objeto CommandBarButton.


Ejemplo del método PasteFace

Este ejemplo busca el botón FileOpen integrado y pega una imagen personalizada en él desde el Portapapeles, imagen que el usuario había modificado previamente. Este ejemplo fallará si no existe una imagen personalizada en el Portapapeles; utilice el método CopyFace para copiar una imagen de botón especificada en el Portapapeles.

Set miControl = CommandBars.FindControl(Type:=msoControlButton, Id:=23)

miControl.PasteFace


Propiedad Position

Devuelve o establece la posición de la barra de comandos personalizada. Puede ser una de las siguientes constantes MsoBarPosition: msoBarLeft, msoBarTop, msoBarRight, msoBarBottom, msoBarFloating, msoBarPopup o msoBarMenu. Long de Lectura/Escritura.


Ejemplo de la propiedad Position

Este ejemplo recorre el conjunto de barras de comandos, acoplando las barras de comandos personalizadas en la parte inferior de la ventana de aplicación y acoplando las barras de comandos integradas en la parte superior de la ventana.

For Each bar In CommandBars

    If bar.Visible = True Then

        If bar.BuiltIn Then

            bar.Position = msoBarTop

         Else

            bar.Position = msoBarBottom

        End If

    End If

Next


Propiedad Priority

Devuelve o establece la prioridad del control de barra de comandos especificado. La prioridad de un control determina si puede eliminarse de una barra de comandos acoplada que no se ajuste a una sola línea. Long de Lectura/Escritura.

Comentarios

Una prioridad 1 indica que el control no puede eliminarse. Se eliminan primero los controles con números de prioridad mayores

Una prioridad 0 indica un valor "automático", que elegirá una prioridad efectiva según el tipo de control. Una prioridad 1 indica que el control nunca se eliminará. Las otras prioridades válidas son de 2 a 7 y estos controles se eliminarán según el orden de sus valores (comenzando con los valores superiores).


Ejemplo de la propiedad Priority

Este ejemplo desplaza el primer control de cuadro combinado desde la barra de comandos personalizada "Personalizada" hasta la posición anterior al séptimo control de la barra de comandos; a continuación, establece un rótulo "Cuadro de selección" y asigna al control una prioridad alta de forma que será eliminado de la barra de comandos si los controles no se ajustan a una línea.

Set todosControles = CommandBars("Personalizada").Controls

For Each control In todosControles

    If ctrl.Type = msoControlComboBox Then

        With ctrl

            .Move Before:=7

            .Tag = "Cuadro de selección"

            .Priority = 5

        End With

    Exit For

End If

Next


Propiedad Protection

Devuelve o establece la manera en que la barra de comandos especificada está protegida contra la personalización. Puede ser una o una suma de las siguientes constantes MsoBarProtection: msoBarNoProtection, msoBarNoCustomize, msoBarNoResize, msoBarNoMove, msoBarNoChangeVisible, msoBarNoChangeDock, msoBarNoVerticalDock o msoBarNoHorizontalDock. Long de Lectura/Escritura.


Ejemplo de la propiedad Protection

Este ejemplo recorre el conjunto de barras de comandos para buscar la barra denominada "Formularios". Si se encuentra esta barra de herramientas, el ejemplo la muestra y protege su estado de acoplamiento.

foundFlag = False

For i = 1 To .CommandBars.Count

    If .CommandBars(i).Name = "Formularios" Then

            .CommandBars(i).Protection = msoBarNoChangeDock

            .CommandBars(i).Visible = True

            foundFlag = True

    End If

Next

If Not foundFlag Then

    MsgBox "La barra de comandos 'Formularios' no está en el conjunto."

End If


Método ReleaseFocus

Libera el foco de la interfaz de usuario de todas las barras de comandos.

Sintaxis

expresión.ReleaseFocus

expresión   Requerida. Expresión que devuelve un objeto CommandBars.


Ejemplo del método ReleaseFocus

Este ejemplo libera el foco de la interfaz de usuario de todas las barras de comandos.

CommandBars.ReleaseFocus


Método RemoveItem

Elimina un elemento de lista del control de cuadro combinado de la barra de comandos especificada.

Nota   Esta propiedad falla cuando se aplica a controles que no sean controles de lista.

Sintaxis

expresión.RemoveItem(Index)

expresión   Requerida. Expresión que devuelve un objeto CommandBarComboBox.

Index   Long requerido. Elemento que se va a eliminar de la lista.


Ejemplo del método RemoveItem

El siguiente ejemplo determina si hay más de tres elementos en el control de cuadro combinado denominado "Combinado1" en la barra de comandos denominada "Personalizada". Si hay más de tres elementos, el ejemplo elimina el segundo elemento, altera el estilo para que no muestre el rótulo del cuadro combinado y establece un nuevo valor. También establece la propiedad Tag del objeto maestro, objeto CommandBarControl, para que muestre que la lista ha cambiado.

Set miBarra = CommandBars("Personalizada")

Set miControl = miBarra.Controls("Combinado1")

With miControl

    If .ListCount > 3 Then

        .RemoveItem 2

        .Style = msoComboNormal

        .Text = "Nuevo predeterminado"

         Set ctrl = .Parent

         ctrl.Tag = "El contenido ha cambiado"

    End If

End With


Método Reset

Restablece la barra de comandos integrada especificada a su configuración predeterminada o restablece el control de barra de comandos a su función e imagen predeterminadas.

Sintaxis

expresión.Reset

expresión   Requerida. Expresión que devuelve un objeto CommandBar, CommandBarControl, CommandBarButton, CommandBarPopup o CommandBarComboBox.

Comentarios

Al restablecer un control integrado se restablecen sus acciones originales y todas las propiedades a su estado original. Al restablecer una barra de comandos integrada se eliminan los controles personalizados y se restablecen los controles integrados.


Ejemplo del método Reset

Este ejemplo utiliza el valor de usuario para ajustar las barras de comando de acuerdo con el nivel de usuario. Si usuario es "Nivel 1," se muestra la barra de comandos denominada "Personalizada". Si usuario es cualquier otro valor, la barra de comandos integrada de Visual Basic se restablece a su estado predeterminado y se inhabilita la barra de comandos denominada "Personalizada".

Set miBarra = CommandBars("Personalizada")

If user = "Nivel 1" Then

    miBarra.Visible = True

Else

    .CommandBars("Visual Basic").Reset

    miBarra.Enabled = False

End If


Propiedad RowIndex

Devuelve o establece el orden de acoplamiento de la barra de comandos especificada en relación con otras barras de comando del mismo área de acoplamiento. Puede ser un número entero mayor que cero o cualquiera de las siguientes constantes msoBarRow: msoBarRowFirst o msoBarRowLast. Long de Lectura/Escritura.

Comentarios

Las barras de comandos con números inferiores se acoplan primero. Varias barras de comandos pueden compartir el mismo índice de fila. Si dos o más barras de comandos comparten el mismo índice de fila, se mostrará primero la barra de comandos del grupo asignada más recientemente.


Ejemplo de la propiedad RowIndex

Este ejemplo ajusta la posición de la barra de comandos denominada "Personalizada" moviéndola a la izquierda 110 píxeles más del valor predeterminado y hace que sea la primera barra de comandos acoplada, cambiando su número de índice a 1.

Set miBarra = CommandBars("Personalizada")

With miBarra

    .RowIndex = 1

    .Left = 140

End With


Método ShowPopup

Muestra la barra de comandos especificada como un menú contextual en las coordenadas especificadas o en las coordenadas actuales del puntero.

Nota   Si la propiedad Position de la barra de comandos no se establece en msoBarPopup, este método falla.

Sintaxis

expresión.ShowPopup(x, y)

expresión   Requerida. Expresión que devuelve un objeto CommandBar.

x   Variant opcional. Coordenada X de la posición del menú contextual. Si se omite este argumento, se utilizará la coordenada X actual del puntero.

y   Variant opcional. Coordenada Y de la posición del menú contextual. Si se omite este argumento, se utilizará la coordenada Y actual del puntero.


Ejemplo del método ShowPopup

Este ejemplo crea un menú contextual que contiene dos controles. El método ShowPopup se utiliza para mostrar el menú contextual.

Set miBarra = CommandBars _

    .Add(Name:="Personalizada1", Position:=msoBarPopup, Temporary:=False)

With miBarra

    .Controls.Add Type:=msoControlButton, Id:=3

    .Controls.Add Type:=msoControlComboBox

End With

miBarra.ShowPopup


Propiedad State

Devuelve o establece el aspecto del control de botón de la barra de comandos especificada. Puede ser una de las siguientes constantes MsoButtonState: msoButtonUp, msoButtonDown o msoButtonMixed. Long de Lectura/Escritura.


Ejemplo de la propiedad State

Este ejemplo determina si el primer control de la barra de comandos denominada "Personalizada" tiene una imagen de botón integrada. En este caso, el ejemplo copia la imagen de botón al Portapapeles para que pueda personalizarse mediante una aplicación como Microsoft Paint. Este ejemplo establece el estado del botón en msoButtonUp.

Set miControl = CommandBars("Personalizada").Controls(1)

With miControl

    If .BuiltInFace = True Then

        .CopyFace

    End If

    .State = msoButtonUp

End With


Propiedad Style

Objeto CommandBarButton: Devuelve o establece la manera en que se muestra el control de botón de la barra de comandos especificada. Puede ser una de las siguientes constantes MsoControlType: msoButtonAutomatic, msoButtonIcon, msoButtonCaption o msoButtonIconandCaption. Long de Lectura/Escritura.

Objeto CommandBarComboBox: Devuelve o establece la manera en que se muestra el control de cuadro combinado de la barra de comandos especificada. Puede ser una de las siguientes constantes MsoComboStyle: msoComboLabel o msoComboNormal. Long de Lectura/Escritura.


Ejemplo de la propiedad Style

Este ejemplo crea un menú contextual que contiene un control de botón y un control de cuadro combinado, y establece el estilo de cada uno de ellos.

Set miBarra = CommandBars _

    .Add(Name:="Personalizada1", Position:=msoBarPopup, Temporary:=False)

With miBarra

    .Controls.Add Type:=msoControlButton, Id:=3

    .Controls(1).Style = msoButtonCaption

    .Controls.Add Type:=msoControlComboBox

    With .Controls(2)

        .Style = msoComboLabel

        .AddItem "vainilla"

        .AddItem "chocolate"

        .AddItem "pistacho"

    End With

End With

miBarra.ShowPopup


Propiedad Tag

Devuelve o establece la información acerca del control de barra de comandos, por ejemplo, los datos que pueden utilizarse como argumentos en procedimientos y la información que identifica el control. String de Lectura/Escritura.


Ejemplo de la propiedad Tag

Este ejemplo desplaza el primer control de cuadro combinado desde la barra de comandos denominada "Mi barra de comandos" hasta la posición anterior al séptimo control de la barra de comandos; a continuación, establece un rótulo "cuadro de selección" y asigna al control una prioridad alta de forma que será eliminado de la barra de comandos si los controles no se ajustan a una línea.

Set todosControles = CommandBars("Mi barra de comandos").Controls

For Each ctrl In todosControles

    If ctrl.Type = msoControlComboBox Then

        With ctrl

            .Move Before:=7

            .Tag = "cuadro de selección"

            .Priority = 5

        End With

        Exit For

    End If

Next


Propiedad TooltipText

Devuelve o establece el texto mostrado en la Sugerencia del control de barra de comandos especificado. String de Lectura/Escritura.

Comentarios

El valor de Caption es el predeterminado para la Sugerencia.


Ejemplo de la propiedad TooltipText

Este ejemplo establece que el último control de la barra de menús activa comience su propio grupo y, a continuación, agrega una Sugerencia.

Set miBarraMenús = CommandBars.ActiveMenuBar

Set lastCtrl = miBarraMenús _

   .Controls(miBarraMenús.Controls.Count)

lastCtrl.BeginGroup = True

lastCtrl.TooltipText = "Haga clic para obtener ayuda acerca de la característica UI"

End With


Propiedad ActiveMenuBar

Devuelve un objeto CommandBar que representa la barra de menús activa de la aplicación contenedora. Es de sólo lectura.


Ejemplo de la propiedad ActiveMenuBar

Este ejemplo agrega un control emergente temporal denominado "Personalizado" al final de la barra de menús activa y, a continuación, agrega un control de botón denominado "Importar" en la barra de comandos mostrada por el control.

Set miBarraMenús = CommandBars.ActiveMenuBar

Set nuevoMenú = miBarraMenús.Controls.Add(Type:=msoControlPopup, Temporary:=True)

nuevoMenú.Caption = "Personalizada"

Set ctrl1 = nuevoMenú.CommandBar.Controls _

    .Add(Type:=msoControlButton, Id:=1)

With ctrl1

    .Caption = "Importar"

    .TooltipText = "Importar"

    .Style = msoButtonCaption

End With


Método AddItem

Agrega un elemento de lista al control de cuadro combinado de la barra de comandos especificada. El control de cuadro combinado debe ser un control personalizado y debe ser o un cuadro de lista emergente o un cuadro combinado.

Nota   Este método fallará si se aplica a un control de cuadro combinado que sea un control de cuadro de edición o de cuadro combinado integrado.

Sintaxis

expresión.AddItem(Text, Index)

expresión   Requerida. Expresión que devuelve un objeto CommandBarComboBox.

Text   String requerida. Elemento que se va a agregar al control especificado.

Index   Variant opcional. La posición del elemento especificado de la lista. Si se omite este argumento, el elemento se agrega al final de la lista.


Ejemplo del método AddItem

Este ejemplo agrega un control de cuadro combinado a la barra de comandos denominada "Personalizada" y, a continuación, agrega dos elementos a la lista. El ejemplo también establece el número de elementos de línea, el ancho del cuadro combinado y un valor vacío predeterminado para el cuadro combinado.

Set miBarra = CommandBars("Personalizada")

Set miControl = miBarra.Controls.Add(Type:=msoControlComboBox, Id:=1)

With miControl

    .AddItem "Primer elemento", 1

    .AddItem "Segundo elemento", 2

    .DropDownLines = 3

    .DropDownWidth = 75

    .ListHeaderCount = 0

End With


Propiedad BeginGroup

True si el control de barra de comandos especificado está al principio de un grupo de controles en la barra de herramientas. Boolean de Lectura/Escritura.


Ejemplo de la propiedad BeginGroup

Este ejemplo establece que el último control de la barra de menús activa esté al principio de su propio grupo.

Set miBarraMenús = CommandBars.ActiveMenuBar

Set lastMenu = miBarraMenús _

    .Controls(miBarraMenús.Controls.Count)

lastMenu.BeginGroup = True


Propiedad BuiltIn

True si la barra de comandos o el control de barra de comandos especificado es una barra de comandos o control integrados de la aplicación contenedora. False si se trata de una barra de comandos o control personalizados, o si se trata de un control integrado cuya propiedad OnAction ha sido establecida. Boolean de sólo lectura.


Ejemplo de la propiedad BuiltIn

Este ejemplo elimina todas las barras de comandos personalizadas no visibles.

foundFlag = False

deletedBars = 0

For Each bar In CommandBars

    If (bar.BuiltIn = False) And (bar.Visible = False) Then

        bar.Delete

        foundFlag = True

        deletedBars = deletedBars + 1

    End If

Next

If Not foundFlag Then

    MsgBox "No se eliminó ninguna barra de comandos."

Else

    MsgBox deletedBars & " barra(s) de comandos personalizada(s)."

End If


Propiedad BuiltInFace

True si la imagen del control de botón de la barra de comandos especificada es una imagen integrada. El valor de esta propiedad sólo puede ser True que restablecerá la imagen integrada. Boolean de Lectura/Escritura.


Ejemplo de la propiedad BuiltInFace

Este ejemplo determina si la imagen del primer control de la barra de comandos denominada "Personalizada" es la imagen integrada. En este caso, el ejemplo copia la imagen de botón en el Portapapeles.

Set miControl = CommandBars("Mi barra personalizada").Controls(1)

With miControl

    If .BuiltInFace = True Then .CopyFace

End With


Propiedad Caption

Devuelve o establece el texto del título del control de barra de comandos especificado. String de Lectura/Escritura.

Nota   El título de un control también se muestra como Sugerencia predeterminada.


Ejemplo de la propiedad Caption

Este ejemplo agrega un control de barra de comandos con la imagen de botón del corrector ortográfico a una barra de comandos personalizada y, a continuación, establece el título "Corrector ortográfico".

Set miBarra = CommandBars.Add(Name:="Personalizada", _

Position:=msoBarTop, Temporary:=True)

miBarra.Visible = True

Set miControl = miBarra.Controls _

.Add(Type:=msoControlButton, Id:=2)

With miControl

    .DescriptionText = "Inicia el corrector ortográfico"

    .Caption = "Corrector ortográfico"

End With


Método Clear

Elimina todos los elementos de lista del control de cuadro combinado de la barra de comandos especificada (cuadro de lista emergente o cuadro combinado) y borra el cuadro de texto (cuadro de edición o cuadro combinado).

Nota   Este método fallará si se aplica a un control de barra de comandos integrado.

Sintaxis

expresión.Clear

expresión   Requerida. Expresión que devuelve un objeto CommandBarComboBox.


Ejemplo del método Clear

Este ejemplo comprueba el número de elementos del control de cuadro combinado denominado "Nombres" en la barra de comandos "Personalizada". Si hay más de tres elementos en la lista, el ejemplo la borra y agrega y muestra un nuevo primer elemento a la lista como predeterminado para el control de cuadro combinado.

Set miBarra = CommandBars("Barra personalizada")

Set miControl = miBarra.Controls("Nombres")

With miControl

    If .ListCount > 3 Then

        .Clear

        .AddItem Text:="Bendel", Index:=1

        .ListIndex = 1

    End If

End With


Propiedad CommandBar

Devuelve un objeto CommandBar que representa el menú mostrado por el control emergente especificado. Es de sólo lectura.


Ejemplo de la propiedad CommandBar

Este ejemplo establece el valor thirdLevel para el cuarto control de la barra de comandos denominada "Dibujo".

Set thirdLevel = CommandBars("Dibujo") _

    .Controls(1).CommandBar.Controls(4)


Propiedad Controls

Devuelve un objeto CommandBarControls que representa todos los controles de la barra de comandos o del control emergente. Es de sólo lectura.

Para obtener más información acerca de cómo devolver un solo miembro de un conjunto, vea Devolver un objeto de un conjunto.


Ejemplo de la propiedad Controls

Este ejemplo agrega un control de cuadro combinado a la barra de comandos denominada "Personalizada" y agrega dos elementos a la lista del cuadro combinado. El ejemplo también establece el número de elementos de línea, el ancho del cuadro combinado y un valor vacío predeterminado para el cuadro combinado.

Set miControl = CommandBars("Personalizada").Controls _

    .Add(Type:=msoControlComboBox, Before:=1)

With miControl

    .AddItem Text:="Primer elemento", Index:=1

    .AddItem Text:="Segundo elemento", Index:=2

    .DropDownLines = 3

    .DropDownWidth = 75

    .ListHeaderCount = 0

End With


Método CopyFace

Copia en el Portapapeles la imagen del control de botón de la barra de comandos especificada.

Sintaxis

expresión.CopyFace

expresión   Requerida. Expresión que devuelve un objeto CommandBarButton.

Comentarios

Utilice el método PasteFace para pegar el contenido del Portapapeles en una imagen de botón.


Ejemplo del método CopyFace

Este ejemplo busca el botón Open integrado y copia su imagen en el Portapapeles.

Set miControl = CommandBars.FindControl(Type:=msoControlButton, Id:=23)

miControl.CopyFace


Propiedad DescriptionText

Devuelve o establece la descripción del control de barra de comandos especificado. La descripción se muestra en la barra de estado de la aplicación contenedora cuando el usuario sitúa el puntero en un control de barra de comandos. String de Lectura/Escritura.

Comentarios

No todas las aplicaciones muestran una barra de estado. Esta propiedad también se utiliza para el globo de Ayuda en Macintosh.


Ejemplo de la propiedad DescriptionText

Este ejemplo agrega un control de barra de comandos con la imagen de botón del corrector ortográfico a una barra de comandos personalizada. El ejemplo también establece que aparezca el texto "Inicia el corrector ortográfico" siempre que el usuario sitúe el puntero en el botón.

Set miBarra = CommandBars.Add("Personalizada", msoBarTop, , True)

miBarra.Visible = True

Set miControl = miBarra.Controls _

.Add(Type:=msoControlButton, Id:=2)

With miControl

    .DescriptionText = "Inicia el corrector ortográfico"

    .Caption = "Corrector ortográfico"

End With


Propiedad DisplayTooltips

True si se muestran Sugerencias siempre que el usuario sitúe el puntero en los controles de barra de comandos. Boolean de Lectura/Escritura.

Comentarios

Establecer la propiedad DisplayTooltips en una aplicación contenedora afecta inmediatamente a todas las barras de comandos de dicha aplicación y de cualquier otra aplicación de Office 97 que se esté ejecutando en ese momento o que se abra después, hasta que esta propiedad se establezca de nuevo.


Ejemplo de la propiedad DisplayTooltips

Este ejemplo muestra controles grandes y Sugerencias en todas las barras de comandos si la barra de menús principal activa es la barra "Barra de menús personalizada".

Set allBars = CommandBars

If allBars.ActiveMenuBar.Name = "Barra de menús personalizada" Then

    allBars.LargeButtons = True

    allBars.DisplayTooltips = True

End If


Propiedad DropDownLines

Devuelve o establece el número de líneas del control de cuadro combinado de la barra de comandos especificada. El control de cuadro combinado debe ser un control personalizado y debe ser cuadro de lista emergente o un cuadro combinado. Long de Lectura/Escritura.

Nota   Este método fallará si la propiedad se establece para un control de cuadro combinado que sea un control de cuadro de edición o de cuadro combinado integrado.

Comentarios

Si esta propiedad se establece en 0 (cero), el número de líneas de control se basará en el número de elementos de la lista.


Ejemplo de la propiedad DropDownLines

Este ejemplo agrega un control de cuadro combinado a la barra de comandos denominada "Personalizada" y, a continuación, agrega dos elementos a la lista del cuadro combinado. El ejemplo también establece el número de elementos de línea, el ancho del cuadro combinado y un valor vacío predeterminado para el cuadro combinado.

Set miBarra = CommandBars("Personalizada")

Set miControl = miBarra.Controls.Add(Type:=msoControlComboBox, Id:=1)

With miControl

    .AddItem Text:="Primer elemento", Index:=1

    .AddItem "Segundo elemento", 2

    .DropDownLines = 3

    .DropDownWidth = 75

    .ListHeaderCount = 0

End With


Propiedad DropDownWidth

Devuelve o establece el ancho, en píxeles, de la lista del control de cuadro combinado de la barra de comandos especificada. Long de Lectura/Escritura.

Nota   Si esta propiedad se establece para una barra de comandos integrada, se producirá un error.

Comentarios

Si esta propiedad se establece en -1, el ancho de la lista se basará en la longitud del elemento más largo de la lista del cuadro combinado. Si esta propiedad se establece en 0, el ancho de la lista se basará en el ancho del control.


Ejemplo de la propiedad DropDownWidth

Este ejemplo agrega un control de cuadro combinado a la barra de comandos denominada "Personalizada" y, a continuación, agrega dos elementos a la lista del cuadro combinado. El ejemplo también establece el número de elementos de línea, el ancho del cuadro combinado y un valor vacío predeterminado para el cuadro combinado.

Set miBarra = CommandBars("Personalizada")

Set miControl = miBarra.Controls.Add(Type:=msoControlComboBox, Id:=1)

With miControl

    .AddItem "Primer elemento", 1

    .AddItem "Segundo elemento", 2

    .DropDownLines = 3

    .DropDownWidth = 75

    .ListHeaderCount = 0

End With


Propiedad Enabled

True si está habilitada la barra de comandos o control de barra de comandos especificados. Boolean de Lectura/Escritura.

Comentarios

Para barras de comandos, si se establece esta propiedad en True el nombre de la barra aparecerá en la lista de barras de comandos disponibles.

Para controles integrados, si establece la propiedad Enabled en True la aplicación determina su estado; si se establece en False los inhabilita.


Ejemplo de la propiedad Enabled

Este ejemplo ajusta las barras de comandos de acuerdo con el nivel de usuario especificado por usuario. Si usuario es "Nivel 1," se muestra la barra de comandos denominada "Barra personalizada VB". Si usuario es cualquier otro valor, la barra de comandos integrada de Visual Basic se restablece a su estado predeterminado y se inhabilita la barra de comandos denominada "Barra personalizada VB".

Set miBarra = CommandBars("Barra personalizada VB")

If user = "Nivel 1" Then

    miBarra.Visible = True

Else

    CommandBars("Visual Basic").Reset

    miBarra.Enabled = False

End If

Este ejemplo agrega dos botones de barra de comandos a la barra representada por la variable miBarra. El primer control se inhabilita y aparecerá en gris. De manera predeterminada el segundo control está habilitado.

With miBarra

    .Controls.Add Type:=msoControlButton, Id:=3

    .Controls(1).Enabled = False

    .Controls.Add Type:=msoControlButton, Id:=3

End With

miBarra.Visible = True


Propiedad FaceId

Devuelve o establece el número de Id. de la imagen de botón actualmente asignada al control de botón de la barra de comandos especificada. Long de Lectura/Escritura.

Comentarios

La propiedad FaceId indica el aspecto, no la función, de un botón de la barra de comandos. La propiedad Id del objeto CommandBarControl determina la función del botón.

El valor de la propiedad FaceId de un botón de la barra de comandos con una imagen personalizada es 0 (cero).


Ejemplo de la propiedad FaceId

Este ejemplo agrega un botón a una barra de comandos personalizada. Hacer clic en este botón equivale a hacer clic en el comando Abrir del menú Archivo ya que el número de Id. es 23 aunque el botón tiene la misma imagen que el botón Gráfico. Al hacer clic en este botón se abre el cuadro de diálogo Abrir.

Set nuevaBarra = CommandBars.Add(Name:="Personalizada2", _

     Position:=msoBarTop, Temporary:=True)

nuevaBarra.Visible = True

Set con = nuevaBarra.Controls.Add(Type:=msoControlButton, Id:=23)

con.FaceId = 17


Método FindControl

Devuelve un objeto CommandBarControl que cumple los criterios especificados.

Sintaxis

expresión.FindControl(Type, Id, Tag, Visible, Recursive)

expresión   Requerida. Expresión que devuelve un objeto CommandBars.

Type   Variant opcional. Tipo de control que se va a buscar. Puede ser una de las siguientes constantes MsoControlType:

msoControlCustom msoControlButton msoControlEdit msoControlDropdown msoControlComboBox msoControlButtonDropdown msoControlSplitDropdown msoControlGenericDropdown msoControlGraphicCombo msoControlSplitButtonMRUPopup msoControlSplitExpandingGrid	msoControlGraphicDropdown msoControlPopup msoControlGraphicPopup msoControlButtonPopup msoControlGauge msoControlLabel msoControlExpandingGrid msoControlGrid msoControlOCXDropDown msoControlSplitButtonPopup
Id   Variant opcional. Identificador del control que se va a buscar.

Tag   Variant opcional. El valor de rótulo del control que se va a buscar.

Visible   Variant opcional. True para incluir sólo controles de barra de comandos visibles en la búsqueda. El valor predeterminado es False.

Recursive   Boolean opcional. True para incluir en la búsqueda la barra de comandos y todas las subbarras de herramientas emergentes El valor predeterminado es False.

Comentarios

Si el conjunto CommandBars contiene dos o más controles que cumplen los criterios de búsqueda, FindControl devuelve el primer control encontrado. Si no se encuentra ningún control que cumpla los criterios, FindControl devuelve Nothing. Ninguno de los argumentos del método FindControl tiene un valor predeterminado.


Ejemplo del método FindControl

Este ejemplo agrega el botón Guardar al menú Ayuda de la barra de menús. La utilización del método FindControl asegura que se encontre el menú Ayuda aunque el usuario haya personalizado la barra de menús.

Set helpMenu = CommandBars.FindControl _

    (Type:=msoControlPopup, Id:=helpId)

Set helpMenuDrop = helpMenu.Control.CommandBar

helpMenuDrop.Controls.Add Type:=msoControlButton, Id:=saveId


barra de comandos

Objeto programable que se utiliza en Visual Basic para controlar un menú o una barra de herramientas. Los siguientes elementos están representados por objetos CommandBar:

•	Barras de menús, barras de herramientas y menús contextuales

•	Menús de barras de menús y de barras de herramientas

•	Submenús de menús, submenús y menús contextuales


control de la barra de comandos

Control integrado o personalizado de una barra de menús, barra de herramientas, submenú o menú contextual. Los controles personalizados que pueden agregarse a las barras de comandos incluyen botones, cuadros de edición, cuadros de lista desplegable, cuadros combinados y controles emergentes (controles que muestran un menú o submenú).


control de botón

Botón de una barra de herramientas o elemento de un menú o menú contextual que ejecuta un comando cuando se hace clic en él. Los botones de barras de herramientas y los elementos de menú comparten las mismas propiedades y métodos.

En una barra de herramientas, un control de botón puede mostrarse sólo como un icono, como un icono con título o sólo como un título. En un menú, un control de botón puede mostrarse sólo como un icono con título o sólo como un título.


control de cuadro combinado

Cuadro de edición, cuadro de lista emergente o cuadro combinado personalizados de una barra de menús, barra de herramientas, menú, submenú o menú contextual. Un control de cuadro combinado personalizado puede mostrarse con o sin rótulo. Cuando una barra de herramientas se acopla verticalmente, todos los controles de cuadro combinado personalizados que contiene no son visibles.

Muchos controles integrados, como el botón Deshacer, también se consideran controles de cuadro combinado personalizados; sin embargo, la mayoría de las propiedades y métodos para modificar los controles de cuadro combinado no están disponibles para estos controles integrados.


control emergente

Control personalizado o integrado de una barra de menús o barra de herramientas que muestra un menú al hacer clic sobre él, o elemento de menú integrado o personalizado de un menú, submenú o menú contextual que muestra un submenú al situar el puntero en él.

Muchos controles integrados, como el botón Color de fuente, también se consideran controles emergentes; sin embargo, la mayoría de las propiedades y métodos para modificar los controles emergentes no están disponibles para estos controles integrados.


Objeto de conjunto CommandBars

Conjunto de objetos CommandBar que representa las barras de comandos de la aplicación contenedora.

Uso del conjunto CommandBars

Utilice la propiedad CommandBars para devolver el conjunto CommandBars. El siguiente ejemplo muestra, en la ventana Immediate, el nombre y el nombre local de cada barra de menús y de herramientas, y muestra un valor que indica si la barra de menús o de herramientas está visible.

For Each cbar in CommandBars

    Debug.Print cbar.Name, cbar.NameLocal, cbar.Visible

Next

Utilice el método Add para agregar una nueva barra de comandos al conjunto. El siguiente ejemplo crea una barra de herramientas personalizada denominada "Personalizada1" y la muestra como barra de herramientas flotante.

Set cbar1 = CommandBars.Add(Name:="Personalizada1", Position:=msoBarFloating)

cbar1.Visible = True

Utilice CommandBars(index), donde index es el nombre o número de índice de una barra de comandos, para devolver un solo objeto CommandBar. El siguiente ejemplo acopla la barra de herramientas denominada "Personalizada1" en la parte inferior de la ventana de aplicación.

CommandBars("Personalizada1").Position = msoBarBottom

Nota   Puede utilizar el nombre o el número de índice para especificar una barra de menús o de herramientas de la lista de barras de menús o de herramientas disponibles en la aplicación contenedora. Sin embargo, debe utilizar el nombre para especificar un menú, menú contextual o submenú, representados todos por objetos CommandBar.

Si dos o más menús o submenús personalizados tienen el mismo nombre, CommandBars(index) devuelve el primero. Para asegurar que devuelve el menú o submenú correcto, busque el control emergente que muestra dicho menú. A continuación aplique la propiedad CommandBar al control emergente para devolver la barra de comandos que representa dicho menú.


Objeto CommandBar

Representa una barra de comandos de la aplicación contenedora. El objeto CommandBar es un miembro del conjunto CommandBars.

Uso del objeto CommandBar

Utilice CommandBars(index), donde index es el nombre o número de índice de una barra de comandos, para devolver un solo objeto CommandBar. El siguiente ejemplo recorre el conjunto de barras de comandos para buscar la barra de comandos denominada "Formularios". Si se encuentra esta barra de comandos, el ejemplo la muestra y protege el estado de acoplamiento. En este ejemplo, la variable cb representa un objeto CommandBar.

foundFlag = False

For Each cb In CommandBars

    If cb.Name = "Formularios" Then

        cb.Protection = msoBarNoChangeDock

        cb.Visible = True

        foundFlag = True

    End If

Next cb

If Not foundFlag Then

    MsgBox "El conjunto no contiene una barra de comandos de Formularios."

End If

Puede utilizar un nombre o número de índice para especificar una barra de menús o de herramientas de la lista de barras de menús o de herramientas disponibles en la aplicación contenedora. Sin embargo, debe utilizar un nombre para especificar un menú, menú contextual o submenú, representados todos por objetos CommandBar. Este ejemplo agrega un elemento nuevo al menú Herramientas. Al hacer clic en él, el nuevo elemento de menú ejecuta el procedimiento "informeTrim".

Set nuevoElemento = CommandBars("Tools").Controls.Add(Type:=msoControlButton)

With nuevoElemento

    .BeginGroup = True

    .Caption = "Crear informe"

    .FaceID = 0

    .OnAction = "informeTrim"

End With

Si dos o más menús o submenús personalizados tienen el mismo nombre, CommandBars(index) devuelve el primero. Para asegurar que devuelve el menú o submenú correcto, busque el control emergente que muestra dicho menú. A continuación aplique la propiedad CommandBar al control emergente para devolver la barra de comandos que representa dicho menú.

Suponiendo que el tercer control de la barra de herramientas "Custom Tools" sea un control emergente, este ejemplo agrega el comando Guardar al botón de dicho menú.

Set viewMenu = CommandBars("Custom Tools").Controls(3).CommandBar

viewMenu.Controls.Add ID:=3    'El número de Id. del comando Guardar es 3


Objeto de conjunto CommandBarControls

Conjunto de objetos CommandBarControl que representan los controles de barras de comandos de una barra de comandos.

Uso del conjunto CommandBarControls

Utilice la propiedad Controls para devolver el conjunto CommandBarControls. El siguiente ejemplo cambia el título de cada control de la barra de herramientas denominada "Estándar" por el valor actual de la propiedad Id de dicho control.

For Each ctl In CommandBars("Estándar").Controls

ctl.Caption = CStr(ctl.Id)

Next ctl

Utilice el método Add para agregar un nuevo control de barra de comandos al conjunto CommandBarControls. Este ejemplo agrega un nuevo botón vacía a la barra de comandos denominada "Personalizada".

Set botónVacío = CommandBars("Personalizada").Controls.Add

Utilice Controls(index), donde index es el título o número de índice de un control, para devolver un objeto CommandBarControl, CommandBarButton, CommandBarComboBox o CommandBarPopup. El siguiente ejemplo copia el primer control de la barra de comandos "Estándar" a la barra de comandos "Personalizada".

Set mibarraPersonalizada = CommandBars("Personalizada")

Set miControl = CommandBars("Estándar").Controls(1)

miControl.Copy Bar:=mibarraPersonalizada, Before:=1


Objeto CommandBarControl

Representa un control de barra de comandos. El objeto CommandBarControl es miembro del conjunto CommandBarControls. Las propiedades y métodos del objeto CommandBarControl están compartidas por los objetos CommandBarButton, CommandBarComboBox y CommandBarPopup.

Nota   Al escribir el código de Visual Basic para trabajar con controles de barra de comandos personalizadas, se utilizan los objetos CommandBarButton, CommandBarComboBox y CommandBarPopup. Al escribir el código para trabajar con controles integrados de la aplicación contenedora que no puedan representarse con ninguno de esos tres objetos, se utiliza el objeto CommandBarControl.

Uso del objeto CommandBarControl

Utilice Controls(index), donde index es el número de índice de un control, para devolver un objeto CommandBarControl. (La propiedad Type del control debe ser msoControlLabel, msoControlExpandingGrid, msoControlSplitExpandingGrid, msoControlGrid o msoControlGauge.)

Nota   Las variables declaradas como CommandBarControl pueden tener el valor CommandBarButton, CommandBarComboBox y CommandBarPopup.

También puede utilizar el método FindControl para devolver un objeto CommandBarControl. El siguiente ejemplo busca un control del tipo msoControlGauge; si encuentra uno, muestra el número de índice del control y el nombre de la barra de comandos que lo contiene. En este ejemplo, la variable lbl representa un objeto CommandBarControl.

Set lbl = CommandBars.FindControl(Type:= msoControlGauge)

If lbl Is Nothing Then

    MsgBox "No se encontró un control del tipo msoControlGauge."

Else

    MsgBox "El control " & lbl.Index & " de la barra de comandos " _

        & lbl.Parent.Name & " es del tipo msoControlGauge"

End If


Objeto CommandBarButton

Representa un control de botón de una barra de comandos.

Uso del objeto CommandBarButton

Utilice Controls(index), donde index es el número de índice de un control, para devolver un objeto CommandBarButton. La propiedad Type del control debe ser msoControlButton.

Suponiendo que el segundo control de la barra de herramientas "Personalizada" sea un botón, este ejemplo cambia el estilo de dicho botón.

Set c = CommandBars("Personalizada").Controls(2)

With c

If .Type = msoControlButton Then

    If .Style = msoButtonIcon Then

        .Style = msoButtonIconAndCaption

    Else

        .Style = msoButtonIcon

    End If

End If

End With

También puede utilizar el método FindControl para devolver un objeto CommandBarButton.


Objeto CommandBarComboBox

Representa un control de cuadro combinado de una barra de comandos.

Uso del objeto CommandBarComboBox

Utilice Controls(index), donde index es el número de índice de un control, para devolver un objeto CommandBarComboBox. La propiedad Type del control debe ser msoControlEdit, msoControlDropdown, msoControlComboBox, msoControlButtonDropdown, msoControlSplitDropdown, msoControlOCXDropdown, msoControlGraphicCombo o msoControlGraphicDropdown.

El siguiente ejemplo agrega dos elementos al segundo control de la barra de comandos denominada "Personalizada" y, a continuación, ajusta el tamaño del control.

Set combo = CommandBars("Personalizada").Controls(2)

With combo

    .AddItem "Primer elemento", 1

    .AddItem "Segundo elemento", 2

    .DropDownLines = 3

    .DropDownWidth = 75

    .ListIndex = 0

End With

También puede utilizar el método FindControl para devolver un objeto CommandBarComboBox. El siguiente ejemplo busca todas las barras de comandos de un objeto CommandBarComboBox visible cuyo rótulo sea "asignaciones de hojas".

Set miControl = CommandBars.FindControl _

(Type:=msoControlComboBox, Tag:="asignaciones de hojas", Visible:=True)


Objeto CommandBarPopup

Representa un control emergente de una barra de comandos.

Uso de  un objeto CommandBarPopup

Utilice Controls(index), donde index es el número de índice de un control, para devolver un objeto CommandBarPopup. La propiedad Type del control debe ser msoControlPopup, msoControlGraphicPopup, msoControlButtonPopup, msoControlSplitButtonPopup o msoControlSplitButtonMRUPopup.

También puede utilizar el método FindControl para devolver un objeto CommandBarPopup. El siguiente ejemplo busca en todas las barras de comandos un objeto CommandBarPopup visible cuyo rótulo sea "Gráficos".

Set miControl = Application.CommandBars.FindControl _

(Type:=msoControlPopup, Tag:="Gráficos")

Comentarios

Cada control emergente contiene un objeto CommandBar. Para devolver la barra de comandos de un control emergente, aplique la propiedad CommandBar al objeto CommandBarPopup.


Propiedad FileType

Objeto FileSearch: Devuelve o establece el tipo de archivo que buscar durante una búsqueda de archivos. Puede ser una de las siguientes constantes MsoFileType: msoFileTypeAllFiles, msoFileTypeBinders, msoFileTypeDatabases, msoFileTypeExcelWorkbooks, msoFileTypeOfficeFiles, msoFileTypePowerPointPresentations, msoFileTypeTemplates o msoFileTypeWordDocuments. El valor predeterminado es msoFileTypeOfficeFiles. Variant de Lectura/Escritura.

Objeto FileFind: Devuelve o establece el tipo de archivo que se va a buscar. Puede establecerse en el número devuelto por la función MacId. Sólo aplicable en equipos Macintosh. Long de Lectura/Escritura.

Comentarios

Utilice los argumentos de la siguiente tabla con la función MacID para devolver el tipo de archivo de Macintosh apropiado.

Tipo de archivo	Argumento
Documento de Word	MSWD
Libro de Microsoft Excel	XCEL
Presentación de PowerPoint	PPT3 (se utiliza con todas las versiones de PowerPoint)
Archivo de texto	TTXT


Ejemplo de la propiedad FileType

Este ejemplo busca todos los archivos de Cuaderno ubicados en la carpeta Mis documentos. El ejemplo muestra en un cuadro de mensaje el nombre y ubicación de cada archivo encontrado.

Set fs = Application.FileSearch

With fs

    .LookIn = "C:\Mis documentos"

    .FileType = msoFileTypeBinders

    If .Execute > 0 Then

        MsgBox "Se encontraron " & .FoundFiles.Count & _

            " archivo(s) de Cuaderno."

        For i = 1 To .FoundFiles.Count

            MsgBox .FoundFiles(i)

        Next i

    Else

        MsgBox "No se encontró ningún archivo de Cuaderno."

    End If

End With


Propiedad FoundFiles

Devuelve un objeto FoundFiles que contiene los nombres de todos los archivos encontrados en la operación de búsqueda. Es de sólo lectura.


Ejemplo de la propiedad FoundFiles

Este ejemplo recorre la lista de archivos encontrados y muestra la ruta de acceso de cada archivo.

With Application.FileSearch

For i = 1 To .FoundFiles.Count

    MsgBox .FoundFiles(i)

Next I

End With


Propiedad LastModified

Devuelve o establece una constante que representa el tiempo transcurrido desde la última vez que se modificó y guardó el archivo. Puede ser una de las siguientes constantes msoLastModified: msoLastModifiedAnyTime, msoLastModifiedLastMonth, msoLastModifiedLastWeek, msoLastModifiedThisMonth, msoLastModifiedThisWeek, msoLastModifiedToday o msoLastModifiedYesterday. El valor predeterminado es msoLastModifiedAnyTime. Variant de Lectura/Escritura.


Ejemplo de la propiedad LastModified

Este ejemplo establece las opciones para la búsqueda de un archivo. Los archivos que devolverá esta búsqueda han sido previamente modificados y están ubicados en la carpeta C:\Mis documentos o en una subcarpeta de ésta.

Set fs = Application.FileSearch

With fs

    .LookIn = "C:\Mis documentos"

    .SearchSubFolders = True

    .LastModified = msoLastModifiedYesterday

End With


Propiedad LookIn

Devuelve o establece la carpeta en que se buscará durante la búsqueda de archivos especificada. String de Lectura/Escritura.


Ejemplo de la propiedad LookIn

Este ejemplo busca en las carpetas de Mis documentos todos los archivos cuyos nombres comiencen con "Cmd" y muestra el nombre y ubicación de cada archivo encontrado.

Set fs = Application.FileSearch

With fs

    .LookIn = "C:\Mis documentos"

    .FileName = "cmd.*"

    If .Execute > 0 Then

        MsgBox "Se encontraron " & .FoundFiles.Count & _

        " archivo(s)."

        For i = 1 To .FoundFiles.Count

            MsgBox .FoundFiles(i)

        Next i

    Else

        MsgBox "No se encontró ningún archivo."

    End If

End With


Propiedad MatchAllWordForms

True si el archivo de búsqueda especificado se amplía para que incluya todas las formas de la palabra especificada que aparezcan en el texto o en las propiedades del archivo. Boolean de Lectura/Escritura.

Comentarios

Esta propiedad sólo está disponible si se ha instalado y registrado el archivo Mswds_en.lex. Observe que este archivo no se instala con la configuración típica.


Ejemplo de la propiedad MatchAllWordForms

Este ejemplo devuelve todos los archivos que contienen la palabra "saltar", "saltando", "saltado" o "salto" en el texto o en las propiedades del archivo. La propiedad TextOrProperty establece la palabra de comparación y limita la búsqueda al texto o bien a las propiedades del archivo.

With Application.FileSearch

    .NewSearch

    .LookIn = "C:\Mis documentos"

    .SearchSubFolders = True

    .TextOrProperty = "saltar"

    .MatchAllWordForms = True

    .FileType = msoFileTypeAllFiles

End With


Propiedad MatchTextExactly

True si la búsqueda de archivos especificada sólo busca archivos cuyo texto o propiedades contengan la palabra o frase exacta especificada. Boolean de Lectura/Escritura.


Ejemplo de la propiedad MatchTextExactly

Este ejemplo busca en la carpeta C:\Mis documentos y devuelve todos los archivos que contienen la palabra "Saltar" en el texto o en las propiedades del archivo.

With Application.FileSearch

    .NewSearch

    .LookIn = "C:\Mis documentos"

    .TextOrProperty = "Saltar"

    .MatchTextExactly = True

    .FileType = msoFileTypeAllFiles

End With


Método NewSearch

Restablece los valores predeterminados de todos los criterios de búsqueda.

Sintaxis

expresión.NewSearch

expresión   Requerida. Expresión que devuelve un objeto FileSearch.

Comentarios

Los valores de los criterios de búsqueda se mantienen durante una sesión de la aplicación. Utilice este método cada vez que cambie los criterios de búsqueda. Este método no restablece el valor de la propiedad LookIn.


Ejemplo del método NewSearch

Este ejemplo utiliza el método NewSearch para restablecer los criterios de búsqueda predeterminados antes de comenzar una nueva búsqueda.

With Application.FileSearch

    .NewSearch

    .LookIn = "C:\Mis documentos"

    .SearchSubFolders = True

    .FileName = "saltar"

    .MatchAllWordForms = True

    .FileType = msoFileTypeAllFiles

    If .Execute() > 0 Then

        MsgBox "Se encontraron " & .FoundFiles.Count & _

        " archivo(s)."

        For i = 1 To .FoundFiles.Count

            MsgBox .FoundFiles(i)

        Next i

    Else

        MsgBox "No se encontró ningún archivo."

    End If

End With


Propiedad PropertyTests

Devuelve un conjunto PropertyTests que representa todos los criterios de búsqueda de una búsqueda de archivos. Es de sólo lectura.

Para obtener más información acerca de cómo devolver un solo miembro de un conjunto, vea Devolver un obejto de un conjunto.


Ejemplo de la propiedad PropertyTests

Este ejemplo muestra todos los criterios de búsqueda de la primera prueba de propiedades del conjunto.

With Application.FileSearch.PropertyTests(1)

miCadena = "El criterio de búsqueda es: " _

    & " El nombre es: " & .Name & ". La condición es: " _

    & .Condition

If .Value <> "" Then

    miCadena = miCadena & ". El valor es: " & .Value

    If .SecondValue <> "" Then

        miCadena = miCadena _

            & ". El segundo valor es: " _

            & .SecondValue & ", y el conector es" _

            & .Connector

    End If

End If

MsgBox miCadena

End With


Propiedad SearchSubFolders

True si la búsqueda especificada incluye las subcarpetas de la carpeta especificada por la propiedad LookIn. Boolean de Lectura/Escritura.


Ejemplo de la propiedad SearchSubFolders

Este ejemplo busca en la carpeta Mis documentos y en todas las subcarpetas todos los archivos cuyos nombres comiencen con "Cmd". El ejemplo también muestra el nombre y ubicación de cada archivo encontrado.

Set fs = Application.FileSearch

With fs

    .LookIn = "C:\Mis documentos"

    .SearchSubFolders = True

    .FileName = "cmd*"

    If .Execute() > 0 Then

        MsgBox "Se encontraron " & .FoundFiles.Count & _

     " archivo(s)."

        For i = 1 To .FoundFiles.Count

            MsgBox .FoundFiles(i)

        Next i

    Else

        MsgBox "No se encontró ningún archivo."

    End If

End With


Propiedad TextOrProperty

Devuelve o establece la palabra o frase que se va a buscar en el texto o en las propiedades del archivo, durante la búsqueda de archivos especificada. La palabra o frase puede incluir los caracteres comodín * (asterisco) o ? (interrogación). String de Lectura/Escritura.

Comentarios

Utilice el carácter comodín interrogación para buscar cualquier carácter individual. Por ejemplo, escriba gr?s para buscar todos los archivos que contengan al menos una aparición de "gris" o "gres".

Utilice el carácter comodín asterisco para buscar cualquier número de caracteres. Por ejemplo, escriba San* para buscar todos los archivos que contengan al menos una palabra que comience por "San".


Ejemplo de la propiedad TextOrProperty

Este ejemplo busca en la carpeta C:\Mis documentos y todas sus subcarpetas y devuelve todos los archivos cuyo texto o propiedades de archivo contengan cualquier palabra que comience por "San". La propiedad TextOrProperty establece la palabra que se va a buscar y limita la búsqueda al texto o a las propiedades del archivo.

With Application.FileSearch

    .NewSearch

    .LookIn = "C:\Mis documentos"

    .SearchSubFolders = True

    .TextOrProperty = "San*"

    .FileType = msoFileTypeAllFiles

End With


Propiedad Connector

Devuelve el conector entre dos valores de prueba de propiedades similares. Puede ser una de las siguientes constantes MsoConnector: msoConnectorAnd o msoConnectorOr. El valor predeterminado es msoConnectorAnd. Variant de sólo lectura.

Comentarios

Un conector especifica si dos criterios de búsqueda similares se combinarán para formar una prueba de propiedad, como con msoConnectorAnd o se tratarán independientemente, como con msoConnectorOr.


Ejemplo de la propiedad Connector

Este ejemplo muestra un mensaje que describe cómo se evaluarán los criterios de búsqueda de una búsqueda de archivos.

With Application.FileSearch.PropertyTests(1)

If .Connector = msoConnectorAnd Then

   MsgBox "Se combinarán todos los criterios de búsqueda."

Else

    MsgBox "Los criterios se tratarán independientemente"

End If

End With


Propiedad Condition

Devuelve la condición de los criterios de búsqueda especificados. Variant de sólo lectura.

Puede ser una de las siguientes constantes MsoCondition:

msoConditionAnyNumberBetween msoConditionAnytime msoConditionAnytimeBetween msoConditionAtLeast msoConditionAtMost msoConditionBeginsWith msoConditionDoesNotEqual msoConditionEndsWith msoConditionEquals msoConditionFileTypeAllFiles msoConditionFileTypeBinders msoConditionFileTypeDatabases msoConditionFileTypeExcelWorkbooks msoConditionFileTypeOfficeFiles msoConditionFileTypePowerPointPresentations msoConditionFileTypeTemplates msoConditionFileTypeWordDocuments msoConditionIncludesNearEachOther msoConditionIncludesPhrase msoConditionInTheLast	msoConditionInTheNext msoConditionIsExactly msoConditionIsNo msoConditionIsNot msoConditionIsYes msoConditionLastMonth msoConditionLastWeek msoConditionLessThan msoConditionMoreThan msoConditionNextMonth msoConditionNextWeek msoConditionOn msoConditionOnorAfter msoConditionOnorBefore msoConditionThisMonth msoConditionThisWeek msoConditionToday msoConditionTomorrow msoConditionYesterday


Ejemplo de la propiedad Condition

Este ejemplo devuelve el valor de conexión de los criterios de búsqueda de la primera prueba de propiedades.

With Application.FileSearch.PropertyTests(1)

    MsgBox "La condición establecida es: " & .Condition

End With


Propiedad SecondValue

Devuelve un segundo valor opcional de prueba de propiedades, como en un intervalo, de la búsqueda de archivos especificada. Variant de sólo lectura.

Comentarios

Esta propiedad se utiliza en un intervalo específico y sólo puede utilizarse con las siguientes constantes MsoCondition: msoConditionAnyTimeBetween o msoConditionAnyNumberBetween.


Ejemplo de la propiedad SecondValue

Este ejemplo muestra el segundo valor de los criterios de búsqueda, si existe, en un cuadro de diálogo. Si no existe el segundo valor, el ejemplo muestra otro mensaje.

With Application.FileSearch.PropertyTests(1)

If .SecondValue = "" Then

   MsgBox "No se especificó un segundo valor."

Else

    MsgBox "El segundo valor establecido es: " _

    & .SecondValue

End If

End With


Método Remove

Elimina un objeto PropertyTest del conjunto PropertyTests.

Sintaxis

expresión.Remove(lndex)

expresión   Requerida. Expresión que devuelve un objeto PropertyTests.

Index   Long requerido. Número de índice de la prueba de propiedad que se va a eliminar.


Ejemplo del método Remove

Este ejemplo elimina el primer criterio de búsqueda del conjunto.

Application.FileSearch.PropertyTests.Remove(1)


Objeto FileSearch

Representa la función del cuadro de diálogo Abrir (menú Archivo).

Uso del objeto FileSearch

Utilice la propiedad FileSearch para devolver el objeto FileSearch. El siguiente ejemplo busca los archivos especificados y muestra el número de archivos encontrados y el título de cada archivo.

With Application.FileSearch

    If .Execute() > 0 Then

        MsgBox "Se encontraron " & .FoundFiles.Count & _

            " archivo(s)."

        For i = 1 To .FoundFiles.Count

            MsgBox .FoundFiles(i)

        Next i

    Else

        MsgBox "No se encontrón ningún archivo."

    End If

End With

Utilice el método NewSearch para restablecer el valor predeterminado de la búsqueda de criterios. Todos los valores de las propiedades se mantienen después de ejecutar cada búsqueda y, utilizando el método NewSearch es posible establecer de forma selectiva las propiedades de la siguiente búsqueda de archivos sin restablecer de forma manual los valores anteriores. El siguiente ejemplo restablece los criterios de búsqueda predeterminados antes de comenzar una nueva búsqueda.

With Application.FileSearch

    .NewSearch

    .LookIn = "C:\Mis documentos"

    .SearchSubFolders = True

    .FileName = "Saltar"

    .MatchTextExactly = True

    .FileType = msoFileTypeAllFiles

End With


Objeto PropertyTests

Representa un criterio individual de búsqueda de archivos. Los criterios de búsqueda se muestran en el cuadro de diálogo Búsqueda avanzada (menú Archivo, comando Abrir, botón Avanzada). El objeto PropertyTest es un miembro del conjunto PropertyTests.

Uso del objeto PropertyTest

Utilice PropertyTests(index), donde index es el número de índice, para devolver un objeto PropertyTest. El siguiente ejemplo muestra todos los criterios de búsqueda de la primera prueba de propiedades del conjunto PropertyTests.

With Application.FileSearch.PropertyTests(1)

miCadena = "El criterio de búsqueda es: " _

    & " El nombre es: " & .Name & ". La condición es: " _

    & .Condition

If .Value <> "" Then

    miCadena = miCadena & ". El valor es: " & .Value

    If .SecondValue <> "" Then

        miCadena = miCadena _

            & ". El segundo valor es: " _

            & .SecondValue & ", y el conector es" _

            & .Connector

    End If

End If

MsgBox miCadena

End With


Objeto de conjunto PropertyTests

Conjunto de objetos PropertyTest que representa todos los criterios de búsqueda de una búsqueda de archivos. Los criterios de búsqueda se muestran en el cuadro de diálogo Búsqueda avanzada (menú Archivo, comando Abrir, botón Avanzada).

Uso del conjunto PropertyTests

Utilice la propiedad PropertyTests para devolver el conjunto PropertyTests. El siguiente ejemplo muestra el número de criterios de búsqueda avanzada que se utilizarán en una búsqueda de archivos.

FileSearch.PropertyTests.Count

Utilice el método Add para agregar un nuevo objeto PropertyTest al conjunto PropertyTests. El siguiente ejemplo agrega dos pruebas de propiedad a los criterios de búsqueda. El primer criterio especifica que los archivos encontrados deben ser documentos de Word y el segundo especifica que deben haber sido modificados entre el 1 de enero y el 30 de junio de 1996.

Set fs = Application.FileSearch

fs.NewSearch

With fs.PropertyTests

    .Add Name:="Tipos de archivo", _

    Condition:=msoConditionFileTypeWordDocuments, _

 Connector:=msoConnectorOr

    .Add Name:="Última modificación", _

    Condition:=msoConditionAnytimeBetween, _

    Value:="1/1/96", SecondValue:="6/30/96", _

    Connector:=msoConnectorAnd

End With

Utilice PropertyTests(index), donde index es el número de índice, para devolver un objeto PropertyTest. El siguiente ejemplo muestra todos los criterios de búsqueda de la primera prueba de propiedades del conjunto PropertyTests.

With Application.FileSearch.PropertyTests(1)

miCadena = "El criterio de búsqueda es: " _

    & " El nombre es: " & .Name & ". La condición es: " _

    & .Condition

If .Value <> "" Then

    miCadena = miCadena & ". El valor es: " & .Value

    If .SecondValue <> "" Then

        miCadena = miCadena _

            & ". El segundo valor es: " _

            & .SecondValue & ", y el conector es" _

            & .Connector

    End If

End If

MsgBox miCadena

End With


Objeto FoundFiles

Representa la lista de archivos devueltos en una búsqueda de archivos.

Uso del objeto FoundFiles

Utilice la propiedad FoundFiles para devolver el objeto FoundFiles. Este ejemplo recorre la lista de archivos encontrados y muestra la ruta de acceso y el nombre de cada archivo.

With Application.FileSearch

    For i = 1 To .FoundFiles.Count

        MsgBox .FoundFiles(i)

    Next I

End With

Utilice FoundFiles(index), donde index es el número de índice, para devolver la ruta de acceso y el nombre del archivo encontrado. Este ejemplo recorre el conjunto de archivos encontrados y muestra la ruta de acceso y el nombre de cada archivo.

With Application.FileSearch

For i = 1 To .FoundFiles.Count

    MsgBox .FoundFiles(i)

Next I

End With

Utilice el método Execute para comenzar la búsqueda de archivos y actualizar el objeto FoundFiles. El siguiente ejemplo busca en la carpeta Mis documentos todos los archivos que comiencen por "Cmd" y muestra la ubicación y nombre de cada archivo encontrado. El ejemplo también ordena los archivos devueltos por nombre de archivo en orden alfabético ascendente.

Set fs = Application.FileSearch

With fs

    .LookIn = "C:\Mis documentos"

    .FileName = "cmd*"

    If .Execute(SortBy:=msoSortbyFileName, _

    SortOrder:=msoSortOrderAscending) > 0 Then

        MsgBox "Se encontraron " & .FoundFiles.Count & _

            " archivo(s)."

        For i = 1 To .FoundFiles.Count

            MsgBox .FoundFiles(i)

        Next i

    Else

        MsgBox "No se encontró ningún archivo."

    End If

End With


Objeto de conjunto DocumentProperties

Conjunto de objetos DocumentProperty. Cada objeto DocumentProperty representa una propiedad integrada o personalizada de un documento contenedor.

Uso del conjunto DocumentProperties

Utilice la propiedad BuiltinDocumentProperties para devolver el conjunto DocumentProperties que contiene todas las propiedades de documento integradas de un documento contenedor. Utilice la propiedad CustomDocumentProperties para devolver el conjunto DocumentProperties que contiene todas las propiedades personalizadas del documento.

Utilice el método Add para crear una nueva propiedad personalizada y agregarla al conjunto DocumentProperties. No es posible utilizar el método Add para crear una propiedad de documento integrada.

Utilice BuiltinDocumentProperties(index), donde index es el número de índice de la propiedad de documento integrada, para devolver un único objeto DocumentProperty que representa una propiedad de documento integrada específica. Utilice CustomDocumentProperties(index), donde index es el número de la propiedad de documento personalizada, para devolver un objeto DocumentProperty que representa una propiedad de documento personalizada específica.


Objeto DocumentProperty

Representa una propiedad de documento integrada o personalizada de un documento contenedor. El objeto DocumentProperty es un miembro del conjunto DocumentProperties.

Uso del objeto DocumentProperty

Utilice BuiltinDocumentProperties(index), donde index es el nombre o número de índice la propiedad de documento integrada, para devolver un único objeto DocumentProperty que representa una propiedad de documento integrada específica. Utilice CustomDocumentProperties(index), donde index es el nombre o número de índice de la propiedad de documento personalizada, para devolver un objeto DocumentProperty que representa una propiedad de documento personalizada específica.

En la siguiente lista se muestran los nombres de todas las propiedades de documento integradas disponibles.

Título Asunto Autor Palabras clave Comentarios Plantilla Último autor Número de revisión Nombre de la aplicación Última fecha de impresión Fecha de creación Hora en que se guardó por última vez Tiempo total de edición Número de páginas	Número de palabras Número de caracteres Seguridad Categoría Formato Administrador Organización Número de bytes Número de líneas Número de párrafos Número de diapositivas Número de notas Número de diapositivas ocultas Número de secuencias multimedia
Las aplicaciones contenedoras no definen necesariamente un valor para cada propiedad de documento integrada. Si una aplicación determinada no define un valor para una de las propiedades de documento integradas, al devolver la propiedad Value de ese documento se produce un error.


Propiedad LinkToContent

True si el valor de la propiedad de documento personalizada especificada está vinculado al contenido del documento contenedor. False si el valor es estático. Boolean de Lectura/Escritura.

Comentarios

Esta propiedad se aplica sólo a propiedades de documento personalizadas. Para propiedades de documento integradas, esta propiedad es siempre False.

Utilice la propiedad LinkSource para establecer el origen de la propiedad vinculada especificada. Al establecer la propiedad LinkSource, la propiedad LinkToContent se establece en True.


Ejemplo de la propiedad LinkToContent

Este ejemplo muestra el estado vinculado de la propiedad de documento actual. Para que el ejemplo funcione, dp debe ser un objeto DocumentProperty válido.

Sub DisplayLinkStatus(dp As DocumentProperty)

    Dim stat As String, tf As String

    If dp.LinkToContent Then

        tf = ""

    Else

        tf = "no "

    End If

    stat = "Esta propiedad " & tf & "está vinculada"

    If dp.LinkToContent Then

        stat = stat + Chr(13) & "El origen del vínculo es " & dp.LinkSource

    End If

    MsgBox stat

End Sub


Propiedad LinkSource

Devuelve o establece el origen de la propiedad de documento personalizada vinculada especificada. String de Lectura/Escritura.

Comentarios

Esta propiedad se aplica sólo a propiedades de documento personalizadas; no puede utilizarse en propiedades de documento integradas.

El origen del vínculo especificado está definido por la aplicación contenedora.

Al establecer la propiedad LinkSource, la propiedad LinkToContent se establece en True.


Ejemplo de la propiedad LinkSource

Este ejemplo muestra el estado vinculado de una propiedad de documento personalizada. Para que el ejemplo funcione, dp debe ser un objeto DocumentProperty válido.

Sub DisplayLinkStatus(dp As DocumentProperty)

    Dim stat As String, tf As String

    If dp.LinkToContent Then

        tf = ""

    Else

        tf = "no "

    End If

    stat = "Esta propiedad " & tf & "está vinculada"

    If dp.LinkToContent Then

        stat = stat + Chr(13) & "El origen del vínculo es " & dp.LinkSource

    End If

    MsgBox stat

End Sub


Propiedad Value

Objeto DocumentProperty: Devuelve o establece el valor de la propiedad de documento especificada. Variant de Lectura/Escritura.

Objeto PropertyTest: Devuelve el valor de una prueba de propiedad para una búsqueda de archivos. Variant de sólo lectura.

Comentarios

Si la aplicación contenedora no define un valor para una de las propiedades de documento integradas, al leer la propiedad Value de ese documento se produce un error.


Ejemplo de la propiedad Value

Este ejemplo muestra el nombre, tipo y valor de una propiedad de documento. Para que el ejemplo funcione, dp debe ser un objeto DocumentProperty válido.

Sub DisplayPropertyInfo(dp As DocumentProperty)

    MsgBox "valor = " & dp.Value & Chr(13) & _

        "tipo = " & dp.Type & Chr(13) & _

        "nombre = " & dp.Name

End Sub

Este ejemplo muestra el valor de los criterios de búsqueda, si existe, en un cuadro de diálogo. Si no existe el segundo valor, el ejemplo muestra otro mensaje.

With Application.FileSearch.PropertyTests(1)

If .Value = "" Then

   MsgBox "No se especificó ningún valor."

Else

    MsgBox "El valor especificado es: " _

    & .Value

End If

End With


Introducción al Ayudante de Office

Microsoft Office 97 introduce un nuevo tipo de componente de Ayuda: el Ayudante de Office. El Ayudante de Office, el globo del Ayudante de Office y todos los elementos del globo se controlan mediante los objetos, propiedades y métodos del objeto Assistant.

La siguiente ilustración muestra el Ayudante de Office, el globo del Ayudante de Office y todos los objetos programables del globo.

Para obtener información acerca de cómo realizar cambios en tiempo de diseño y en tiempo de ejecución al Ayudante de Office, consulte los siguientes temas.

Utilización del Ayudante de Office

Creación y modificación de globos

Modificaciones de los globos en tiempo de ejecución


Utilización del Ayudante de Office

Puede utilizar el Ayudante de Office en su aplicación para que proporcione ayuda en áreas específicas y los controles del globo del Ayudante de Office para ejecutar sus propios procedimientos.

Todo lo asociado con el Ayudante de Office está representado en Visual Basic por el objeto Assistant y los objetos que contiene. Muchos de los cambios que se pueden realizar en el Ayudante en tiempo de ejecución son los mismos cambios que se pueden realizar en tiempo de diseño haciendo doble clic con el botón secundario en el Ayudante. Cada una de las opciones mostradas en la ficha Opciones del cuadro de diálogo Ayudante de Office corresponde a una propiedad del Ayudante que puede establecerse en tiempo de ejecución. Las propiedades mostradas en la siguiente tabla se utilizan normalmente para modificar el Ayudante de Office.

Propiedad	Descripción
Animation	Anima el Ayudante de Office. Algunas animaciones son continuas; otras sólo ocurren una vez.
FileName	Especifica el nombre de archivo completo del Ayudante de Office, con la extensión .act. Por ejemplo, el nombre de archivo del Ayudante de Office Clipo es Clipo.act.
Name	Devuelve el nombre del Ayudante de Office. Si desea realizar un seguimiento de los Ayudante de Office que el usuario selecciona, utilice esta propiedad.
Visible	Especifica si el Ayudante está visible u oculto.
El siguiente ejemplo selecciona el Ayudante de Office William, lo muestra y establece una animación. El ejemplo también establece varias propiedades de Ayuda personalizadas disponibles en la ficha Opciones del cuadro de diálogo Ayudante de Office en tiempo de diseño.

With Assistant

    .FileName = "Will.act"

    .Animation = msoAnimationBeginSpeaking

    .AssistWithHelp = True

    .GuessHelp = True

    .FeatureTips = False

    .Visible = True

End With

Existen nueve Ayudantes de Office diferentes que pueden instalarse con Microsoft Office. Sólo puede haber un Ayudante activo a la vez. Puede permitir al usuario que seleccione el Ayudante en tiempo de diseño o puede seleccionar un Ayudante para el usuario en tiempo de ejecución. No puede modificar los archivos del Ayudante de Office instalados y no puede sustituir los archivos proporcionados por su propio archivo de Ayudante.


Creación y modificación de globos

Puede utilizar el globo del Ayudante de Office para proporcionar información al usuario. La información contenida en el globo puede ser un simple mensaje, una solicitud de más información o una lista de opciones. Los cambios del globo del Ayudante de Office deben realizarse en tiempo de ejecución.

La siguiente tabla contiene las propiedades y métodos más comunes para cambiar el aspecto o función de un globo vacío recién creado, o de un globo existente. Los cambios realizados a cualquier globo aparecerán la siguiente vez que se utilice el método Show.

Propiedad o método	Descripción
Heading	Especifica el texto en negrita que aparece en la parte superior del globo del Ayudante de Office.
Text	Especifica el texto que aparece en el globo del Ayudante de Office. Este texto aparece después del encabezado y antes de las casillas de verificación, rótulos o botones.
Labels	Devuelve el conjunto de rótulos del globo. El formato de los rótulos viene determinado por la propiedad BalloonType. Los rótulos aparecen después del texto del globo. Puede numerarse o agregar viñetas a la lista de rótulos o puede ser una lista de botones. A diferencia de las casillas de verificación, la opción del usuario se registra al hacer clic en un botón.
Checkboxes	Devuelve el conjunto de casillas de verificación del globo. El usuario hace clic en la casilla de verificación y, a continuación, hace clic en el botón apropiado de la parte inferior del globo, por ejemplo Aceptar o Siguiente, para registrar la opción.
Close	Cierra y rechaza un globo sin modo, pero no suelta la variable de objeto. La variable de objeto asignada al globo aún es válida; puede mostrarla de nuevo o modificarla y mostrarla más adelante. Este método sólo puede utilizarse en globos sin modo.
Show	Muestra el globo y todos sus objetos al usuario. Utilice este método sólo para objetos Balloon; utilice la propiedad Visible para el objeto Assistant.
El siguiente ejemplo crea un globo que ayuda al usuario a seleccionar una impresora. El ejemplo ofrece una opción en una casilla de verificación a los usuarios que deseen pasar por alto la información del globo.

Set bln = Assistant.NewBalloon

With bln

    .Heading = "Instrucciones para seleccionar una impresora."

    .Text = "Haga clic en Aceptar una vez elegida la impresora."

    lblTxt = "En el menú Archivo, elija Imprimir."

    .Labels(1).Text = lblTxt

    .Labels(2).Text = "Haga clic en Configurar."

    .Labels(3).Text = "Seleccione el nombre de la impresora."

    .Checkboxes(1).Text = "Saltar esta información."

    .BalloonType = msoBalloonTypeNumbers

    .Mode = msoModeModal

    .Button = msoButtonSetOK

    .Show

End With

Creación de globos

Para crear un nuevo globo, utilice la propiedad NewBalloon del objeto Assistant. El globo creado estará vacío. Utilice la propiedad Heading para agregar un encabezado y la propiedad Text para agregar texto al globo y, a continuación, agregue los controles, si fuera necesario. Por último, utilice el método Show para mostrar el globo. El método Show mostrará el globo tal como aparece en ese momento; por tanto, es importante utilizar este método después de establecer todas las demás propiedades del globo. El siguiente ejemplo crea un nuevo globo, establece el encabezado y el texto principal, y crea tres controles de casilla de verificación que el usuario puede seleccionar.

With Assistant.NewBalloon

    .Button = msoButtonSetOkCancel

    .Heading = "Datos de ventas por regiones"

    .Text = "Seleccione una región"

    For i = 1 To 3

        .CheckBoxes(i).Text = "Región " & i

    Next

    .Show

End With

Trabajo con múltiples globos

El Ayudante de Office no posee un conjunto Balloons. Para trabajar con múltiples globos, puede establecerse una variable de objeto independiente para cada globo que se cree y especificar la variable como requerida. También se puede crear una matriz de variables de objeto Balloon y asignar un globo a cada una. El siguiente ejemplo crea una matriz y agrega tres objetos Balloon en blanco.

Dim miMatrizGlobos(3) As Balloon

With Assistant

    For i = 1 To 3

        Set miMatrizGlobos(i) = .NewBalloon

    Next

End With


Modificaciones de los globos en tiempo de ejecución

Después de crear un globo para el Ayudante de Office, puede personalizarlo agregando mapas de bits, iconos, metarchivos de Windows o archivos PICT de Macintosh al encabezado o texto del mismo. Es posible que desee agregar controles como casillas de verificación o botones, de forma que pueda responder al usuario cuando haga clic en un elemento del globo.

Agregar iconos y mapas de bits a los globos

Para personalizar la aplicación, puede agregar iconos y mapas de bits a los globos del Ayudante de Office. Para agregar un icono, asigne una constante MsoIconType a la propiedad Icon del objeto Balloon. Para agregar un mapa de bits de Windows o Macintosh, un metarchivo de Windows o un archivo PICT de Macintosh al texto de un globo Ayudante de Office, especifique el tipo, ubicación y factor de ajuste de tamaño, si fuera necesario, al establecer la propiedad Text de un encabezado, texto, casilla de verificación o rótulo. El siguiente ejemplo inserta un archivo de mapa de bits de Windows en el texto de un globo.

miBmp = "{bmp c:\windows\circles.bmp}"

miTexto1 = "Antes de la imagen, "

miTexto2 = " y después de la imagen"

Set bln = Assistant.NewBalloon

With bln

    .Heading = "Instrucciones para seleccionar un mapa de bits."

    .Text = miTexto1 & myBmp & miTexto2

    .Show

End With

Agregar controles a los globos

Existen dos tipos de controles que pueden agregarse a un globo: casillas de verificación y botones. Existen cinco casillas de verificación en el globo cuando se crea; puede mostrar cualquiera de ellas especificando texto en el control. También existen cinco botones de rótulo en el globo, si se trata de un globo msoBalloonTypeButtons, y puede mostrar cada uno de ellos de la misma manera que una casilla de verificación. Si trata de agregar más de cinco casillas de verificación o botones de rótulos a un globo, se producirá un error.

Puede cambiar el aspecto de cualquier control de un globo cambiando su propiedad Text. Puede cambiar la función de una casilla de verificación o de un botón de un globo especificando otro procedimiento que se ejecutará siempre que se seleccione o se haga clic en ellos.

El siguiente ejemplo crea un diálogo con encabezado, texto y tres opciones de región. Cuando el usuario selecciona una casilla de verificación y, a continuación, hace clic en Aceptar, se ejecuta el procedimiento apropiado.

With Assistant.NewBalloon

    .Heading = "Datos de ventas por regiones"

    .Text = "Seleccione la región"

    For i = 1 To 3

        .CheckBoxes(i).Text = "Región " & i

    Next

    .Button = msoButtonSetOkCancel

    .Show

Select Case True

    Case .CheckBoxes(1).Checked

        runregion1

    Case .CheckBoxes(2).Checked

        runregion2

    Case .CheckBoxes(3).Checked

        runregion3

End Select

End With


Introducción a las barras de comandos

En Microsoft Office 97 las barras de herramientas y de menús, y los menús contextuales están controlados mediante macros como un tipo de objeto: barras de comandos. Los siguientes elementos están representados en Visual Basic por objetos CommandBar:

•	Barras de menús, barras de herramientas y menús contextuales

•	Menús de barras de menús y de barras de herramientas

•	Submenús de menús, submenús y menús contextuales

Es posible modificar todas las barras de herramientas y de menús, y crear y modificar las barras de herramientas, de menús y menús contextuales personalizados que se incluirán en la aplicación de Visual Basic. Las funciones de la aplicación se presentan como botones individuales, en las barras de herramientas, o como grupos de nombres de comandos en los menús. Debido a las barras de herramientas y los menús son ambos barras de comandos, se utiliza la misma clase de controles en ambos. Por ejemplo, la barra de herramientas acoplada mostrada en la siguiente ilustración contiene tres botones.

El menú mostrado en la siguiente ilustración contiene los mismos tres comandos que la ilustración previa, pero aquí se muestran como elementos de menú.

En Microsoft Office 97, tanto las barras de menús, como las barras de herramientas pueden contener menús. La barra de herramientas flotante mostrada en la siguiente ilustración contiene tres botones y también contiene un menú con los mismos comandos mostrados como elementos de menú.

En Visual Basic, los botones y elementos de menús se representan con objetos CommandBarButton. Los controles emergentes que muestran menús y submenús están representados por objetos CommandBarPopup. En la siguiente ilustración, el control denominado "Menú" y el control denominado "Submenú" son controles emergentes que muestran un menú y un submenú respectivamente. El menú y el submenú son objetos CommandBar únicos con su propio conjunto de controles.

En Microsoft Office 97 también es posible agregar cuadros de texto, cuadros de lista emergente y cuadros combinados a cualquier barra de comandos. Estos tres tipos de comando están todos representados en Visual Basic por objetos CommandBarComboBox.

Nota   Aunque comparten aspectos y comportamientos similares, los controles de barra de comandos y los controles ActiveX no son iguales. No es posible agregar controles ActiveX a barras de comandos ni controles de barras de comandos a documentos o formularios.

Los controles de barra de comandos integrados de las aplicaciones contenedoras están también representados en Visual Basic por objetos CommandBarButton, CommandBarPopup y CommandBarComboBox, aunque sus aspectos y comportamientos sean más complejos que los controles personalizados. Aunque es posible modificar la ubicación y aspecto de los controles integrados, no es posible modificar su comportamiento integrado. Sin embargo, es posible agregar una macro personalizada a cualquier control integrado para reemplazar completamente su comportamiento integrado.


Utilización de las barras de comandos

En general, para crear o modificar barras de herramientas o de menús, y menús contextuales que desee incluir en la aplicación de Visual Basic, debe utilizar las funciones de personalización de la aplicación contenedora. Los cambios realizados a las barras de herramientas y de menús, y a los menús contextuales mediante las funciones de la aplicación contenedora se conocen como cambios "en tiempo de diseño". Para obtener información acerca de cómo utilizar la aplicación contenedora para realizar cambios en tiempo de diseño, consulte la Ayuda en pantalla de dicha aplicación.

Es posible agregar y modificar las barras de herramientas y de menús, y los menús contextuales y sus componentes, utilizando la parte CommandBars del modelo de objeto de Microsoft Office en código Visual Basic. Es posible escribir el código para que se ejecute una vez creadas las barras de herramientas y de menús; en efecto, el código simula realizar cambios en tiempo de diseño. Sin embargo, en algunas aplicaciones contenedoras es posible que necesite utilizar una combinación de este tipo de código Visual Basic y la interfaz de personalización para diseñar la aplicación de Visual Basic. Estas son algunas áreas comunes donde es necesario utilizar una combinación de código y de la interfaz de la aplicación contenedora.

•	Si la aplicación contenedora no incluye una interfaz para agregar o modificar los cuadros de edición, de lista desplegable o combinados de las barras de herramientas, debe utilizar el código de Visual Basic para agregar uno de estos controles.

•	Si la aplicación contenedora incluye una interfaz para crear barras de herramientas pero no incluye una para crear nuevas barras de menús, será necesario utilizar Visual Basic para crear una barra de menús. Después de crear la barra de menús en Visual Basic, es posible diseñar los menús de dicha barra utilizando la interfaz de la aplicación contenedora.

•	Si la aplicación contenedora no incluye una manera de mostrar los menús contextuales personalizados mientras se muestra la interfaz de personalización, es necesario utilizar el código de Visual Basic para modificar estos menús contextuales.

También puede escribir el código que exista en la aplicación de Visual Basic para realizar cambios a las barras de herramientas y de menús mientras se ejecuta la aplicación; por ejemplo, es posible escribir el código para inhabilitar un comando de una barra de menús en determinadas condiciones o agregar botones a una barra de herramientas en respuesta a una acción del usuario. Los cambios realizados por el código mientras se ejecuta la aplicación de Visual Basic se conocen como cambios en "tiempo de ejecución".

Los siguientes temas proporcionan información acerca de cómo realizar cambios en tiempo de diseño y en tiempo de ejecución a las barras de herramientas y de menús con el código de Visual Basic.

Agregar y modificar barras de herramientas

Agregar y manejar barras y elementos de menú

Agregar y mostrar menús contextuales


Agregar y modificar barras de herramientas

Todas las aplicaciones tienen una interfaz amplia para agregar y diseñar barras de herramientas personalizadas: agregar botones integrados, macros como botones y controles emergentes. Los cambios en tiempo de diseño realizados con el código de Visual Basic se utilizan normalmente para agregar o modificar controles de cuadro combinado. El trabajo con barras de herramientas en código está casi por completo limitado a cambios en tiempo de ejecución (cambios en el estado, aspecto y acción del botón, etc.).

Modificar las barras de herramientas en tiempo de ejecución

Pueden realizarse algunas modificaciones a una barra de herramientas en tiempo de ejecución. Una de ellas es cambiar el estado de un botón de barra de comandos de la barra de herramientas. Cada control de botón tiene dos estados activos: presionado (True) y no presionado (False). Para cambiar el estado de un control de botón, utilice la constante apropiada para la propiedad State, según se explica en una tabla, más adelante en este tema.

Otra modificación consiste en cambiar el aspecto o acción de un botón. Para cambiar el aspecto de un botón, pero no su acción, utilice las propiedades CopyFace y PasteFace. Estas propiedades son útiles si desea copiar la imagen de un botón determinado en el Portapapeles o importarla en otra aplicación para cambiar alguna de sus funciones. Utilice la propiedad PasteFace para transferir la imagen de botón del Portapapeles a un botón específico.

Para cambiar la acción de un botón por una función que haya desarrollado, asigne el nombre del procedimiento personalizado a la propiedad OnAction.

La siguiente tabla muestra las propiedades y métodos más comunes para cambiar el estado, aspecto o acción de un botón.

Propiedad o método	Descripción
CopyFace, PasteFace	Copia o pega la imagen en un botón. Utilice el método CopyFace para copiar la imagen del botón especificado en el Portapapeles. Utilice el método PasteFace para pegar el contenido del Portapapeles en la imagen del botón especificado. El método PasteFace fallará si el Portapapeles está vacío. Si la imagen del Portapapeles es demasiado grande para el botón, no se reducirá su tamaño. Normalmente es más conveniente copiar y pegar una imagen de botón en tiempo de diseño, pero también se pueden realizar cambios a una imagen de botón en tiempo de ejecución. También se puede utilizar la propiedad FaceId para asignar una imagen integrada diferente a un botón.
Id	Especifica el valor que representa la función integrada del botón. Por ejemplo, un botón que copia texto seleccionado en el Portapapeles tiene un valor de Id igual a 19.
State	Especifica el aspecto o estado del botón. Puede ser una de las siguientes constantes: msoButtonDown, msoButtonMixed o msoButtonUp.
Style	Especifica si la imagen del botón mostrará el icono o el título. Puede ser una de las siguientes constantes: msoButtonAutomatic, msoButtonIcon, msoButtonCaption o msoButtonIconandCaption.
OnAction	Especifica el procedimiento que se ejecuta cuando el usuario hace clic en un botón, muestra un menú o cambia el contenido de un control de cuadro combinado.
Visible	Especifica si el control se muestra u oculta al usuario.
Enabled	Habilita o inhabilita una barra de comandos; el nombre de la barra de comandos inhabilitado no aparecerá en la lista de barras disponibles.
El siguiente ejemplo da por hecho que los dos primeros controles de la barra de comandos CustomButtons son botones. El procedimiento HideThem oculta el primer botón y asigna un procedimiento a la propiedad OnAction del segundo botón. Al ejecutar el procedimiento OnAction, se mostrará el primer control y se ocultará el segundo. Si se presiona el segundo botón mientras se ejecuta el procedimiento, éste se detendrá. Observe que debe declarar botónInicio y botónDetener como variables globales.

Sub HideThem()

Set v = CommandBars("CustomButtons")

Set botónInicio = v.Controls(1)

With botónInicio

    .Visible = False

    .Caption = "Detiene el proceso"

End With

Set botónDetener = v.Controls(2)

botónDetener.OnAction = "onActionButtons"

End Sub

Sub onActionButtons()

botónDetener.Visible = False

With botónInicio

    .Visible = True

    .Style = msoButtonCaption

End With

Do While botónInicio.State <> True

'Continúa el procesamiento de sub

Loop

End Sub

Agregar y modificar controles de cuadros combinados

Los cuadros de edición, de lista desplegable y combinados son nuevos controles potentes que se pueden agregar a las barras de herramientas de la aplicación de Visual Basic. Sin embargo, la mayoría de las aplicaciones contenedoras requieren que se utilice el código de Visual Basic para diseñar estos controles. Para diseñar un control de cuadro combinado, se utilizan las propiedades y métodos descritos en la siguiente tabla:

Propiedad o método	Descripción
Add	Agrega un control de cuadro combinado a una barra de comandos, especificando una de las siguientes constantes MsoControlType para el argumento Type: msoControlEdit, msoControlDropdown o msoControlComboBox.
AddItem	Agrega un elemento a la parte de lista emergente de un cuadro de lista emergente o cuadro combinado. Puede especificarse el número de índice del nuevo elemento en la lista existente pero, si este número es mayor que el número de elementos de la lista, AddItem falla.
Caption	Especifica el rótulo del control de cuadro combinado. Éste es el rótulo que se muestra junto al control si la propiedad Style se establece en msoComboLabel.
Style	Especifica si se mostrará el título junto al control especificado. Puede ser una de las siguientes constantes: msoComboLabel (se muestra el rótulo) o msoComboNormal (no se muestra el rótulo).
OnAction	Especifica el procedimiento que se ejecuta cuando el usuario cambia el contenido de un control de cuadro combinado.
El siguiente ejemplo agrega un cuadro combinado con el rótulo "Cuarto" a una barra de herramientas personalizada y asigna al control la macro denominada "DesplazarACuarto".

Set nuevoCombinado = CommandBars("Personalizado").Controls _

    .Add(Type:=msoControlComboBox)

With nuevoCombinado

    .AddItem "Q1"

    .AddItem "Q2"

    .AddItem "Q3"

    .AddItem "Q4"

    .Style = msoComboNormal

    .OnAction = "DesplazarACuarto"

End With

Mientras se ejecuta la aplicación, el procedimiento asignado a la propiedad OnAction del control de cuadro combinado se llama cada vez que el usuario cambia el control. En el procedimiento puede utilizarse la propiedad ActionControl del objeto CommandBars para buscar qué control se ha cambiado y devolver el valor modificado. La propiedad ListIndex devolverá el elemento descrito o seleccionado en el cuadro combinado.


Agregar y manejar barras y elementos de menú

Algunas aplicaciones contenedoras no proporcionan ningún medio para crear nuevas barras de menús y, por tanto, será necesario crearlas utilizando Visual Basic. Después de crear la barra de menús en Visual Basic, puede personalizarse utilizando la interfaz de la aplicación contenedora o Visual Basic.

Agregar barras de menú en tiempo de ejecución

Al agregar una barra de menú a una aplicación en tiempo de ejecución, utilice el método Add del conjunto CommandBars y especifique True en el argumento MenuBar. El siguiente ejemplo agrega una barra de menús que no puede moverse. El ejemplo también acopla esta barra de menús en el lado derecho de la ventana de la aplicación. La nueva barra de menús se activa siempre que se presione la tecla ALT.

Set menubar = CommandBars.Add _

    (Name:="miBarra", Position:=msoBarRight, MenuBar:=True)

With menubar

    .Protection = msoBarNoMove

    .Visible = True

End With

Modificar barras de menú en tiempo de ejecución

Se pueden realizar modificaciones a la barra de menús y a los controles de dicha barra en tiempo de ejecución. Los cambios realizados a la barra de menús pueden afectar a su aspecto o posición; los cambios realizados a los controles dependen del tipo de control. En la siguiente tabla se muestran las propiedades y métodos más comúnmente utilizados para modificar las barras de menús en tiempo de ejecución.

Propiedad o método	Descripción
Add	Agrega una barra de menús utilizando el método Add del conjunto CommandBars y especificando True para el argumento MenuBar.
Enabled	Si la propiedad se establece en True, el usuario puede mostrar la barra de menús especificada mediante el código de Visual Basic. Si esta propiedad se establece en False, el usuario no podrá mostrar la barra de menús, pero ésta aparecerá en la lista de barras disponibles.
Protection	Permite proteger la barra de menús de acciones específicas del usuario. Puede ser una o una suma de las siguientes constantes: msoBarNoChangeDock, msoBarNoChangeVisible, msoBarNoCustomize, msoBarNoCustomize, msoBarNoHorizontalDock, msoBarNoMove, msoBarNoProtection, msoBarNoResize y msoBarNoVerticalDock.
Position	Especifica la posición de la nueva barra de menús, con relación a la ventana de aplicación. Puede ser una de las siguientes constantes: msoBarLeft, msoBarTop, msoBarRight, msoBarBottom, msoBarFloating, msoBarPopup (utilizada para crear menús contextuales) o msoBarMenuBar (especifica una barra de menús para Macintosh).
Visible	Especifica si el control se muestra u oculta al usuario. Si el control se oculta al usuario, el nombre de la barra de menús aparecerá en la lista de barras disponibles.
El siguiente ejemplo oculta la barra de menús activa y la reemplaza por una barra de menús temporal acoplada al lado derecho de la ventana de aplicación y protegida del usuario.

Set barraAntigua = CommandBars.ActiveMenuBar

Set barraNueva = CommandBars.Add _

(Name:="nuevaBarraMenú", Position:=msoBarRight, _

MenuBar:=True, temporary:=True)

With barraNueva

    .Visible = True

    .Protection = msoBarNoMove

End With

Combinar barras de menú en tiempo de ejecución

Si posee barras de menú personalizadas en una aplicación creada para ser un complemento, es posible que desee especificar cómo representar los controles en la aplicación contenedora. Puede utilizar la propiedad OLEMenuGroup del control CommandBarPopup para especificar cómo realizar la combinación de las barras de menús.

Si ni la aplicación contenedora ni el servidor contienen barras de comandos, se producirá una combinación "no Office". Se combinará la barra de menús y todas las barras de herramientas del servidor y no se combinará ninguna de las barras de herramientas del contenedor. Puede utilizar la propiedad OLEUsage para especificar cómo realizar la combinación de las barras de menús.

Si la aplicación contenedora y el servidor contienen barras de comandos, se producirá una combinación "Office en Office". Los controles de la barra de comandos se incrustan en la aplicación de Office, control por control. Estas propiedades, OLEMenuGroup y OLEUsage, sólo son relevantes para controles emergentes de barras de menús ya que los menús se toman por categorías de grupos de menús.

Modificar elementos de menú en tiempo de ejecución

La variedad de modificaciones que se pueden realizar a un elemento de menú depende del tipo de control. Normalmente, los botones están habilitados u ocultos. Los cuadros de edición, de lista desplegable y combinados son más versátiles ya que puede agregar o eliminar elementos de la lista, y puede determinar la acción realizada mediante el valor seleccionado. Puede cambiar la acción de cualquier control por una función integrada o personalizada.

La siguiente tabla muestra las propiedades y métodos más comunes para cambiar el estado, acción o contenido de un botón.

Propiedad o método	Propósito
Add	Agrega un elemento de menú a una barra de comandos. Puede ser una de las siguientes constantes MsoControlType del argumento Type de un control integrado: msoControlButton, msoControlEdit, msoControlDropdown o msoControlComboBox.
AddItem	Agrega un elemento a la parte de lista emergente de un cuadro de lista emergente o cuadro combinado. Puede especificarse el número de índice del nuevo elemento en la lista existente pero, si este número es mayor que el número de elementos de la lista, AddItem falla.
Style	Especifica si la imagen del botón muestra el icono o el título. Puede ser una de las siguientes constantes: msoButtonAutomatic, msoButtonIcon, msoButtonCaption o msoButtonIconandCaption.
OnAction	Especifica el procedimiento que se ejecuta cuando el usuario cambia valor del control especificado.
Visible	Especifica si el control se muestra u oculta al usuario.
El siguiente ejemplo agrega un control emergente temporal denominado "Personalizado" al final de la barra de menús activa y, a continuación, agrega un control de botón denominado "Importar" a la barra de comandos emergente Personalizada.

Set mibarraMenú = CommandBars.ActiveMenuBar

Set nuevoMenú = mibarraMenú.Controls.Add(Type:=msoControlPopup, Temporary:=True)

nuevoMenú.Caption = "Personalizado"

Set ctrl1 = nuevoMenú.Controls

    .Add(Type:=msoControlButton, Id:=1)

ctrl1.Caption = "Importar"

ctrl1.TooltipText = "Importar"

ctrl1.Style = msoButtonCaption


Agregar y mostrar menús contextuales

Un menú contextual es una barra de comandos flotante que el usuario muestra al hacer clic con el botón secundario del mouse (ratón). Puede contener los mismos tipos de control que una barra de comandos y los controles se comportan de la misma manera que en una barra de comandos. Sin embargo, en la mayoría de las aplicaciones no se pueden crear o modificar menús contextuales desde la interfaz de la aplicación. Por tanto, es necesario crear y modificar los menús contextuales en tiempo de ejecución.

Agregar menús contextuales en tiempo de ejecución

La única diferencia entre los menús contextuales y otras barras de herramientas es que, al crear el menú contextual con el método Add, debe especificarse msoBarPopUp como el argumento Position. El siguiente ejemplo crea un nuevo menú contextual, agrega dos controles con título y, a continuación, utiliza el método ShowPopup para mostrar el nuevo menú.

Set x = CommandBars.Add("Personalizado", msoBarPopup)

Set y = x.Controls.Add

With y

    .FaceId = 26

    .Caption = "Analizar los datos"

End With

Set z = x.Controls.Add

With z

    .FaceId = 17

    .Caption = "Crear gráfico de datos"

End With

x.ShowPopup 200, 200

Mostrar menús contextuales

Utilice el método ShowPopup para mostrar los menús contextuales, como se muestra en el ejemplo anterior.

Si la aplicación contenedora admite la asignación de procedimientos de eventos a acciones del usuario, puede mostrarse un menú contextual en respuesta a un evento de clic con el botón secundario. Sin embargo, no todas las aplicaciones admiten procedimientos de eventos. Compruebe en la documentación de la aplicación contenedora si ésta admite procedimientos de eventos.

Modificar menús contextuales en tiempo de ejecución

Los cambios de un menú contextual deben realizarse en tiempo de ejecución y estarán limitados al cambio de aspecto o acción de los controles del menú. Para obtener más información acerca de cómo agregar y gestionar elementos de menús, vea Agregar y manejar barras y elementos de menú.


Objetos Microsoft Office


Devolver un objeto de un conjunto

La propiedad Item devuelve un solo objeto de un conjunto. El siguiente ejemplo establece la variable cmdbar en un objeto CommandBar que representa la primera barra de comandos del conjunto.

Set cmdbar = CommandBars.Item(1)

La propiedad Item es la propiedad predeterminada para la mayoría de los conjuntos, por tanto puede escribir el mismo comando de forma más concisa, omitiendo la palabra clave Item.

Set cmdbar = CommandBars(1)

Para obtener más información acerca de un conjunto específico, consulte el tema de Ayuda o la propiedad Item del conjunto.


No hay tema de Ayuda disponible

No se puede mostrar el tema de Ayuda porque no se encontró o no se instaló la Ayuda de Visual Basic para aplicaciones.

Instalar Visual Basic para aplicaciones

1.	Ejecute el programa de instalación de Microsoft Office 97 y haga clic en Agregar o quitar.

2.	Haga clic en Microsoft Access, Microsoft Excel, Microsoft PowerPoint o Microsoft Word y, a continuación, haga clic Modificar opción.

3.	Haga clic en Ayuda y, a continuación, en Modificar opción.

4.	Asegúrese de que la casilla de verificación Ayuda para Visual Basic o Referencia del lenguaje (Microsoft Access) esté activada.

5.	Continúe con la instalación.


Método ActivateWizard

Reanuda o cancela una sesión del Asistente para el Ayudante de Office.

Nota   Este método se utiliza como parte del proceso iniciado con el método StartWizard.

Sintaxis

expresión.ActivateWizard(WizardID, Act, Animation)

expresión   Requerida. Expresión que devuelve un objeto Assistant.

WizardID   Long requerido. Número único que identifica la sesión del Asistente para el Ayudante de Office, devuelto por el método StartWizard.

Act   Variant requerida. Especifica la manera en que cambia la sesión del Asistente para el Ayudante de Office. Puede ser una de las siguientes constantes: msoWizardActTypes: msoWizardActActive, msoWizardActInactive, msoWizardActResume o msoWizardActSuspend.

Animation   Variant opcional. Tipo de animación que realiza el Ayudante de Office al reanudar o cancelar la sesión del Asistente.


Ejemplo del método ActivateWizard

Este ejemplo cancela la sesión del Asistente para el Ayudante de Office iniciado con el método StartWizard. La variable helpForWiz se ha establecido en el valor devuelto por el método StartWizard.

Assistant.ActivateWizard WizardID:=helpForWiz, _

   Act:=msoWizardActSuspend, Animation:=msoAnimationGoodbye


Método Close

Cierra el globo activo sin modo activo.

Sintaxis

expresión.Close

expresión   Requerida. Expresión que devuelve un objeto Balloon.


Ejemplo del método Close

Este ejemplo muestra un globo que contiene instrucciones para seleccionar una impresora. Después de hacer clic en el botón Aceptar en el globo, el procedimiento ProcessPrinter se ejecuta y el globo se cierra.

Sub shar()

Set bln = Assistant.NewBalloon

With bln

    .Heading = "Instrucciones para seleccionar una impresora."

    .Text = "Haga clic en Aceptar una vez seleccionada la impresora."

    .Labels(1).Text = "Elija Archivo, Imprimir."

    .Labels(2).Text = "Haga clic en Configurar."

    .Labels(3).Text = "Seleccione el nombre de la impresora."

    .BalloonType = msoBalloonTypeNumbers

    .Mode = msoModeModeless

    .Callback = "ProcessPrinter"

    .Button = msoButtonSetOK

    .Show

End With

End Sub

Sub ProcessPrinter(bln As Balloon, ibtn As Long, _

 iPriv As Long)

    Assistant.Animation = msoAnimationSearching

     ' Inserta el código específico de impresora

    bln.Close

End Sub


Método EndWizard

Cierra la ventana del Ayudante de Office y suelta la variable que identifica de manera única la sesión del Asistente.

Nota   Este método se utiliza para completar el proceso iniciado con el método StartWizard.

Sintaxis

expresión.EndWizard(WizardID, varfSuccess, Animation)

expresión   Requerida. Expresión que devuelve un objeto Assistant.

WizardID   Long requerido. Número único que identifica la sesión del Asistente para el Ayudante de Office, devuelto por el método StartWizard.

varlSuccess   Boolean requerido. Al volver el método, este argumento es True si el usuario finalizó correctamente el Asistente.

Animation   Variant opcional. Tipo de animación que realiza el Ayudante de Office cuando finaliza la sesión del Asistente.


Ejemplo del método EndWizard

Este ejemplo cierra una sesión del Asistente para el Ayudante de Office que el usuario haya finalizado correctamente. La variable helpForWiz se ha establecido en el valor devuelto por el método StartWizard.

Assistant.EndWizard WizardId:=helpForWiz, _

    varfSuccess:=True, Animation:=msoAnimationGoodbye


Método StartWizard

Inicia el Ayudante de Office como parte del proceso que proporciona información adicional acerca de los paneles personalizados del Asistente. Devuelve un número que identifica de manera única la sesión del Asistente para el Ayudante de Office.

Sintaxis

expresión.StartWizard(On, Callback, PrivateX, Animation, CustomTeaser, Top, Left, Bottom, Right)

expresión   Requerida. Expresión que devuelve un objeto Assistant.

On   Boolean requerido. Estado local del Asistente. Al volver el método, este argumento es True si el usuario solicita ayuda para el Asistente desde el globo estándar y pregunta al usuario si desea o no ayuda.

Callback   String requerida. Nombre del procedimiento de devolución de llamada que se va a ejecutar.

PrivateX   Long requerido. Identificador único del panel del globo del Ayudante de Office que inicia el procedimiento de devolución de llamada.

Animation   Variant opcional. Tipo de animación que realiza el Ayudante de Office cuando aparece. El valor predeterminado es msoAnimationGetWizardy.

CustomTeaser   Variant opcional. True para que el globo estándar pregunte al usuario si desea que la ayuda sea reemplazada por un globo personalizado.

Top, Left, Bottom, Right   Variant opcional. Posición de las esquinas, en puntos y con relación a la pantalla, del panel de asistente personalizado que el Ayudante de Office no utilizará cuando el usuario lo inicie o se cambie a él.

Comentarios

No es necesario utilizar la propiedad Visible para mostrar el Ayudante de Office si se utiliza el método StartWizard.


Ejemplo del método StartWizard

Este ejemplo inicia el Ayudante de Office como parte del proceso que proporciona información adicional acerca de los asistentes personalizados. Si el usuario hace clic en la selección del globo que solicita ayuda adicional, se ejecutará el procedimiento de devolución de llamada. La variable helpForWiz se ha establecido en el valor devuelto por el método StartWizard.

helpForWiz = Assistant.StartWizard(on:=True, _

    PrivateX:=23, Callback:="miDevolución", _

    Animation:=msoAnimationGetAttentionMajor, _

    CustomTeaser:=False, Top:=100, Left:=200, _

    Bottom:=50, Right:=200)


Propiedad AssistWithAlerts

True si el globo del Ayudante de Office muestra mensajes de alerta de la aplicación siempre que esté visible. Boolean de Lectura/Escritura.

Comentarios

La propiedad AssistWithAlerts corresponde a la opción Mostrar alertas de Características del ayudante de la ficha Opciones, en el cuadro de diálogo Ayudante de Office.

Si esta propiedad es False, la aplicación muestra mensajes de alerta en cuadros de diálogo sin el Ayudante de Office.


Ejemplo de la propiedad AssistWithAlerts

Este ejemplo establece que el Ayudante de Office se muestre siempre que se genere una alerta de la aplicación.

With Assistant

    .AssistWithHelp = True

    .AssistWithAlerts = True

    .Animation = msoAnimationGreeting

    .Visible = True

End With


Propiedad AssistWithHelp

True si el Ayudante de Office aparece siempre que el usuario presione la tecla F1 para mostrar la Ayuda. Boolean de Lectura/Escritura.

Comentarios

La propiedad AssistWithHelp corresponde a la opción Responder a la tecla F1 de Características del ayudante en la ficha Opciones del cuadro de diálogo Ayudante de Office.

Si el valor de esta propiedad es False, aparecerá el cuadro de diálogo Temas de Ayuda en lugar del Ayudante de Office.


Ejemplo de la propiedad AssistWithHelp

Este ejemplo muestra el Ayudante de Office siempre que el usuario presione la tecla F1 para mostrar la Ayuda.

With Assistant

    .AssistWithHelp = True

    .AssistWithAlerts = True

    .Animation = msoAnimationGreeting

    .Visible = True

End With


Propiedad Callback

Establece el nombre del procedimiento que se va a ejecutar siempre que se muestre un globo sin modo. String de Lectura/Escritura.

Nota   Si especifica una macro que exista en una hoja de cálculo de Excel, tendrá que incluir el nombre de la hoja de cálculo en la referencia. De esta manera, debe decir Hoja1.miRutina y no miRutina.


Ejemplo de la propiedad Callback

Este ejemplo muestra un globo que contiene una selección de tres impresoras. Después de hacer clic en el botón Aceptar en el globo, el procedimiento ProcessPrinter se ejecuta y el globo se cierra.

Sub shar()

Set bln = Assistant.NewBalloon

With bln

    .Heading = "Selecciona una impresora."

    .Text = "Haga clic en Aceptar una vez seleccionada la impresora."

    .Labels(1).Text = "Impresora de red."

    .Labels(2).Text = "Impresora local."

    .Labels(3).Text = "Impresora en color local."

    .BalloonType = msoBalloonTypeButtons

    .Mode = msoModeModeless

    .Callback = "ProcessPrinter"

    .Button = msoButtonSetOK

    .Show

End With

End Sub

(A todos los procedimientos especificados en la propiedad Callback se les transmiten tres argumentos: el globo que activó el procedimiento, el valor correspondiente al botón presionado por el usuario y un entero que identifica el globo que activó el procedimiento.)

Sub ProcessPrinter(bln As Balloon, ibtn As Long, _

 iPriv As Long)

    Assistant.Animation = msoAnimationPrinting

    Select Case ibtn

    Case 1

        ' Inserta el código específico de la impresora

        bln.Close

    Case 2

        ' Inserta el código específico de la impresora

        bln.Close

    Case 3

        ' Inserta el código específico de la impresora

        bln.Close

    End Select

    End Sub


Propiedad Private

Devuelve o establece un número entero que identifica de forma única el globo del Ayudante de Office que inicia el procedimiento de devolución de llamada. Long de Lectura/Escritura.

Comentarios

Puede ser útil utilizar esta propiedad si se utiliza el mismo procedimiento de devolución de llamada para diferentes circunstancias.


Ejemplo de la propiedad Private

Este ejemplo identifica el globo del Ayudante de Office estableciendo la propiedad Private en 129. El procedimiento de devolución de llamada, miDevolución, se utiliza en diferentes circunstancias y el número entero 129 se utilizará para identificarlas.

With miGlobo

    .Heading = "Seleccione un área"

    .Private = 129

    .Callback = "miDevolución"

    .Show

End With


Método SetAvoidRectangle

Evita que se muestre el globo del Ayudante de Office en un área específica de la pantalla.

Sintaxis

expresión.SetAvoidRectangle(Left, Top, Right, Bottom)

expresión   Requerida. Expresión que devuelve un objeto Assistant.

Left, Top, Right, Bottom   Long requerido. Coordenadas, en puntos y con relación a la pantalla, del área de la pantalla donde no se mostrará el globo del Ayudante de Office.

Comentarios

Esta propiedad evita que el globo del Ayudante de Office se superponga a los cuadros de diálogo y Asistentes personalizados.


Ejemplo del método SetAvoidRectangle

Este ejemplo evita que el globo del Ayudante de Office representado por la variable miGlobo se muestre en el área de la pantalla definida por las coordenadas especificadas, medida en píxeles.

With miGlobo

    .SetAvoidRectangle 300, 250, 700, 500

    .Show

End With


Método ResetTips

Restablece las sugerencias de la aplicación que aparecerán en el globo del Ayudante de Office.

Sintaxis

expresión.ResetTips

expresión   Requerida. Expresión que devuelve un objeto Assistant.

Comentarios

El método ResetTips corresponde al botón Restablecer mis sugerencias de la ficha Opciones, en el cuadro de diálogo Ayudante de Office.


Ejemplo del método ResetTips

Este ejemplo restablece las sugerencias de la aplicación antes de mostrar el Ayudante de Office. Aparecerá un globo de confirmación indicando al usuario que se han restablecido las sugerencias de la aplicación.

With Application.Assistant

    .Visible = True

    .Animation = msoAnimationGreeting

    .ResetTips

End With


Propiedad DisplayKeysInTooltips

True si se muestran las teclas de método abreviado en los ToolTips de cada control de barra de comandos. Boolean de Lectura/Escritura.

Comentarios

Para mostrar las teclas en los ToolTips, debe establecer también la propiedad DisplayTooltips en True.


Ejemplo de la propiedad DisplayKeysInTooltips

Este ejemplo establece las opciones de todas las barras de comandos de Microsoft Office.

With CommandBars

    .LargeButtons = True

    .DisplayTooltips = True

    .DisplayKeysInTooltips = True

    .MenuAnimationStyle = msoMenuAnimationUnfold

End With


Propiedad MenuAnimationStyle

Devuelve o establece la manera en que se anima la barra de comandos. Puede ser una de las siguientes constantes msoMenuAnimation: msoMenuAnimationNone, msoMenuAnimationRandom, msoMenuAnimationUnfold o msoMenuAnimationSlide. Lectura/Escritura.


Ejemplo de la propiedad MenuAnimationStyle

Este ejemplo establece las opciones de todas las barras de comandos de Microsoft Office.

With CommandBars

    .LargeButtons = True

    .DisplayTooltips = True

    .DisplayKeysInTooltips = True

    .MenuAnimationStyle = msoMenuAnimationUnfold

End With


Propiedad ActionControl

Devuelve el objeto CommandBarControl cuya propiedad OnAction está establecida para que ejecute el procedimiento. Si el procedimiento de ejecución no ha sido iniciado por un control de barra de comandos, esta propiedad devuelve Nothing. Es de sólo lectura.


Ejemplo de la propiedad ActionControl

Este ejemplo inhabilita el control de barra de comandos que inició el procedimiento de ejecución mientras se ejecuta una serie de instrucciones y, a continuación, habilita el control.

Set elControl = CommandBars.ActionControl

elControl.Enabled = False

    'inserta aquí el proceso OnAction

elControl.Enabled = True


Propiedad Context

Devuelve o establece una cadena que determina si se guardará la barra de comandos especificada. La aplicación define e interpreta la cadena. String de Lectura/Escritura.

Comentarios

La propiedad Context sólo puede establecerse para barras de comandos personalizadas. Esta propiedad fallará si la aplicación no reconoce la cadena de contexto o si no admite que el programa cambie las cadenas de contexto.


Propiedad Author

Sólo aplicable en equipos Macintosh. Devuelve o establece una cadena, de hasta 80 caracteres, que representa al autor que aparece en las propiedades del documento que se va a buscar. String de Lectura/Escritura.


Propiedad DateCreatedFrom

Sólo aplicable en equipos Macintosh. Devuelve o establece la fecha en que se creó el archivo que se va a buscar; éste será el límite inferior de la búsqueda. Variant de Lectura/Escritura.

Comentarios

Puede utilizarse la propiedad DateCreatedTo para establecer un límite superior en la búsqueda o puede omitirse para realizar una búsqueda sin final definido.


Propiedad DateCreatedTo

Sólo aplicable en equipos Macintosh. Devuelve o establece la fecha en que se creó el archivo a buscar; éste será el límite superior de la búsqueda. Variant de Lectura/Escritura.


Propiedad DateSavedFrom

Sólo aplicable en equipos Macintosh. Devuelve o establece la fecha en que se guardó por última vez el archivo que se va a buscar; éste será el límite inferior de la búsqueda. Variant de Lectura/Escritura.

Comentarios

Puede utilizarse la propiedad DateSavedTo para establecer un límite superior en la búsqueda o puede omitirse para realizar una búsqueda sin final definido.


Propiedad DateSavedTo

Sólo aplicable en equipos Macintosh. Devuelve o establece la fecha en que se guardó por última vez el archivo que se va a buscar; éste será el límite superior de la búsqueda. Variant de Lectura/Escritura.


Propiedad Keywords

Sólo aplicable en equipos Macintosh. Devuelve o establece una cadena, de hasta 80 caracteres, que representa las palabras clave que aparecen en las propiedades del documento que se va a buscar. String de Lectura/Escritura.


Propiedad ListBy

Sólo aplicable en equipos Macintosh. Devuelve o establece la manera en que se muestran los archivos en el cuadro de diálogo de resultados. Puede ser una de las siguientes constantes msoFileFindListBy: msoFileFindListByName, que muestra, por nombre de archivo del sistema, los archivos encontrados, o msoFileFindListByTitle, que muestra, por título, los archivos encontrados. Lectura/Escritura.


Método Load

Sólo aplicable en equipos Macintosh. Carga en memoria la consulta de búsqueda de archivos especificada.

Sintaxis

expresión.Load(bstrQueryName)

expresión   Requerida. Expresión que devuelve un objeto FileFind.

bstrQueryName   String requerida. Cadena, de hasta 31 caracteres, que indica el nombre del criterio de búsqueda guardado que se va a cargar.

Comentarios

Utilice el método Execute para ejecutar una consulta cargada.


Propiedad MatchCase

Sólo aplicable en equipos Macintosh. True si la búsqueda de archivos tiene en cuenta mayúsculas y minúsculas. Boolean de Lectura/Escritura.


Propiedad Options

Sólo aplicable en equipos Macintosh. Devuelve o establece la manera en que se muestra el último grupo de archivos encontrado con relación a la lista de resultados previos. Puede ser una de las siguientes constantes msoFileFindOptions: msoFileFindOptionsNew, msoFileFindOptionsAdd o msoFileFindOptionsWithin. Variant de Lectura/Escritura.


Propiedad PatternMatch

True si la búsqueda de los archivos que coincidan con la cadena de la propiedad Text se amplía para que incluya los caracteres comodín * (asterisco) y ? (interrogación). Sólo aplicable en equipos Macintosh. Boolean de Lectura/Escritura.

Comentarios

Utilice el carácter comodín de interrogación para que coincida con cualquier carácter individual. Por ejemplo, escriba gr?s para devolver todos los archivos que contengan, al menos, una aparición de "gris" o "gres".

Utilice el carácter comodín asterisco para que coincida con cualquier número de caracteres. Por ejemplo, escriba San* para devolver todos los archivos que contengan, al menos, una palabra que comience por "San".


Propiedad Results

Sólo aplicable en equipos Macintosh. Devuelve el objeto FileFindResults. Es de sólo lectura.


Método Save

Sólo aplicable en equipos Macintosh. Guarda los criterios de búsqueda de archivos especificados.

Sintaxis

expresión.Save(bstrQueryName)

expresión   Requerida. Expresión que devuelve un objeto FileFind.

bstrQueryName   String requerida. Cadena, de hasta 31 caracteres que indica el nombre del criterio de búsqueda que se va a guardar.


Propiedad SavedBy

Sólo aplicable en equipos Macintosh. Devuelve o establece una cadena, de hasta 80 caracteres, que representa el nombre de usuario que guardó por última vez el archivo que se va a buscar. String de Lectura/Escritura.


Propiedad SearchPath

Sólo aplicable en equipos Macintosh. Devuelve o establece la carpeta en que se realizará la búsqueda de archivos especificada. String de Lectura/Escritura.

Comentarios

La ruta de la búsqueda puede tener hasta 255 caracteres.


Propiedad SelectedFile

Sólo aplicable en equipos Macintosh. Devuelve o establece un número que representa el archivo resaltado en el cuadro de diálogo Buscar archivo. Integer de Lectura/Escritura.

Comentarios

Utilice el método Show para mostrar el cuadro de diálogo Buscar archivo.


Propiedad SortBy

Sólo aplicable en equipos Macintosh. Devuelve o establece el método utilizado para ordenar los archivos devueltos por la búsqueda especificada. Puede ser una de las siguientes constantes msoFileFindSortBy: msoFileFindSortByAuthor, msoFileFindSortByDateCreated, msoFileFindSortByDateSaved, msoFileFindSortByFileName, msoFileFindSortByLastSavedBy, msoFileFindSortBySize o msoFileFindSortByTitle. Lectura/Escritura.


Propiedad SubDir

Sólo aplicable en equipos Macintosh. True si la búsqueda de archivos especificada incluye todas las subcarpetas de la carpeta especificada por la propiedad SearchPath. Boolean de Lectura/Escritura.


Propiedad Subject

Sólo aplicable en equipos Macintosh. Devuelve o establece una cadena, de hasta 80 caracteres, que representa el asunto que aparece en las propiedades del documento que se va a buscar. String de Lectura/Escritura.


Propiedad Title

Sólo aplicable en equipos Macintosh. Devuelve o establece una cadena, de hasta 80 caracteres, que representa el título que aparece en las propiedades del documento que se va a buscar. String de Lectura/Escritura.


Propiedad View

Sólo aplicable en equipos Macintosh. Devuelve o establece el estilo utilizado para mostrar información acerca de los archivos encontrados en el cuadro de diálogo. Puede ser una de las siguientes constantes msoFileFindView: msoFileFindViewFileInfo, msoFileFindViewPreview o msoFileFindViewSummary. Variant de sólo lectura.


Objeto FileFind

Representa la función del cuadro de diálogo Buscar archivo.

Uso del objeto FileFind

Utilice la propiedad FileFind para devolver el objeto FileFind.


Objeto FileFindResults

Representa la lista de archivos devueltos por una búsqueda de archivos.

Uso del objeto FileFindResults

Utilice la propiedad Results para devolver el objeto FileFindResults.

Utilice FileFindResults(index), donde index es el número de índice, para devolver la ruta de acceso y el nombre de un archivo encontrado.

Utilice el método Execute para comenzar la búsqueda de archivos y actualizar la lista.

Utilice la propiedad View para mostrar la lista de archivos encontrados en un cuadro de diálogo.


Identificadores programáticos OLE (Controles ActiveX)

Se usa un identificador programático, a veces denominado ProgID, para crear un objeto Automation. Utilice uno de los siguientes identificadores programáticos OLE para crear un control ActiveX.

Utilice este identificador	Para crear este objeto
Forms.CheckBox.1	CheckBox
Forms.ComboBox.1	ComboBox
Forms.CommandButton.1	CommandButton
Forms.Frame.1	Frame
Forms.Image.1	Image
Forms.Label.1	Label
Forms.ListBox.1	ListBox
Forms.MultiPage.1	MultiPage
Forms.OptionButton.1	OptionButton
Forms.ScrollBar.1	ScrollBar
Forms.SpinButton.1	SpinButton
Forms.TabStrip.1	TabStrip
Forms.TextBox.1	TextBox
Forms.ToggleButton.1	ToggleButton


Propiedad Type

Objeto DocumentProperty: Devuelve o establece el tipo de propiedad de documento. Puede ser una de las siguientes constantes MsoDocProperties: msoPropertyTypeBoolean, msoPropertyTypeDate, msoPropertyTypeFloat, msoPropertyTypeNumber o msoPropertyTypeString. Es de sólo lectura para propiedades de documento integradas; es de Lectura/Escritura para propiedades de documento personalizadas.

Objeto CommandBar: Devuelve el tipo de barra de comandos. Puede ser una de las siguientes constantes MsoBarType: msoBarTypeNormal, msoBarTypeMenuBar o msoBarTypePopup. Long de sólo lectura.

Objeto CommandBarControl: Devuelve el tipo de control de barra de comandos. Long de sólo lectura.

Puede ser una de las siguientes constantes MsoControlType:

Constante	Tipo de control
msoControlButton
msoControlButtonDropdown
msoControlButtonPopup
msoControlComboBox
msoControlCustom	Reservado para uso futuro.
msoControlDropdown
msoControlEdit
msoControlExpandingGrid
msoControlGauge
msoControlGenericDropdown	Reservado para uso futuro.
msoControlGraphicCombo
msoControlGraphicDropdown
msoControlGraphicPopup	Reservado para uso futuro.
msoControlGrid
msoControlLabel	Reservado para uso futuro.
msoControlOCXDropDown
msoControlPopup
msoControlSplitButtonMRUPopup
msoControlSplitButtonPopup
msoControlSplitDropdown
msoControlSplitExpandingGrid	Reservado para uso futuro.


Ejemplo de la propiedad Type

Este ejemplo busca el primer control con valor de rótulo "Cambia esta barra". Si el control con ese valor de rótulo es un botón de barra de botones, el ejemplo agrega un nuevo control de cuadro combinado al final de la barra de comandos y cambia el valor del rótulo del botón a "Cambiada".

Set ctrl = CommandBars _

    .FindControl(Tag:="Cambiar esta barra")

If ctrl Is Nothing Then Goto notFound

If ctrl.Type = msoControlButton Then

    Set br = ctrl.Parent

br.Controls.Add(Type:=msoControlComboBox)

    ctrl.Tag = "Cambiada"

End If

Este ejemplo muestra el nombre, tipo y valor de una propiedad de documento. Debe pasar un objeto DocumentProperty válido al procedimiento.

Sub DisplayPropertyInfo(dp As DocumentProperty)

    MsgBox "valor = " & dp.Value & Chr(13) & _

        "tipo = " & dp.Type & Chr(13) & _

        "nombre = " & dp.Name

End Sub


Propiedad Visible

Objetos CommandBar y CommandBarControl: True si la barra de comandos o el control de barra de comandos especificado es visible. Boolean de Lectura/Escritura.

Objeto Assistant: True si el Ayudante de Office está visible. Boolean de Lectura/Escritura.

Comentarios

False es el valor predeterminado de la propiedad Visible de las nuevas barras de comandos personalizadas.

La propiedad Enabled de una barra de comandos debe establecerse en True antes de establecer la propiedad visible en True.


Ejemplo de la propiedad Visible

Este ejemplo recorre el conjunto de barras de comandos para buscar la barra de comandos Formularios. Si se encuentra la barra de comandos Formularios, el ejemplo lo muestra y protege el estado de acoplamiento.

foundFlag = False

For Each cmdbar In CommandBars

    If cmdbar.Name = "Formularios" Then

        cmdbar.Protection = msoBarNoChangeDock

        cmdbar.Visible = True

        foundFlag = True

    End If

Next

If Not foundFlag Then

    MsgBox "La barra de comandos 'Formularios' no está en el conjunto."

End If

El ejemplo muestra el Ayudante de Office y establece su animación.

With Application.Assistant

    .Visible = True

    .Sounds = True

    .Animation = msoAnimationBeginSpeaking

End With


Propiedad Width

Devuelve o establece el ancho, en píxeles, de la barra de comandos o del control de barra de comandos especificados. Long de Lectura/Escritura.


Ejemplo de la propiedad Width

Este ejemplo agrega un control personalizado antes del segundo control en la barra de comandos denominada "Personalizada". El ejemplo establece el alto del control personalizado en la mitad del alto de la barra de comandos y establece el ancho en 50 píxeles.

Set miBarra = cmdbar.CommandBars("Personalizada")

barheight = miBarra.Height

Set miControl = miBarra.Controls _

    .Add(Type:=msoControlComboBox, Id:=4, Before:=2, Temporary:=True)

With miControl

    .Height = barheight / 2

    .Width = 50

End With

miBarra.Visible = True


Propiedad Application

Devuelve un objeto Application que representa la aplicación contenedora del objeto especificado (puede utilizar esta propiedad con un objeto Automation para devolver la aplicación contenedora del objeto). Es de sólo lectura.


Ejemplo de la propiedad Application

Este ejemplo devuelve la aplicación en que se creó la barra de comandos denominada "Documentos".

Set Appobj = CommandBars("Documentos").Application


Propiedad Creator

Devuelve el código de cuatro caracteres de la aplicación en que se creó el objeto especificado. Sólo aplicable en equipos Macintosh. Long de sólo lectura.


Propiedad Parent

Devuelve el objeto maestro del objeto especificado. Es de sólo lectura.


Ejemplo de la propiedad Parent

Este ejemplo muestra el nombre del objeto maestro de una propiedad de documento. Debe pasar un objeto DocumentProperty válido al procedimiento.

Sub DisplayParent(dp as DocumentProperty)

    MsgBox dp.Parent.Name

End Sub


Propiedad ShortcutText

Devuelve o establece el texto de la tecla de método abreviado mostrada junto al control de botón especificado cuando este botón aparece en un menú, submenú o menú contextual. String de Lectura/Escritura.

Comentarios

Sólo es posible establecer esta propiedad para botones de barras de comandos que tengan una macro OnAction adjunta.


Ejemplo de la propiedad ShortcutText

Este ejemplo coloca un botón de gráfico en la barra de comandos denominada "Personalizada" y asigna una macro OnAction al botón, junto con una tecla de método abreviado y un título.

Set miControl = CommandBars("Personalizada").Controls _

    .Add(Type:=msoControlButton, Id:= 17)

With miControl

    .OnAction = "MiSub"

    .Caption = "Gráfico de resultados"

    .Control.ShortcutText = "CTRL+SHIFT+M"

End With


Propiedad Height

Devuelve o establece el alto, en píxeles, de la barra de comandos o del control de barra de comandos especificados. Long de Lectura/Escritura.

Comentarios

Al establecer la propiedad Height se producirá un error si no se puede ajustar el tamaño de la barra de comandos, es decir, si está acoplada o protegida contra cambios de tamaño.


Ejemplo de la propiedad Height

Este ejemplo agrega un control personalizado antes del segundo control en la barra de comandos denominada "Personalizada". El ejemplo establece el alto del control en la mitad del alto de la barra de comandos y establece el ancho en 50 píxeles.

Set miBarra = cmdbar.CommandBars("Personalizada")

barHeight = miBarra.Height

Set miControl = miBarra.Controls _

    .Add(Type:=msoControlComboBox, Before:=2, Temporary:=True)

With miControl

    .Height = barHeight / 2

    .Width = 50

End With

miBarra.Visible = True


Propiedad Id

Devuelve el número de Id. del control de barra de comandos integrado especificado. Long de sólo lectura.

Comentarios

El número de Id. de un control determina la acción integrada de dicho control. El valor de la propiedad Id de todos los controles personalizados es 1.


Ejemplo de la propiedad Id

Este ejemplo cambia la imagen de botón del primer control de la barra de comandos denominada "Personalizada2" si el valor del número de Id. del botón es menor que 25.

Set ctrl = CommandBars("Personalizada2").Controls(1)

With ctrl

    If .Id < 25 Then

        .FaceId = 17

        .Tag = "Control cambiado"

    End If

End With

El siguiente ejemplo cambia el título de cada control de la barra de herramientas denominada "Estándar" por el valor actual de la propiedad Id de dicho control.

For Each ctl In CommandBars("Estándar").Controls

    ctl.Caption = CStr(ctl.Id)

Next ctl


Propiedad Index

Devuelve el número de índice del objeto especificado del conjunto. Long de sólo lectura.

Comentarios

La posición del primer control de barra de comandos es 1. Los separadores no se cuentan en el conjunto CommandBarControls.


Ejemplo de la propiedad Index

Este ejemplo busca en la barra de comandos denominada "Personalizada2" un control con un número de Id. igual a 23. Si se encuentra este control y su número de índice es mayor que 5, el control se situará en primer lugar en la barra de comandos.

Set miBarra = CommandBars("Personalizada2")

Set ctrl1 = miBarra.FindControl(Id:=23)

If ctrl1.Index > 5 Then

    ctrl1.Move before:=1

End If


Propiedad Item

Devuelve un objeto de un conjunto o devuelve el texto asociado con un objeto.

Item es el miembro predeterminado del objeto o conjunto. Por ejemplo, las dos siguientes instrucciones asignan un objeto CommandBar a cmdBar.

Set cmdBar = CommandBars.Item("Estándar")

Set cmdBar = CommandBars("Estándar")

Las dos siguientes instrucciones asignan a lblText el texto del primer rótulo del objeto Balloon asignado a miGlobo.

lblText = miGlobo.Labels(1).Item

lblText = miGlobo.Labels(1)

Seleccione uno de los siguientes objetos para ver una descripción detallada de la propiedad Item para dicho objeto.

Assistant

BalloonCheckboxes

BalloonCheckbox

BalloonLabel

BalloonLabels

CommandBarControls

CommandBars

DocumentProperties

FileFindResults

FoundFiles

PropertyTests


Propiedad Item (conjuntos CommandBars y CommandBarControls)

Devuelve un objeto CommandBar de un conjunto CommandBars o devuelve un objeto CommandBarControl de un conjunto CommandBarControls. Es de sólo lectura.

Sintaxis

expresión.Item(Index)

expresión   Requerida. Expresión que devuelve un objeto CommandBars o CommandBarControls.

Index   Variant requerida. Nombre o número de índice del objeto que se va a devolver. Observe que sólo puede utilizar los números de índice para devolver objetos PropertyTest del conjunto PropertyTests.


Propiedad Item (conjunto BalloonCheckboxes)

Devuelve un objeto BalloonCheckbox de un conjunto BalloonCheckboxes. Es de sólo lectura.

Sintaxis

expresión.Item(iCbx)

expresión   Expresión que devuelve un objeto BalloonCheckboxes.

iCbx   Long requerido. Número de índice de la casilla de verificación que se va a devolver.


Propiedad Item (conjunto BalloonLabels)

Devuelve un objeto BalloonLabel de un conjunto BalloonLabels. Es de sólo lectura.

Sintaxis

expresión.Item(iLbl)

expresión   Expresión que devuelve un objeto BalloonLabels.

iLbl   Long requerido. Número de índice del rótulo que se va a devolver.


Propiedad Item (objetos Assistant, BalloonLabel y BalloonCheckbox)

Devuelve el texto asociado al objeto especificado. String de sólo lectura.

Sintaxis

expresión.Item

expresión   Requerida. Expresión que devuelve un objeto Assistant, BalloonCheckbox o BalloonLabel.


Propiedad Item (conjunto DocumentProperties)

Devuelve un objeto DocumentProperty de un conjunto DocumentProperties. Es de sólo lectura.

Sintaxis

expresión.Item(Index)

expresión   Requerida. Expresión que devuelve un objeto DocumentProperties.

Index   Variant requerida. Nombre o número de índice de la propiedad de documento que se va a devolver.


Propiedad Item (conjunto PropertyTests)

Devuelve un objeto PropertyTest de un conjunto PropertyTests. Es de sólo lectura.

Sintaxis

expresión.Item(Index)

expresión   Requerida. Expresión que devuelve un objeto PropertyTests.

Index   Variant requerida. Número de índice de la prueba de propiedad que se va a devolver.


Propiedad Item (objetos FoundFiles y FileFindResults)

Devuelve un nombre de archivo de la lista de nombres representada por el objeto FoundFiles o FileFindResults. String de sólo lectura.

Sintaxis

expresión.Item(Index)

expresión   Requerida. Expresión que devuelve un objeto FoundFiles o FileFindResults (FileFindResults es sólo para Macintosh).

Index   Variant requerida. Número de índice del nombre de archivo que se va a devolver.


Propiedad Left

Objetos CommandBar o CommandBarControl: Devuelve o establece la distancia, en píxeles, desde el lado izquierdo de la barra de comandos o control de barra de comandos especificados hasta el lado izquierdo de la pantalla. Devuelve la distancia desde el lado izquierdo del área de acoplamiento. Long de Lectura/Escritura para CommandBar; Long de sólo lectura para CommandBarControl.

Objeto Assistant: Devuelve o establece la posición horizontal de la ventana del Ayudante de Office, en puntos, con relación a la pantalla. Long de Lectura/Escritura.


Ejemplo de la propiedad Left

Este ejemplo ajusta la posición de la barra de comandos personalizada denominada "Personalizada", moviéndola a la izquierda 140 píxeles más que el valor predeterminado. El ejemplo también hace que esta barra de comandos sea la primera en acoplarse, cambiando el número de índice de la fila a 1.

Set miBarra = CommandBars("Personalizada")

With miBarra

    .RowIndex = 1

    .Left = 140

End With

Este ejemplo muestra el Ayudante de Office y lo mueve a la posición especificada.

With Assistant

    .Visible = True

    .Left = 300

    .Top = 300

End With


Método Move

Objeto CommandBarControl: Mueve el control de barra de comandos especificado a una barra de comandos. existente.

Objeto Assistant: Mueve el Ayudante de Office a la ubicación especificada.

Sintaxis 1

expresión.Move(Bar, Before)

Sintaxis 2

expresión.Move(xLeft, yTop)

expresión   Sintaxis 1: Requerida. Expresión que devuelve un objeto CommandBarControl, CommandBarButton, CommandBarPopup o CommandBarComboBox.

Sintaxis 2: Requerida. Expresión que devuelve un objeto Assistant.

Bar   Variant opcional. Objeto CommandBar que representa la barra de comandos de destino del control. Si se omite este argumento, el control se mueve al final de la misma barra de comandos, en la que reside actualmente.

Before   Variant opcional. Número que indica la posición del control. El control se inserta antes del control que ocupa actualmente esta posición. Si se omite este argumento, el control se inserta en la misma barra de comandos.

xLeft   Integer requerido. Posición izquierda, en puntos, de la ventana del Ayudante de Office.

yTop   Integer requerido. Posición superior, en puntos, de la ventana del Ayudante de Office.


Ejemplo del método Move

Este ejemplo mueve el primer control de cuadro combinado desde la barra de comandos personalizada denominada "Personalizada" a la posición anterior al séptimo control de dicha barra. El ejemplo establece el rótulo "Cuadro de selección" y asigna una prioridad baja al control para que se elimine de la barra de comandos si no se ajustan todos los controles a una fila.

Set todosControles = CommandBars("Personalizada").Controls

For Each ctrl In todosControles

    If ctrl.Type = msoControlComboBox Then

        With ctrl

            .Move Before:=7

        	   .Tag = "Cuadro de selección"

        	   .Priority = 5

         End With

         Exit For

    End If

Next

Este ejemplo muestra el Ayudante de Office en la ubicación especificada y configura varias opciones antes de mostrarlo.

With Assistant

    .Reduced = True

    .Move xLeft:= 400, yTop:= 300

    .MoveWhenInTheWay = True

    .TipOfDay = True

    .Visible = True

    .Animation = msoAnimationGreeting

End With


Propiedad Name

Devuelve o establece el nombre del objeto especificado. String de Lectura/Escritura para el objeto CommandBar, String de sólo lectura para todos los demás objetos.

Comentarios

El nombre local de una barra de comandos integrada se muestra en la barra de título, cuando la barra no está acoplada, y en la lista de barras de comando disponibles, siempre que esta lista se muestre en la aplicación contenedora.

Para una barra de comandos integrada, la propiedad Name devuelve el nombre de la barra de comandos en inglés de EE.UU. Utilice la propiedad NameLocal para devolver el nombre adaptado.

Si cambia el valor de la propiedad LocalName de una barra de comandos personalizada, también cambia el valor de Name y viceversa.


Ejemplo de la propiedad Name

Este ejemplo busca en el conjunto de barras de comandos la barra de comandos denominada "Personalizada". Si se encuentra esta barra de comandos, el ejemplo lo muestra.

foundFlag = False

For Each bar In CommandBars

    If bar.Name = "Personalizada" Then

        foundFlag = True

        bar.Visible = True

    End If

Next

If Not foundFlag Then

    MsgBox "La barra 'Personalizada' no está en el conjunto."

Else

    MsgBox "La barra 'Personalizada' está ahora visible."

End If

Este ejemplo muestra el nombre, tipo y valor de una propiedad de documento. Debe pasar un objeto DocumentProperty válido al procedimiento.

Sub DisplayPropertyInfo(dp As DocumentProperty)

    MsgBox "valor = " & dp.Value & Chr(13) & _

        "tipo = " & dp.Type & Chr(13) & _

        "nombre = " & dp.Name

End Sub