dosya boyutu

[champion]

İçeriğin çok falz birşey olmamasına rağmen ekteki dosyanın boyutu neden bu kadar çok olur. Anlayamadım bir türlü ?

 

[Ferhat Pazarçevirdi]

Dosyanızda sizin göremediğiniz bazı şekiller (resimler, objeler vs ... @ ve misal t harfine benzeyen logolar) bulunmakta ... Kendimi falcı gibi hissetim bir anda

Anlaşıldığı kadarıyla; bunlar oldukça büyük hacimli şekiller ... ve dosyanızın boyutunu artırmakta ...

Aşağıdaki kodu çalıştırarak; şekilleri görünür kılın ve ne olduklarını görün. İsterseniz, elle silebilirsiniz. Silme işlemini yaptıktan sonra dosyanızı, tekrar kaydedin ve boyutunu inceleyin.

Sub Sekilleri_Goster()
    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
        With shp
            .Left = Range("A1").Left
            .Top = Range("A1").Top
            .Width = 50
            .Height = 50
[COLOR=darkgreen]'            .Delete 'Eğer bu satırın önündeki tırnak işaretini kaldırırsanız,[/COLOR]
                    [COLOR=darkgreen] 'şekilleri de otomatik silebilirsiniz.[/COLOR]
        End With
    Next
    MsgBox "Sayfa üzerinde; " & ActiveSheet.Shapes.Count & " adet şekil bulundu"
End Sub

 

[ASMET67]

Şekil olduğı hiç aklıma gelmezdi.
Teşekkürler.

 

[champion]

Çok tşk ederim.. Böyle birşey olabileceğini düşünüdüm ama bu kadar da değil

Gizlenmiş sütun, satır varmı diye baktım olmayınca bu tezimden vazgeçmiştim.. Tekrar tşk ederim sağolun. Çok işime yarayacak bu kodlar