[belajar-excel] OLEOBJECTS CAPTION

[Mr. Kid]

Maaf ada yang error dengan emailnya, jadi thread Pak Heru berjudul
'OLEOBJECTS CAPTION' gak masuk ke Inbox. Jadi reply-nya bakal seperti
jadi thread
baru deh.

Coba gunakan event change dari togglebutton. Misal untuk yang 'A'

Private Sub ToggleButton37_Change()
    Dim X As Long
    Dim bVal As Boolean
    bVal = ToggleButton37.Value
    For X = 1 To 36
        Sheet2.OLEObjects("ToggleButton" & X).Object.Caption = IIf(bVal,
"A" & X, vbNullString)
    Next X
End Sub

Wassalam,
Kid.