Soru Hareketli Buton Büyüklüğü

[bulentkars]

Arkadaşlar Merhaba,

Kullandığım hareketli buton makrosu aşağıdaki gibidir. Daha önce sorunsuz çalışıyordu ancak bugün hücreye tıkladıkça düğme 7 nin boyutu küçülmeye başladı. Olması gereken standart yükseklik 1,46 - Genişlik 1,96 makro kaydet ile yaptım ancak hücrelere tıkladıkça düğme büyümeye başladı, 1,46 ya 1,96 olacak şekilde yardımcı olabilirseniz sevinirim. Şimdiden Teşekkürler.




Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A1:C26]) Is Nothing Then Exit Sub
ActiveSheet.Shapes("düğme 7").Top = ActiveCell.Offset(2, 2).Rows.Top
ActiveSheet.Protect "123" 'Koruma Koy

Set MyIsect = Application.Intersect(Target, Range("B2:B3"))
If Not MyIsect Is Nothing Then UserForms.Show
End Sub

 

[YUSUF44]

Bu kodlarda düğme boyutuyla ilgili bir işlem yok. Acaba dosyanızdaki başka kodlar buna sebep oluyor olabilir mi?

 

[bulentkars]

Yusuf Bey,
Dosyada başka kodlar var, anlayamadım benim aklıma gelen bu koda ilave yükseklik 1,46 genişlik 1,96 olacak şekilde ilave kod yazabilirsek çözülür diye düşündüm.

 

[YUSUF44]

Aşağıdaki satırları deneyin ama bu değerler çok küçük, düğme görünmüyor nerdeyse:

ActiveSheet.Shapes("düğme 7").Height = 1.46 ActiveSheet.Shapes("düğme 7").Width = 1.96

 

[bulentkars]

Yusuf Bey,

Tamamdır, Çok çok teşekkür ederim. ben kod içerisinden oranları düzellttim.