Excel VBA質問箱 IV

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

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


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

17204 / 76732

←次へ　｜　前へ→


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

pon - 10/3/31(水) 16:53 -


	引用なし

	パスワード

エクセル2003

こんにちは　よろしくお願いいたします

シートに貼り付けた　コンボボックスのフォントサイズを大きくしたい
と思っています

コンボボックスとしては
下記の2種類あリますが
Sub Macro1()

　　'フォームツールバー
　　Range("B4").Select
　　Application.CommandBars("Forms").Visible = True
　　
　　'コントロールツールボックス
　　Range("k4").Select
　　Application.CommandBars("Control Toolbox").Visible = True
　　
　　
End Sub

コントロールツールボックスのコンボボックスでは
希望の操作はかないましたが

フォームツールバーのコンボボックスの操作の仕方がわかりません

そもそも、リスト追加のコードがわかりません
アドバイスよろしくお願いいたします

フォームツールバーのコンボボックスの名前までは取得できました

Sub　test()

　　Dim i As Integer

　　For i = 1 To ActiveSheet.Shapes.Count

　　　　Debug.Print ActiveSheet.Shapes(i).Name
　　　　
　　Next i

End Sub

で
Drop Down 1

ちなみに
コントロールツールボックスのコンボボックスの場合は
下記で出来ました

'--------------------------------------------
'コントロールツールボックス

Public Sub cmb_add_list()

'リスト追加

　　Me.ComboBox1.AddItem "1"
　　
　　Me.ComboBox1.AddItem "2"
　　
　　Me.ComboBox1.AddItem "3"

　　Debug.Print Me.ComboBox1.ListCount

End Sub

Public Sub cmb_dell_list()

'リスト削除

'Me.ComboBox1.RemoveItem 0

　　Dim i As Integer
　　
　　For i = 0 To Me.ComboBox1.ListCount - 1
　　
　　　　Me.ComboBox1.RemoveItem 0
　　
　　Next

End Sub

Public Sub cmb_list_fontsize()

'リスト削除　フォント設定

　　Me.ComboBox1.Font.Size = 20

End Sub

0 hits

▼

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

≪