fotoğraflardan dolayı excel dosyasının mb. yüksek olması

[Turgaysendinc]

Arkadaşlar Merhaba,

Benim problemim bir excel dosyası içinde 50 tane foto kayıtlı fakat bunları excele kopyalarken jpg. olarak kopyalama yapılmamış bu sebebten dolayı 40mb vb.boyutlarda dosyalar var.Buna benzer çok dosya olduğu için tek tek düzeltmek zor olacak.
Bunun için bir macro yazılabilirmi.
Yardımlarınızı bekliyorum.Teşekkürler

 

[Ferhat Pazarçevirdi]

Bir dosyayı, içindeki resimleri manuel olarak Jpg'e çevirdikten sonra kaydettiğinizde dosyanın boyutu ne oluyor? Denediniz mi?

 

[Turgaysendinc]

8 - 15 mb arasında değişiyor.

 

[Turgaysendinc]

Arkadaşlar böyle bir macro yazılırmı yazılmazmı cevap verecek kimse yokmu.

 

[Ferhat Pazarçevirdi]

Arkadaşlar böyle bir macro yazılırmı yazılmazmı cevap verecek kimse yokmu.

Şimdi; Var desem bir türlü, yok desem bir türlü ... Biraz sabır lütfen ...

Aşağıdakini standart bir modül sayfasına kopyalayıp, her kitapta çalıştırınız...

Sub Resim_Ayarla()
Dim sh As Worksheet
Dim res As Shape
Dim res2 As Shape
Set sh = ActiveSheet
For Each res In sh.Shapes
   If res.Type = msoPicture Then
      res.Copy
      sh.PasteSpecial Format:="Resim (JPEG)"
      Selection.ShapeRange.Left = res.Left
      Selection.ShapeRange.Top = res.Top
      res.Delete
   End If
Next
Set sh = Nothing
End Sub