插入工作表中的ListBox无法点选内容

2667884679

各位大能 好，

敝人写了一段单元格被选取就会在旁边出现ListBox的代码，
但出现的ListBox无法选取内容，
必须到开发工具选项卡中，
把设计模式打开，然后再把设计模式又关闭，
才能点选ListBox中的内容。
请问是哪个环节出问题了？还请各位不吝指教，谢谢
※问题请参考下方图片
※另附上代码及附件

------------------------------------------------------------

Private Sub Worksheet_SelectionChange(ByVal Target As Range)         '选取单元格触发事件
Call test         
End Sub


-------------


Sub test()                                     '插入ListBox
Dim lstBox As Object
Dim rng As Range
Dim ws As Worksheet
Dim cw As Double

Set ws = ThisWorkbook.Sheets("Sheet1")
Set rng = ActiveCell
Dim shp As Shape                         '删除已存在的ListBox
For Each shp In ActiveSheet.Shapes
    If shp.Type = 12 Then shp.Delete
Next

Set lstBox = ws.OLEObjects.Add(ClassType:="Forms.ListBox.1")
With lstBox.Object
        .AddItem "Option 1"
        .AddItem "Option 2"
        .AddItem "Option 3"
End With
cw = rng.Columns.Width              '计算单元格宽度
With lstBox
        .Top = rng.Top
        .Left = rng.Left + cw
End With

End Sub

----------------------------------------------

2667884679

补充说明，翻找过论坛里面之前的发文，也有人问过类似的问题，他是因为冻结窗格引起，但我没有使用冻结窗格

大灰狼1976

这个问题也有几个人问过，解决方法是加activate
With lstBox
        .Activate
        .Top = rng.Top
        .Left = rng.Left + cw
End With

2667884679

大灰狼1976 发表于 2024-2-7 09:55
这个问题也有几个人问过，解决方法是加activate
With lstBox
        .Activate

感谢您的回复，

刚刚试了一下，
结果显示"类OLEObject的Activate方法无效"
只能继续再试试看其他解方了

2667884679

大灰狼1976 发表于 2024-2-7 09:55
这个问题也有几个人问过，解决方法是加activate
With lstBox
        .Activate

终于是成功了，
您提供的解方，加入Activate是可以的，
只不过我前面这段代码用
-----------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)         '选取单元格触发事件
Call test         
End Sub
-----------------
我把Private 拿掉在加上Activate就没问题了。

感谢您，困扰了我好久的问题终于搞定。