Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


12209 / 13644 ツリー ←次へ | 前へ→

【11621】パソコンのフォントリストを表示&取得で... OKA 04/3/12(金) 13:47 質問
【11636】Re:パソコンのフォントリストを表示&取得... 角田 04/3/12(金) 16:23 回答
【11734】Re:パソコンのフォントリストを表示&取得... OKA 04/3/15(月) 16:04 お礼
【11736】Re:パソコンのフォントリストを表示&取... 角田 04/3/15(月) 16:48 回答

【11621】パソコンのフォントリストを表示&取得で...
質問  OKA E-MAIL  - 04/3/12(金) 13:47 -

引用なし
パスワード
   ユーザーフォームでフォントの変更をしようと思うのですが、パソコンによってはインストールされているフォントが違うので一覧(リスト)を取得できる方法はないですか?

ありましたらよろしくお願いいたします。

【11636】Re:パソコンのフォントリストを表示&取...
回答  角田 WEB  - 04/3/12(金) 16:23 -

引用なし
パスワード
   こんにちは。
メニューの「フォント」コンボリストから取得できます。
http://j-walk.com/ss/excel/tips/tip79.htm
英語ですけど、マクロコードに英語も日本語もないから判りますよね。

【11734】Re:パソコンのフォントリストを表示&取...
お礼  OKA  - 04/3/15(月) 16:04 -

引用なし
パスワード
   角田さん 無事取得できました。

あとこれをコンボリストで丁度いいように表示したいのですができますかね?

質問ばかりですみません

【11736】Re:パソコンのフォントリストを表示&取...
回答  角田 WEB  - 04/3/15(月) 16:48 -

引用なし
パスワード
   こんにちは。
Cellsで受けてるのを、コンボでAddItemして、Listで受けるようにする。

>'  Put the fonts into column A
>  Range("A:A").ClearContents
>  For i = 0 To FontList.ListCount - 1
>    Cells(i + 1, 1) = FontList.List(i + 1)
>  Next i
  ↓
With ComboBox1
 For i = 0 To FontList.ListCount - 1
  .AddItem
  .List(.ListCount - 1) = FontList.List(i + 1)
 Next i
End With

12209 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free