powerpoint, audio-files - Microsoft Community

can in find list of embedded audio-files in powerpoint.pptx , how can delete it??

a little vba code can you:

sub listembeddedaudiofiles()

    dim osh shape
    dim osl slide
    dim smessage string
    
    each osl in activepresentation.slides
        each osh in osl.shapes
            if osh.type = msomedia then
                if osh.mediatype = ppmediatypesound then
                    if osh.mediaformat.isembedded then
                        smessage = smessage & "slide " & cstr(osl.slideindex) & ": " & osh.name
                    end if
                end if
            end if
        next
    next
    
    msgbox smessage
    
end sub

sub deleteembeddedaudiofiles()

    dim osh shape
    dim osl slide
    dim x long
    
    each osl in activepresentation.slides
        x = osl.shapes.count 1 step -1
        set osh = osl.shapes(x)
            if osh.type = msomedia then
                if osh.mediatype = ppmediatypesound then
                    if osh.mediaformat.isembedded then
                        osh.delete
                    end if
                end if
            end if
        next
    next
    
end sub

Office / PowerPoint / Windows 10 / Office 2013