次の方法で共有


Model3DFormat.Application プロパティ (Word)

指定したオブジェクトの作成元を表す Application オブジェクトを返します。

構文

expression.Application

Model3DFormat オブジェクトを表す変数。

戻り値

Object

この例では、 プレゼンテーション オブジェクトはプロシージャに渡されます。 この手順では、プレゼンテーションにスライドを追加し、プレゼンテーションを Microsoft Word が実行されているフォルダーに保存します。

Sub AddAndSave(pptPres As Presentation)

    pptPres.Slides.Add 1, 1

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

End Sub

次の使用例は、作業中のプレゼンテーションのスライド 1 でリンクされた各 OLE オブジェクトを作成したアプリケーションの名前を表示します。

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

    If shpOle.Type = msoLinkedOLEObject Then

        MsgBox shpOle.OLEFormat.Application.Name

    End If

Next

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。