Propiedad Effect.Application (PowerPoint)
Devuelve un objeto Application que representa al creador del objeto especificado.
Sintaxis
expresión. Aplicación
Expresión Variable que representa un objeto Effect .
Valor devuelto
Aplicación
Ejemplo:
En este ejemplo, se pasa un objeto Presentation al procedimiento. El procedimiento agrega una diapositiva a la presentación y, a continuación, guarda la presentación en la carpeta donde se ejecuta Microsoft PowerPoint.
Sub AddAndSave(pptPres As Presentation)
pptPres.Slides.Add 1, 1
pptPres.SaveAs pptPres.Application.Path & "\Added Slide"
End Sub
En este ejemplo se muestra el nombre de la aplicación que creó cada objeto OLE vinculado en la diapositiva uno de la presentación activa.
For Each shpOle In ActivePresentation.Slides(1).Shapes
If shpOle.Type = msoLinkedOLEObject Then
MsgBox shpOle.OLEFormat.Application.Name
End If
Next
Consulte también
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.