Soru FİLTRE SORUNU

[mc_exrem]

Merhaba yardımsever arkadaşlar,
ekte vermiş olduğum dosyada filtreyi uygulayınca diğer şekiller iç içe giriyor. Hepsinin satır yüksekliği 100 ama yine de bu şekli veriyor. bunu nasıl düzeltebilirim. Ya da bu çalışmayı nasıl birbirine girmeden değişiklik yapabilirim?

 

[Korhan Ayhan]

Merhaba,

Nesnelerin "Özellikler" bölümünden "Hücrelerle taşıma ve boyutlandırma" seçeneğini seçip deneyiniz.

 

[mc_exrem]

Merhaba,

Nesnelerin "Özellikler" bölümünden "Hücrelerle taşıma ve boyutlandırma" seçeneğini seçip deneyiniz.

Teşekkürler. Bu şekilde oldu ama alt satırlarda veri olmayan değerlerin şekilleri çıkıyor. Bir de bu şekillere biçim boyacısı uygulayamadım, hepsini seçince de özellikler sayfası açılmıyor. Hepsine birden aynı ayarı nasıl uygulayabilirim.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kod ile aktif sayfadaki nesnelere bu özelliği verebilirsiniz.

Sub Makro1()
    For Each Nesne In ActiveSheet.Shapes
        Nesne.Placement = xlFreeFloating
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub