Use one simple macro to move on all slides (rather than doing this slide by slide)
(From https://answers.microsoft.com/en-us/msoffice/forum/msoffice_powerpoint-mso_mac/alignment-of-audio-file-icon/f4bbfa08-fd24-4814-bb54-c7902d4abe31)
Go to View -> Macros and add the following macro:
Sub fix_Audio()
Dim osld As Slide
Dim oshp As Shape
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Type = msoMedia Then
If oshp.MediaType = ppMediaTypeSound Then
oshp.Top = ActivePresentation.PageSetup.SlideHeight - oshp.Height
oshp.Left = ActivePresentation.PageSetup.SlideWidth - oshp.Width
End If
End If
Next
Next
End Sub
Click run. Done!
(From https://answers.microsoft.com/en-us/msoffice/forum/msoffice_powerpoint-mso_mac/alignment-of-audio-file-icon/f4bbfa08-fd24-4814-bb54-c7902d4abe31)
Go to View -> Macros and add the following macro:
Sub fix_Audio()
Dim osld As Slide
Dim oshp As Shape
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Type = msoMedia Then
If oshp.MediaType = ppMediaTypeSound Then
oshp.Top = ActivePresentation.PageSetup.SlideHeight - oshp.Height
oshp.Left = ActivePresentation.PageSetup.SlideWidth - oshp.Width
End If
End If
Next
Next
End Sub
Click run. Done!
No comments:
Post a Comment