Sayfa üzerinde Option buttonlar' ın caption bilgilerini alma

[tamer42]

Merhaba,
Sayfa1 içinde yer alan Active X Option buttonlar' da yazan caption (başlık) metinleri nasıl alabiliriz,
aşağıdaki kodda hata veriyot.

Private Sub TestOption()
 Dim Btn As Shape

        For Each Btn In Sayfa1.Shapes
            With Btn
                If .Type = 12 Then
                     MsgBox Btn.TextFrame.Characters.Text
       
                End If
            End With
        Next Btn

End Sub

ilginize şimden teşekkürler,
iyi pazarlar.

 

[halit3]

kod:

Private Sub CommandButton1_Click()
Dim Picture As Object
For Each Picture In ActiveSheet.Shapes
say = say + 1
Cells(say, 1) = Picture.Name
If TypeName(ActiveSheet.Shapes(Picture.Name).OLEFormat.Object.Object) = "OptionButton" Then
MsgBox ActiveSheet.Shapes(Picture.Name).OLEFormat.Object.Object.Caption
End If
Next Picture

End Sub

 

[Haluk]

Sub Test()
    For Each ctrl In ActiveSheet.OLEObjects
        If TypeName(ctrl.Object) = "OptionButton" Then MsgBox ctrl.Object.Caption
    Next
End Sub

.

 

[tamer42]

kod:

Private Sub CommandButton1_Click()
Dim Picture As Object
For Each Picture In ActiveSheet.Shapes
say = say + 1
Cells(say, 1) = Picture.Name
If TypeName(ActiveSheet.Shapes(Picture.Name).OLEFormat.Object.Object) = "OptionButton" Then
MsgBox ActiveSheet.Shapes(Picture.Name).OLEFormat.Object.Object.Caption
End If
Next Picture

End Sub

Halit hocam ilginize teşekkürler
yalnız ekte hata mesajını alıyorum

 

[tamer42]

Sub Test()
    For Each ctrl In ActiveSheet.OLEObjects
        If TypeName(ctrl.Object) = "OptionButton" Then MsgBox ctrl.Object.Caption
    Next
End Sub

.

Halut hocam çok teşekkürler,
gayet güzel çalışıyor,
müsadelerinzle bir şey daha soracağım

Aktif olan option button' u nasıl belirleyebiliriz?
Yani seçili olan option button' un caption bilgisini versin.

iyi akşamlar.

 

[halit3]

Kod ofis 2003 -2007-2016 da çalışıyor.

Private Sub CommandButton1_Click()

Dim Picture As Object
For Each Picture In ActiveSheet.Shapes
If TypeName(Picture.OLEFormat.Object) = "OLEObject" Then
If TypeName(Picture.OLEFormat.Object.Object) = "OptionButton" Then
If Picture.OLEFormat.Object.Object.Value = True Then
MsgBox Picture.OLEFormat.Object.Object.Caption
End If
End If
End If
Next Picture
End Sub

optionbutton_sec.xlsm dosyasını indir - download

optionbutton_sec.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

 

[Haluk]

Aktif olan option button' u nasıl belirleyebiliriz?
Yani seçili olan option button' un caption bilgisini versin.

iyi akşamlar.

Sub Test()
    For Each ctrl In ActiveSheet.OLEObjects
        If TypeName(ctrl.Object) = "OptionButton" And ctrl.Object.Value = True Then MsgBox ctrl.Object.Caption
    Next
End Sub

.

 

[tamer42]

Kod ofis 2003 -2007-2016 da çalışıyor.

Private Sub CommandButton1_Click()

Dim Picture As Object
For Each Picture In ActiveSheet.Shapes
If TypeName(Picture.OLEFormat.Object) = "OLEObject" Then
If TypeName(Picture.OLEFormat.Object.Object) = "OptionButton" Then
If Picture.OLEFormat.Object.Object.Value = True Then
MsgBox Picture.OLEFormat.Object.Object.Caption
End If
End If
End If
Next Picture
End Sub

optionbutton_sec.xlsm dosyasını indir - download

optionbutton_sec.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

2019 versiyonundan kaynaklı olabilir Halit hocam
her şey için teşekkürler
iyi akşamlar.

 

[tamer42]

Sub Test()
    For Each ctrl In ActiveSheet.OLEObjects
        If TypeName(ctrl.Object) = "OptionButton" And ctrl.Object.Value = True Then MsgBox ctrl.Object.Caption
    Next
End Sub

.

Çok teşekkürler Haluk Hocam