Active X ComboBox lar kontrolsüz olarak boyut değiştiriyor

Katılım
8 Ocak 2025
Mesajlar
1
Excel Vers. ve Dili
Microsoft 365 Version 2402
Merhaba arkadaşlar
Excel 365 Version 2402 kullanıyorum. Macrolu excel dosyasında herşey beklendiği gibi çalışıyor ancak sadece kullandığım 3 tane comboboxda haftalardır çözemediğim bir sorun var. Google bir çok yerde çözümü araştırdım. Bu konuda o kadar farklı şey yazılmış ki kafam iyice karıştı. Bu kadar basit bir sorunun hala son versiyonda yaşanıyor olması aklım ermiyor. Gelelim sorunuma:

Kullandığım Active X ComboBoxlar günlerce doğru çalıştığı halde, bazen hiç beklenmedik şekilde boyut değiştiriyor ve pozisyonları kayıyor. Burada şunu söylemeliyim: 3 ComboBox da birebir aynı ayarlara sahip ama bazen sadece biri bazen ikisi boyut değiştiriyor. (Genelde küçülme oluyor). Bu problem şu durumlarda daha çok yaşanıyor:

Dosyayı aynı windows ve excel versionunun kullanıldığı başka bir firma bilgisayarından açınca, Monitor değiştirince, Bilgisayarı kablosuz olarak bir sunum ekranına bağlayınca ama bazen bunların dışındaki durumlarda.... Bununla birlikte sorunu bazen günlerce hiç yaşamıyorum.

Öncelikle şu ayarları tüm ComboBoxlar için aynı ayarladım:

1) Format Control: Don't move or size with cells seçili
2) Properties: AutoSize: False seçili

Yani uzun emekler sonucu hazırladığım macrolu dosyamın ekip içinde sunuşunu yaparken son olarak bu sorunu yaşadım ve beni epey terletti. Bu konuda yardımcı olabilecek olan var mı?

Lütfen Active X yerine form tipi combobox kullanmayı önermeyin çünkü active x combboxun ilave özelliklerinden faydalanmak istiyorum.
 

muygun

Özel Üye
Katılım
6 Temmuz 2004
Mesajlar
9,200
Excel Vers. ve Dili
Excel-2003 Türkçe
Merhaba;
365 de ne sonuç verir bilmiyorum ama sayfa üzerine konumlandırılmış ;
ToggleButton1,Düğme 3 ve SpinButton1'in en ve boy özelliklerini sabitlemek adına ekteki kodları deneyin.
Bunu açılışta çalıştırmak için;
Private Sub Workbook_Open() altına yerleştirin.

Eğer bunu userform üzerinde uygulamak için bir tetiklemeye yada Private Sub UserForm_Activate() altına ekleyerek deneyin.
İyi çalışmalar.

Sub buton_boyut_düzenle()
Set btn1 = ActiveSheet.Shapes("ToggleButton1")
Set btn2 = ActiveSheet.Shapes("Düğme 3")
Set btn3 = ActiveSheet.Shapes("SpinButton1")
btn1.Height = 20 'yükseklik
btn1.Width = 100 'uzunluk
btn2.Height = 100
btn2.Width = 200
btn3.Height = 100
btn3.Width = 40
End Sub
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,570
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Merhaba,

Faydalı olabilir...

 
Üst