ikikan
Altın Üye
- Katılım
- 3 Mart 2009
- Mesajlar
- 519
- Excel Vers. ve Dili
- excel 2003 tr
- Altın Üyelik Bitiş Tarihi
- 12.02.2026
Bana "Enabled " özeliği gibi davanan bir kod lazım. Bu koda sadece " Visible" ve "Transparency" özeliği çalışıyor.
Şimdiden Teşekkürler.
Şimdiden Teşekkürler.
Kod:
' Yan grup şekillerini işle
For Each SekilGrp2 In Yan_Grup.GroupItems
'--------------
If SekilGrp2.TextFrame2.TextRange.Text = "X" Then
'SekilGrp2.Visible = msoFalse
'SekilGrp2.LockAspectRatio = msoFalse ' Oran kilidi kapatılır
SekilGrp2.Fill.Transparency = 1 ' Şekli şeffaf hale getirerek etkisiz hale getirin
SekilGrp2.Locked = msoTrue ' Şekil kilitli
Else
'SekilGrp2.Visible = msoTrue
'SekilGrp2.LockAspectRatio = msoTrue ' Oran kilidi açılır
SekilGrp2.Fill.Transparency = 0 ' Şeffaflığı sıfıra ayarlayarak şekli etkinleştirin
SekilGrp2.Locked = msoFalse ' Şekil kilidi açık
End If
End With