android - 转换为 Windows mpeg4 后如何访问 Samsung Voice Recorder m4a 书签？

Question

我使用 Samsung Voice Recorder 录制了多个文件，并为每个文件插入了多个书签。在我的手机上，它们是 m4a 文件。当复制到我的计算机上时，它们显示为 mpeg4 文件。

我需要将这些添加到 Powerpoint(每张幻灯片一个文件)，并使用书签触发动画(最好使用 vba)，但是，书签不会显示。

任何人都可以帮助或指出正确的方向吗？提前致谢。

这是其中一个文件的链接。该文件有 6 个书签，时间如下:00:00、00:03、00:04、00:05、00:12、00:24。 https://1drv.ms/u/s!AkCe6_YwGEfWgupe2wsCcerSf4nFUw

我已经添加了最终代码。音频文件遵循针对特定客户有细微变化的脚本，因此剪辑都非常接近相同。我将音频文件添加到每张幻灯片，然后从原始音频复制书签并将它们应用到新文件。谢谢!!

            'Purpose: Copy media bookmarks and animation settings from a media shape on the same slide to the selected media shape.
            'Sources:
            '           https://stackoverflow.com/questions/54011849/how-can-i-access-samsung-voice-recorder-m4a-bookmarks-after-conversion-to-window
            '           http://skp.mvps.org/2010/ppt002.htm

            Private Sub CopyMediaSettingsToNewItem()

            Dim sld As Slide
            Dim newShp As Shape
            Dim shp As Shape
            Dim mf As MediaFormat
            Dim z As Long
            Dim y As Long
            Dim oMBK As MediaBookmark
            Dim myMBK As String
            Dim myPos As Long

                Set sld = ActivePresentation.Slides(ActiveWindow.Selection.SlideRange.SlideIndex)
                Set shp = sld.Shapes("Slide 13")
                Set mf = shp.MediaFormat
                Set newShp = sld.Shapes("Slides(13)")

                With newShp

                    .Top = shp.Top
                    .Left = shp.Left
                    .Width = shp.Width
                    .Height = shp.Height

                End With

                'Apply the original shape's media format settings to the new shape.  The 'noted settings are read-only.
                With newShp.MediaFormat

                    '.AudioCompressionType = shp.MediaFormat.AudioCompressionType
                    '.AudioSamplingRate = shp.MediaFormat.AudioSamplingRate
                    '.EndPoint = shp.MediaFormat.EndPoint
                    .FadeInDuration = shp.MediaFormat.FadeInDuration
                    .FadeOutDuration = shp.MediaFormat.FadeOutDuration
                    '.IsEmbedded = shp.MediaFormat.IsEmbedded
                    '.IsLinked = shp.MediaFormat.IsLinked
                    '.Length = shp.MediaFormat.Length
                    .Muted = shp.MediaFormat.Muted
                    '.Parent = shp.MediaFormat.Parent
                    '.ResamplingStatus = shp.MediaFormat.ResamplingStatus
                    '.SampleHeight = shp.MediaFormat.SampleHeight
                    '.SampleWidth = shp.MediaFormat.SampleWidth
                    .StartPoint = shp.MediaFormat.StartPoint
                    .Volume = shp.MediaFormat.Volume

                    End With

                    For y = 1 To shp.MediaFormat.MediaBookmarks.Count

                            Set oMBK = shp.MediaFormat.MediaBookmarks(y)
                            myMBK = oMBK.Name

                                Debug.Print "Length: " & shp.MediaFormat.Length
                                Debug.Print "EndPoint: " & shp.MediaFormat.EndPoint
                                Debug.Print "Position: " & oMBK.Position
                                Debug.Print "Name: " & oMBK.Name

                            'If the last bookmark position of the original shape is past the length of the new media file...
                            If oMBK.Position > newShp.MediaFormat.Length Then

                                myPos = newShp.MediaFormat.Length

                                Else: myPos = shp.MediaFormat.MediaBookmarks(y).Position

                                End If

                                        With ActiveWindow.Selection.ShapeRange(1)

                                            With .MediaFormat.MediaBookmarks

                                                .Add myPos, myMBK

                                            End With

                                        End With

                    Next

                    If shp.MediaType = ppMediaTypeMovie Then

                        '.VideoCompressionType = shp.MediaFormat.VideoCompressionType
                        '.VideoFrameRate = shp.MediaFormat.VideoFrameRate

                    End If


                    shp.PickupAnimation

                    newShp.ApplyAnimation

                    'Dim eff As Effect
                    'Set eff = sld.TimeLine.MainSequence.AddEffect(newShp, msoAnimEffectMediaPlay, trigger:=msoAnimTriggerAfterPrevious)

                        'With newShp.AnimationSettings.PlaySettings

                            '.LoopUntilStopped = msoCTrue
                            '.PauseAnimation = msoFalse
                            '.PlayOnEntry = msoCTrue
                            '.RewindMovie = msoCTrue
                            '.StopAfterSlides = 999
                            '.HideWhileNotPlaying = msoTrue

                        'End With

            'Release from memory
            Set sld = Nothing
            Set newShp = Nothing
            Set shp = Nothing
            z = 0
            y = 0
            Set oMBK = Nothing
            Set mf = Nothing
            myMBK = vbNullString
            myPos = 0


            End Sub

Answer 1

您可以使用 VBA 为视频或音频添加书签。

例如，假设您选择了音频或视频:

With ActiveWindow.Selection.ShapeRange(1)
   With .MediaFormat.MediaBookmarks
      ' Add a bookmark at the 5 second mark
      .Add 5000, "My bookmark name"
   End With ' MediaBookmarks
End With  ' Selected Shape