excelvbaでのオブジェクトのキャストについて

Question

active出ないシートからコンボボックスオブジェクトを取得し、値をセットしようとしています。オブジェクト自体は以下のようにして取得はできました。
Worksheets("Sales_1").OLEObjects("ComboBox1")
ただ、OLEObject型であるためItemを追加できません。
ComboBox型にキャストする方法などありましたらお教えください。

Answer 1

これじゃダメなんですか？

Worksheets("Sales_1").ComboBox1.AddItem("test")

Answer 2

Objectプロパティを利用してください。

'サンプルコード
    Dim cboTarget As ComboBox
    
    Set cboTarget = Worksheets("Sales_1").OLEObjects("ComboBox1").Object
    With cboTarget
        .AddItem "Item1"
        .AddItem "Item2"
        .AddItem "Item3"
    End With

Comments

[tayack122]

正常に動作いたしました。ありがとうございます。
キャストする必要があると思い込んでいました。
（OLEOBJECTにAddItemメソッドは存在しないので。。。）