-PR-
解決済み

Word VBA でオートシェイプのフォントを自動で変更するには?

  • すぐに回答を!
  • 質問No.10981
  • 閲覧数2182
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 28% (4/14)

WordのVBAで図形を選択し、その中の文字のフォントを
自動で全て変更したいのですが、
どのようにすればいいのでしょうか? 
良い方法はありませんか? よろしくお願いいたします。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1

 質問の内容をドキュメント中のすべての図形の
文字フォントを変更すると解釈して回答します。
 以下のようにVBAで記述したらよいのではないで
しょうか。ここでは日本語フォントを「MS 明朝」に、
英数字フォントを「Arial Black」に変更しています。
Sub SetFont()
  On Error Resume Next
  Dim shp As Shape
  For Each shp In _
   ActiveDocument.Content.ShapeRange
shp.Select
Selection.Font.Name = "MS 明朝"
Selection.Font.NameAscii = "Arial Black"
Next shp
End Sub

(Word97にて試しました。)
お礼コメント
Arcadia

お礼率 28% (4/14)

動作確認とれました。
ありがとうございました。
投稿日時 - 0000-00-00 00:00:00
関連するQ&A
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


新大学生・新社会人のパソコンの悩みを解決!

いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ