全コントロールのFontNameを一挙に変えたい

解決

---

VB6で英語対応のソフトを作りたいと思っています。ソフト全体のコントロールの数が１００以上ありますので切り替えが大変です。  FontNameを英語の時にはMicrosoft Sans Selifに変えたいのですが一度に変える簡便な方法があったら教えてください。

編集 削除

---

フォームを包むようにドラッグすれば全体が選択されるけど、だめでしょうかね

編集 削除

---

Dim varObj      As Variant
    For Each varObj In Me.Controls
        varObj.FontName = "Microsoft Sans Selif"
    Next varObj

とかは？

編集 削除

---

１．Form全体をドラッグして包む方法
通ってみたさん  ありがとうございました。
早速やってみましたが全体を囲むと表示されるプロパティが共通項目だけになってしまいFontNameプロパティが表示されなくなってしまいました。

２．For Each  でFontNameを変更する方法
ｚさん、ありがとうございました。  やってみましたがエラー438「オブジェクトはこのプロパティまたはメソッドをサポートしていません」と出てしまいました。  このエラーを回避できれば一番簡便なのですが。  

解決方法が何かありましたら教えてください。

編集 削除

---

ノ＜横失礼。

> １．Form全体をドラッグして包む方法
> 通ってみたさん  ありがとうございました。
> 早速やってみましたが全体を囲むと表示されるプロパティが共通項目だけになってしまいFontNameプロパティが表示されなくなってしまいました。
Fontプロパティを含むコントロールだけを選択すればいいかと。

> ２．For Each  でFontNameを変更する方法
> ｚさん、ありがとうございました。  やってみましたがエラー438「オブジェクトはこのプロパティまたはメソッドをサポートしていません」と出てしまいました。  このエラーを回避できれば一番簡便なのですが。  
メンバがあるかどうかを調べるのは困難だと思いますので、
On Error ステートメントを使って、例外を処理すればいいと思います。

編集 削除

---

全選択してから、CtrlもしくはShiftを押しながらfontがないものを選択すれば、それだけ選択から外れるよ

編集 削除

---

ガッ様  うまくいきました。  ｚ様  通ってみた様ありがとうございました。  On Errorは不覚にも気づきませんでした。  大感謝です。

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。