Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

17201 / 76732

←次へ　｜　前へ→


	【64988】Re:フォームツールバーのコンボボックスのフォントサイズ

teian - 10/3/31(水) 17:33 -


	引用なし

	パスワード

ツールバーフォームのコンボボックスはDropDownオブジェクトと
呼称されるものです。
オブジェクトブラウザで"非表示のメンバを表示"にすると確認できます。

項目の追加であれば、同様にAddItemでひとつづつ設定できますし、

Sub AddItemでセット()
　　With ActiveSheet.DropDowns(1)
　　　　.AddItem "あ"
　　　　.AddItem "い"
　　　　.AddItem "う"
　　End With
End Sub

Sub Listで配列セット()
　　ActiveSheet.DropDowns("Drop Down 1").List = _
　　　　Array("A", "B", "C")
End Sub

Sub クリア()
　　ActiveSheet.DropDowns("ドロップ 1").RemoveAllItems
End Sub

といった感じですね。
ただ、Font設定などはできるかは知りません。

0 hits

▼

【64985】フォームツールバーのコンボボックスのフォントサイズ pon 10/3/31(水) 16:53