Office関連

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

PowerPointの図やSmartArt、グループやグラフといった視覚的なコンテンツには、画面を見ることができないユーザー向けに、そのコンテンツが何なのかを示す「代替テキスト」(AlternativeText, alt text)を設定することができます。

PDFに変換するとき等、この代替テキストを残しておきたくない場合もあるので、一括削除するマクロを書いてみました。

Option Explicit

Public Sub DelAllAltText()
'代替テキストを一括削除
  Dim prs As PowerPoint.Presentation
  Dim sld As PowerPoint.Slide
  Dim shp As PowerPoint.Shape
  Dim tmp As PowerPoint.PpViewType
  
  Set prs = ActivePresentation
  
  '表示モードを「標準」にして処理実行
  If SlideShowWindows.Count > 0 Then _
    prs.SlideShowWindow.View.Exit 'スライドショー表示になっていたら解除
  With ActiveWindow
    tmp = .ViewType 'ウィンドウの表示モード記憶
    .ViewType = ppViewNormal
  End With
  
  For Each sld In prs.Slides
    For Each shp In sld.Shapes
      DelAltText shp
    Next
  Next
  
  ActiveWindow.ViewType = tmp 'ウィンドウの表示モードを元に戻す
  MsgBox "処理が終了しました。", vbInformation + vbSystemModal
End Sub

Private Sub DelAltText(ByVal TargetShape As PowerPoint.Shape)
'代替テキストの削除
  Dim grpShps As PowerPoint.GroupShapes
  Dim shp As PowerPoint.Shape
  
  On Error Resume Next
  Set grpShps = TargetShape.GroupItems
  On Error GoTo 0
  If grpShps Is Nothing Then
    If Len(Trim(TargetShape.AlternativeText)) > 0 Then
      TargetShape.AlternativeText = ""
    End If
    If Len(Trim(TargetShape.Title)) > 0 Then
      TargetShape.Title = ""
    End If
  Else
    For Each shp In grpShps
      DelAltText shp
    Next
  End If
End Sub

上記マクロを実行すると、すべてのスライド上にある図、SmartArt、グループ、グラフ、埋め込みオブジェクト、ビデオといったコンテンツから、代替テキストを削除します。

同様のマクロは下記サイトでもすでに取り上げられています。

関連記事

  1. Office関連

    「もし宇宙人が地球レポートをまとめたら」動画公開

    PLAY! Office第三弾、「もし宇宙人が地球レポートをまとめたら…

  2. Office アドイン

    [Office用アプリ]Bing Maps for Accessの紹介

    Microsoft Download CenterでAccess向けO…

  3. Office アドイン

    [Office用アプリ]JavaScript API for Officeのポスター

    JavaScript API for Officeのオブジェクト、メソ…

  4. Office関連

    PowerPointの自動実行マクロ

    ExcelのAuto_OpenやWordのAutoOpenのように、P…

  5. アイコン一覧

    Office 365アイコン(imageMso)一覧(D)

    Office 365のデスクトップ版Officeアプリケーション(Wo…

  6. アイコン一覧

    Office 365アイコン(imageMso)一覧を作成するにあたって

    Office 2013のアイコン一覧を公開してから4年ほど経ち、その間…

コメント

  • コメント (0)

  • トラックバックは利用できません。

  1. この記事へのコメントはありません。

Time limit is exhausted. Please reload CAPTCHA.

最近の記事

アーカイブ

RapidSSL_SEAL-90x50
PAGE TOP