|
エクセル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
|
|