Propiedad ShapeRange.Tags (PowerPoint)

Devuelve un objeto Tags que representa las etiquetas para el objeto especificado. Solo lectura.

Sintaxis

expresión. Tags

Expresión Variable que representa un objeto ShapeRange .

Valor devuelto

Etiquetas

Ejemplo:

Nota:

[!NOTA] Los valores de etiquetas se agregan y almacenan en texto en mayúsculas. Debe realizar pruebas sobre los valores de etiquetas mediante texto en mayúscula, como se muestre en el segundo ejemplo.

En este ejemplo se agregan una etiqueta que se denomina "REGION" y una etiqueta que se denomina "PRIORITY" a diapositiva uno de la presentación activa.

With Application.ActivePresentation.Slides(1).Tags

    .Add "Region", "East"     'Adds "Region" tag with value "East"

    .Add "Priority", "Low"    'Adds "Priority" tag with value "Low"

End With

En este ejemplo se buscan las etiquetas de cada diapositiva de la presentación activa. Si hay una etiqueta denominada "PRIORITY", un cuadro de mensaje muestra el valor de la etiqueta. Si el objeto no tiene una etiqueta denominada "PRIORITY", el ejemplo agrega esta etiqueta con el valor "Unknown".

For Each s In Application.ActivePresentation.Slides

    With s.Tags

        found = False

        For i = 1 To .Count

          If .Name(i) = "PRIORITY" Then

              found = True

              slNum = .Parent.SlideIndex

              MsgBox "Slide " & slNum & " Priority: " & .Value(i)

          End If

        Next

        If Not found Then

          slNum = .Parent.SlideIndex

          .Add "Priority", "Unknown"

          MsgBox "Slide " & slNum & " Priority tag added: Unknown"

        End If

    End With

Next

Consulte también

Objeto ShapeRange

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.