Método TextRange.Runs (PowerPoint)
Retorna um objeto TextRange que representa o subconjunto especificado de sequências de texto. Um fluxo de texto consiste em um intervalo de caracteres que compartilham os mesmos atributos de fonte.
Sintaxe
expressão. Runs( _Start_, _Length_ )
Expressão Uma variável que representa um objeto TextRange .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Start | Opcional | Long | O primeiro fluxo do intervalo retornado. |
| Length | Opcional | Long | O número de fluxos a serem retornados. |
Valor de retorno
TextRange
Comentários
Se Start e Length forem omitidos, o intervalo retornado iniciará com a primeira sequência e terminará com o último parágrafo no intervalo especificado.
Se Start for especificado, mas Length for omitido, o intervalo retornado conterá uma sequência.
Se Length for especificado, mas Start for omitido, o intervalo retornado iniciará com a primeira sequência no intervalo especificado.
Se Start for maior que o número de sequências no texto especificado, o intervalo retornado iniciará com a última sequência no intervalo especificado.
Se Length for maior que o número de sequências a partir da linha de início especificada até o final do texto, o intervalo retornado conterá todas essas sequências.
Uma sequência consiste em todos os caracteres a partir do primeiro caractere após uma alteração de fonte até o penúltimo caractere com os mesmos atributos de fonte. Por exemplo, considere a seguinte sentença:
Esta palavra em itálico não está em negrito.
Na frase anterior, o primeiro fluxo consistirá na palavra "Este" somente se o espaço após a palavra "Este" não estiver formatado com itálico (se o espaço for itálico, o primeiro fluxo será formado apenas pelos três primeiros caracteres, ou "Est"). Da mesma forma, o segundo fluxo só conterá a palavra itálico se o espaço após a palavra estiver formatado com itálico.
Para obter informações sobre contagem e loop pelos fluxos de um intervalo de texto, consulte o objeto TextRange.
Exemplo
Este exemplo formata o segundo fluxo na forma dois do slide um da apresentação ativa com negrito e itálico se ele já for itálico.
With Application.ActivePresentation.Slides(1).Shapes(2) _
.TextFrame.TextRange
With .Runs(2).Font
If .Italic Then
.Bold = True
End If
End With
End With
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.