人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

Wordにて、画像中の代替テキストをマクロで自動除去したい

Officeに不具合、画像の「代替テキスト」に保存場所が記録、情報漏えいの可能性 - インターネット安全活用 一灯塾
http://lifesecurity.hatenablog.com/entry/2015/08/29/205139

上記の問題を御存知な方は多いと思います。
Wordにて、画像中の代替テキストを自動除去するマクロを探しております。以下のページに書かれたマクロを、Wordに移植できれば良いかと思います、

代替テキストを一括削除するPowerPointマクロ:パワーポイントマクロ・PowerPoint VBAの使い方-Shape・図形
http://www.relief.jp/itnote/archives/powerpoint-macro-remove-alternative-text.php

●質問者: mue
●カテゴリ:コンピュータ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● a-kuma3
ベストアンサー

こんな感じで。

Sub アクティブドキュメントの代替テキストを削除する()
 For Each shp In ActiveDocument.InlineShapes
 With shp
 .AlternativeText = ""
 End With
 Next
End Sub

mueさんのコメント
御回答のソースのままでは、潰すべきプロパティがまだ有る様です。 しかし、今後のマクロ改良は自力でできそうなので、本質問は一旦閉じ様と思います。 御回答を、深く感謝致します。
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ