使用Shapes.AddFormControl插入xlListBox后设置为多选如何提取选中值到CELL里

勤奋的狗

MultiSheet = ExcelApp.ActiveSheet
MyBox = MultiSheet.Shapes.AddFormControl(Microsoft.Office.Interop.Excel.XlFormControl.xlListBox, 200, 54.75, 184.5, 105)
MyBox.ControlFormat.MultiSelect = 2

以上是我的代码，LinkedCell属性不能对多选起作用，找不到哪个属性值可以返回了。

临沂-枸杞

1. Private Sub ListBox1_Change()
   
2.     Dim selectedItems As String
   
3.     With ListBox1
   
4.         For i = 0 To .ListCount - 1
   
5.             If .Selected(i) Then
   
6.                 selectedItems = selectedItems & .List(i) & ", "
   
7.             End If
   
8.         Next i
   
9.     End With
   
10.     selectedItems = Left(selectedItems, Len(selectedItems) - 2)
    
11.     Debug.Print selectedItems
    
12. End Sub

复制代码

比如这样

勤奋的狗

临沂-枸杞 发表于 2023-7-5 08:49
比如这样

谢谢，是我没说清楚，是VSTO，不是VBA，VSTO里没有selected属性

临沂-枸杞

工作簿项目吗?那有Microsoft.Office.Tools.Excel.Controls.ListBox 可以用,你用表单控件干啥

勤奋的狗

临沂-枸杞 发表于 2023-7-7 08:19
工作簿项目吗?那有Microsoft.Office.Tools.Excel.Controls.ListBox 可以用,你用表单控件干啥

在sheet上加控件，实现多选，加listbox单选赋值到单元格已经实现了，变成多选就无法赋值，找不到对应的属性