set toolbox optionbuttons

[ludwigdv]

Hi,



I want to set some (control toolbox-) Optionbuttons in a worksheet to
"True".

I retrieve the names of which Optionbuttons I want to set from another
sheet, and put those names into an array of Strings.



Finaly, can I loop the array and do a conversion from String to
Optionbutton, and set them one by one to "True"?

Here's my code so far:



Public Sub TestNVTlist()

Dim row, column As Integer

Dim NVTlist() As String

Dim NVT As String



row = 2

column = 2



NVT = Trim(Sheet6.Cells(row, column).Value)

Do While NVT <> ""

NVT = Trim(Sheet6.Cells(row, column).Value)

ReDim Preserve NVTlist(column - 1)

NVTlist(column - 1) = NVT

column = column + 1

Loop



Dim i As Integer

Dim myStr As String



For i = 1 To UBound(NVTlist) - 1

myStr = "Optionbutton" & Replace(NVTlist(i), ".", "_", , ,
vbTextCompare) & "_NVT"



'>>> HERE I WANT TO DO A CONVERSION FROM "myStr" TO
OPTIONBUTTON AND SET THE VALUE TO TRUE <<<



Next

End Sub



Thx.

Ludwig DV

Kaprijke, Belgium

 

[Dave Peterson]

Maybe you could incorporate something like this:


Dim OLEObj As OLEObject
Dim myStr As String

For i = 1 To UBound(NVTlist) - 1
myStr = "Optionbutton" _
& Replace(NVTlist(i), ".", "_", , , vbTextCompare) &
"_NVT"

Set OLEObj = Nothing
On Error Resume Next
Set OLEObj = Worksheets("Sheet1").OLEObjects(myStr)
On Error GoTo 0

If OLEObj Is Nothing Then
'that name isn't right
Else
OLEObj.Object.Value = True
End If

Next i


========
Worksheets("Sheet1") will have to be changed.

(and I didn't set up a workbook to test your other code, but I did test my
portion.)