Compartir a través de


Propiedad Model3DFormat.Application (Excel)

Devuelve un objeto Application que representa al creador del objeto especificado.

Sintaxis

expresión. Aplicación

Expresión Variable que representa un objeto Model3DFormat .

Valor devuelto

Objeto

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 Excel.

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

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.