Propriedade SlideShowTransition.Application (PowerPoint)
Retorna um objeto Application que representa o criador do objeto especificado.
Sintaxe
expressão. Aplicativo
Expressão Uma variável que representa um objeto SlideShowTransition .
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
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.