PowerPoint

代替テキストを削除するマクロ

Sub BlankTheAltText()
Dim oSl as Slide
Dim oSh as Shape
For each oSl in ActivePresentation.Slides
For each oSh in oSl.Shapes
oSh.AlternativeText = “”
Next
Next
End Sub