Question

我正在尝试通过.OLEobjects为选项按钮分配一个值，但我不知道该怎么做。这就是我得到的

     with sheets.1
       For Each cOBtn In .OLEObjects
           posInstr = InStr(cOBtn.Name, "oBtn")
              If posInstr > 0 Then
                  cOBtn.Value = True
              End If
        Next
     end with

显然.Value不起作用..我该放什么？

Answer 1

使用此

cOBtn.Object.Value = True

你有没有其他的activex控件有＆＃34; oBtn＆＃34;用它的名字？ - Siddharth Rout 6分钟前

是的，很多人;同样的代码（我的）工作完全正常，当我举例.interior.Color而不是.value - Jente van Heuverswyn 5分钟前

在这种情况下，请确保您实际使用的是选项按钮，而不是其他任何内容：）

Sub Sample()
    With Sheet1
        For Each cOBtn In .OLEObjects
            posInstr = InStr(1, cOBtn.Name, "oBtn", vbTextCompare)

            If posInstr > 0 Then
                If TypeName(cOBtn.Object) = "OptionButton" Then
                    cOBtn.Object.Value = True
                End If
            End If
        Next
    End With
End Sub

通过OLEObjects分配值

1 个答案: