Propriedade TextRange.Application (PowerPoint)

Artigo
04/07/2023

Retorna um objeto Application que representa o criador do objeto especificado.

Sintaxe

expressão. Aplicativo

Expressão Uma variável que representa um objeto TextRange .

Valor de retorno

Aplicativo

Exemplo

Neste exemplo, um objeto Presentation é passado para o procedimento. O procedimento adiciona um slide à apresentação e, em seguida, salva a apresentação na pasta onde o Microsoft PowerPoint está sendo executado.

Sub AddAndSave(pptPres As Presentation)

    pptPres.Slides.Add 1, 1

    pptPres.SaveAs pptPres.Application.Path & "\Added Slide"

End Sub

Este exemplo exibe o nome do aplicativo que criou cada objeto OLE vinculado no slide um da apresentação ativa.

For Each shpOle In ActivePresentation.Slides(1).Shapes

    If shpOle.Type = msoLinkedOLEObject Then

        MsgBox shpOle.OLEFormat.Application.Name

    End If

Next

Confira também

Objeto TextRange

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.

Compartilhar via