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
No.1
4974
2154
こんな感じで。
Sub アクティブドキュメントの代替テキストを削除する() For Each shp In ActiveDocument.InlineShapes With shp .AlternativeText = "" End With Next End Sub
7
6
1
3
御回答のソースのままでは、潰すべきプロパティがまだ有る様です。
2016/07/21 20:47:49しかし、今後のマクロ改良は自力でできそうなので、本質問は一旦閉じ様と思います。
御回答を、深く感謝致します。