Herkese merhaba.
Bir sayfa içerisinde onlarca şekil var.
Yapmak istediğim Şekillerden birini tıkladığımda tıkladığım şekil büyüsün. Tekrar tıkladığımda küçülsün.
Sadece tıkladığım şekil büyüyüp küçülecek.
Bulduğum kısımı aşağıda paylaşıyorum.
Şeklin adını kullandığım için sadece adı geçen şekil büyüyüp küçülüyor. Şeklin adı yerine Active Shapes gibi bir şey yapmak mümkün mü?
Bir de tıkladığım şeklin en önde gösterimini sağlayacak koda ihtiyacım var.
destekleriniz için şimdiden herkese teşekkür ederim.
Kullandığım kod.
Bir sayfa içerisinde onlarca şekil var.
Yapmak istediğim Şekillerden birini tıkladığımda tıkladığım şekil büyüsün. Tekrar tıkladığımda küçülsün.
Sadece tıkladığım şekil büyüyüp küçülecek.
Bulduğum kısımı aşağıda paylaşıyorum.
Şeklin adını kullandığım için sadece adı geçen şekil büyüyüp küçülüyor. Şeklin adı yerine Active Shapes gibi bir şey yapmak mümkün mü?
Bir de tıkladığım şeklin en önde gösterimini sağlayacak koda ihtiyacım var.
destekleriniz için şimdiden herkese teşekkür ederim.
Kullandığım kod.
Kod:
Sub byt()
Dim sekiller As Shape
kontrol = Not kontrol
If kontrol Then
ActiveSheet.Shapes.Range(Array("Rounded Rectangle 25")).Select
Selection.ShapeRange.ScaleWidth 5.8823602067, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 5.5744629142, msoFalse, msoScaleFromTopLeft
Else
ActiveSheet.Shapes.Range(Array("Rounded Rectangle 25")).Select
Selection.ShapeRange.ScaleWidth 0.3133337533, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.4503814151, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.5531916414, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.4067793835, msoFalse, msoScaleFromTopLeft
End If
End Sub