• はてなアカウントでログイン
• 無料ユーザー登録

ベストアンサー

• a-kuma32016/07/21 17:19:42

  

  こんな感じで。

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

  スター

  • 

    1件のコメントを見る

  • mue 2016/07/21 20:47:49

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

    スター

その他の回答

この質問へのコメント

質問の情報

登録日時

2016-07-21 15:25:34

終了日時

2016-07-21 20:48:00

回答条件

1人5回まで

この質問のカテゴリ

• コンピュータ

この質問に含まれるキーワード

人気の質問

• 兄弟姉妹がたくさんいる場合、自分のすぐ下の弟は「長弟」と呼ぶそうですが、正しいでしょうか。そして、そ…匿名質問者1日前
• imac(0S10,95)でダウンロードした映像データが削除できない問題 削除したい映像データベー…iquestion11日前
• 既婚者なのに気になる人がいます。 職場で気になる女性がいます。 30代半ば一児の父になります。 恥を忍ん…匿名質問者31日前
• 卒アルの個人撮影についてです！ 女子中学生です。 最近卒アルの個人撮影がありました。家に帰ってすぐ同じ…匿名質問者111日前
• 時間を見るのは他者との同期のためだともいます。 この同期作業がオートマチックになった時… 人は、「時間…ganmojr1日前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ