Propiedad Id

Microsoft Office Objects

Mostrar todo

Propiedad Id

       

Propiedad Id, según se aplica a los objetos CommandBarButton, CommandBarComboBox y CommandBarControl.

Devuelve el Id. para un control de la barra de comandos integrado. Long de sólo lectura.

expresión.Id

expresión   Requerida. Una expresión que devuelve uno de los objetos anteriores.

Comentarios

Un Id. de control determina la acción integrada para ese control. El valor de la propiedad Id para todos los controles personalizados es 1.

Propiedad Id, según se aplica al objeto Script.

Establece o devuelve el ID de un objeto Script. String de Lectura/Escritura.

expresión.Id

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

Comentarios

El ID devuelto es el atributo ID de la etiqueta <SCRIPT> en HTML. Si no se ha especificado un atributo ID en la etiqueta <SCRIPT>, la propiedad Id devolverá una cadena vacía.

Id especifica un identificador SGML utilizado para denominar elementos. Entre los identificadores válidos se incluye cualquier cadena que comience con una letra y esté constituida por caracteres alfanuméricos; la cadena también puede incluir el carácter de subrayado ( _ ).

El ID debe ser único dentro del documento HTML.

Ejemplo

Según se aplica a los objetos CommandBarButton, CommandBarComboBox y CommandBarControl.

Este ejemplo cambia la cara del botón del primer control en la barra de comandos denominada "Custom2" si el valor del Id. del botón es inferior a 25.

Set ctrl = CommandBars("Custom").Controls(1)
With ctrl
    If .Id < 25 Then
        .FaceId = 17
        .Tag = "Changed control"
    End If
End With

El siguiente ejemplo cambia el título de cada control de la barra de comandos denominada "Standard" al valor actual de la propiedad Id para ese control.

For Each ctl In CommandBars("Standard").Controls
    ctl.Caption = CStr(ctl.Id)
Next ctl

Según se aplica al objeto Script.

Este ejemplo establece un nuevo valor para la propiedad Id de la primera secuencia de comandos de la hoja uno del libro activo.

ActiveWorkbook.Worksheets(1).Scripts(1).Id = "UpdatedScriptName"