VBA Excel setfocus onドロップダウンボックス

Question

VBAコードを使用してExcelでフォーカスをドロップダウンボックスに設定しようとしています。私は望ましくない結果をもたらす様々なことを試みました。以下の項目は、ドロップダウンボックスに焦点を当てている唯一の項目ですが、開発者の下で選択されているかのようにドロップダウンを選択しています（サイズ変更のドット付き）。可能であれば、 。私は、ユーザーがドロップダウンや何かをロックできるようにすることはできません。

ActiveSheet.Shapes("DropDown1").Select 

Answer 1

これが唯一の左上のセルを選択するように思われるこの

Sub TestFocus() 
    Dim ws As Worksheet 
    Dim dd As DropDown 

    Set ws = ActiveSheet 
    Set dd = ws.Shapes("DropDown1").OLEFormat.Object 

    dd.TopLeftCell.Select 
End Sub