オフィスのコンビネーションボタン/プルダウン

Question

どのようにオフィスにコンビネーションボタン/ドロップダウンを追加しますか（下記参照）。コードを使用することが望ましい。

更新：それは任意のを助けている場合、コードは必要ありません。次のActiveXをもとに、あなたがそれを行うことができます

Answer 1

は、コントロール：手動

• マイクロソフトイメージリストコントロール、バージョン6
• マイクロソフトImageComboBoxコントロール、バージョン6

、あなたは「その他のコントロールを選択しますコントロールツールボックス]メニューバーから[...]を選択し、上記のコントロールをダブルクリックしてシート上に表示させます。 ComboBoxを必要な位置に配置し、ImageListの位置を無視すると、デザインモードでのみ表示されます。今ImageList1

• という名前の2つの組み込みcontrosを持って
• ImageCombo1

によって二つの成分の挿入も... \ SYSTEM32 \ MSCOMCTL32.OCXへの参照を作成します。

次に、あなたは

1. 手動
2. を手動で「ImageList1」手動Trueにコンボの自動ロードのプロパティを設定し
3. にコンボのイメージリストプロパティを設定する画像のリストにあるアイコン（GIF、BMPなど）を追加します

これでエラーはありますがアイコンは表示されません。

その後、あなたは、このコード

Sub FillCombo() 
Dim SH As Worksheet, OO As OLEObjects, Idx As Integer 

    Set SH = ActiveSheet 
    Set OO = SH.OLEObjects 


    With OO("ImageCombo1").Object 
     .ComboItems.Clear 
     For Idx = 1 To OO("ImageList1").Object.ListImages.Count 
      .ComboItems.Add , , , Idx 
     Next Idx 
    End With 

End Sub 

を実行し、私はVBAでオブジェクトを作成するために懸命に試みましたが、ImageComboはコンボが作成された

Set SH = ActiveSheet 
Set OO = SH.OLEObjects 
OO.Add "MSComctlLib.ImageComboCtl.2" 
' .... etc .... 

として作成されたときに異なる動作をするようで、ドロップダウンの矢印は、私が何をしても表示されませんが、すべてのListView要素がきれいに添付されていることを示しています。多くの同僚がそのActiveXに問題を抱えているようですが、ネット上に多数の投稿があります。

さらなる読書here