0

パワーポイント プレゼンテーションにいくつかの画像とビデオがあります。それぞれのフォーマット（jpg、mp3、jpeg、...）によって異なります。別のものを作成したいので、ファイルの種類を知る必要があります。Visual Basic で作成できるものはありますか?

編集済み

iPadでサポートされている画像や動画と、サポートされていない画像や動画を区別したい。そのため、それらの形式を知る必要があります。

4

2 に答える 2

1

編集:明確に言うと、以下のソリューションは、ファイルにリンクされている形状でのみ機能します!

Function WhatTypeOfMedia(SHP As Shape)

    Select Case Right(SHP.LinkFormat.SourceFullName, 4)
        Case ".jpg", "jpeg"
            WhatTypeOfMedia = "Picture type"
        Case ".wav", ".mp3"
            WhatTypeOfMedia = "Music type"
        '... end other possible types put here
    End Select
End Function

アクティブなプレゼンテーションの最初のスライドをテストするには、次のコードを試してください。

Sub Take_format_Linked()

    On Error Resume Next    'required for these files which are not linked
    Dim SHP As Shape
    For Each SHP In ActivePresentation.Slides(1).Shapes
    '1st check if format is linked- best option:
    If Len(SHP.LinkFormat.SourceFullName) > 0 Then
        If Err.Number = 0 Then
        'if so, let's call function
            Debug.Print WhatTypeOfMedia(SHP)
        'here you can do what you want based on function result
        Else
            Err.Clear
        End If
    End If
    Next

End Sub

その結果、イミディエイト ウィンドウに、どの形状がどのタイプであるかという情報が表示されます。そのタイプを使用して、メインサブで必要なものを実行できます。その単純なアイデアでOn Error Resume Next、Shape がリンクされていない場合にエラーを回避するようにしました。

于 2013-04-13T15:48:20.210 に答える
1

指摘されているように、リンクされたファイルのファイル タイプは取得できますが、埋め込みファイルのファイル タイプを取得する方法はありません。ただし、VBA で行う必要がない場合、または VBA で ZIP ファイルを操作できる場合は、PPTX を zip として開き、メディア フォルダーを探します。そこには、埋め込まれたファイル (画像、サウンド、ムービー) がすべて表示されます。

元の形式と同じではない可能性があります。PPT は、インポート時に画像を変換することがあります。しかし、それはあなたが求めているものを考えると問題ではありません.

于 2013-04-15T00:03:44.613 に答える