質問: word vba でオートシェイプのフォントを自動で変更するには? wordのvbaで図形を選択し、その中の文字のフォントを 自動で全て変更したいのですが、 どのようにすればいいのでしょうか? 良い方法はありませんか? よろしくお願いいたします。
回答: 質問の内容をドキュメント中のすべての図形の 文字フォントを変更すると解釈して回答します。 以下のように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にて試しました。)