Ok mantab. Thanks
----- Original Message -----
From: Mr. Kid
To: BeExcel
Sent: Wednesday, October 24, 2012 5:07 PM
Subject: [belajar-excel] OLEOBJECTS CAPTION
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.
