Soru Excel resim nesnesi fazla yer kaplıyor?

[basaksehirli]

İyi akşamlar arkadaşlar.
Excel uygulamamı userform arayüzü ile kullanmaktayım.
Resimleri Excel içerisindeki nesneye ekleyip, userform üzerinden görüntülüyorum. Yani resimler Excel'e gömülü vaziyette.
Kontrollerimde toplamda 20 mb olan 700 resim, Excel'in dosya boyutunu 200 mb'e çıkarıp, açılış süresini ise 1 dakika 35 saniye de tamamlıyor.
Bu konuda neler önerebilirsiniz ?

 

[tukayf]

Resimleri excele yüklemek yerine belli bir yoldan çekseniz hem şişmez hem daha hızlı işlem yapar sanırım.

 

[basaksehirli]

Doğrudur, öyle hazırladığım dosyam var ama resimlere kolay ulaşılamaması için veya kaybedilmemesi için böyle bir yol izlemem icap etti.

 

[cicosz]

Merhaba,

Fotoğrafları alırken kullandığınız kodu paylaşır mısınız? Muhtemelen gerçek boyutunda alıp sonra boyut ayarlaması yapıyorsunuz.

 

[basaksehirli]

Userform üzerinden resim ekleme kodlarım.

Private Sub CommandButton6_Click()
On Error Resume Next


If Image1.Picture = LoadPicture("") Then

If ComboBox3.Text = "" Then
        MsgBox "Lütfen veri seçiniz!", vbExclamation, "Uyarı!"
        Exit Sub
    End If
Dim resim As String

    resim = "Resim Dosyaları (*.jpg),*.jpg"
    baslik = "Resim Seçimi"
 
    secilendosya = Application.GetOpenFilename(resim, , baslik)
    Image1.Picture = LoadPicture(secilendosya)
  
    If secilendosya = False Then Exit Sub
      
Dim shapeImage As OLEObject

With Worksheets("veri")
 

Set shapeImage = .OLEObjects.Add(ClassType:="Forms.Image.1", _
Left:=.Cells(2, "B").Left, _
Top:=.Cells(2, "B").Top, _
Width:=Me.Image1.Width, _
Height:=Me.Image1.Height)
End With

With shapeImage
.Object.PictureSizeMode = 3
.Object.Picture = Me.Image1.Picture
End With

 ActiveSheet.Pictures(ActiveSheet.Pictures.Count).Name = ComboBox3.Value
  Else
  MsgBox "Fotoğraf bulunmaktadır. Fotoğrafı değiştir seçeneğini kullanın!", vbInformation, "Bilgi!"
Exit Sub

End If

End Sub

 

[basaksehirli]

Resim nesnesini boş eklediğimde 2 kb artıyor dosya. 25 kb boyutunda resim eklediğimde ise dosya 500-600 kb artıyor.

 

[cicosz]

Merhaba,

Width:=Me.Image1.Width, _
Height:=Me.Image1.Height) eşitliklerinin sağ kısımlarını, fotoğrafı yerleştirdiğiniz aralığın ölçülerine göre sayısal değere çevirerek dener misiniz?
Örneğin;
Width:=50, _
Height:=50)

 

[basaksehirli]

Yok hocam işe yaramadı daha da arttı öyle. Sayıları değiştirerek denedim ama artıyor.

 

[cicosz]

Merhaba,

Temsili veriler içeren örnek dosyanızı paylaşır mısınız? Onun üzerinden gidersek daha etkili olabilir.

 

[basaksehirli]

Kutucuğa Tc girip, resim ekle dediğiniz zaman boyutun fazla arttığını göreceksiniz.

 

[cicosz]

Merhaba,

Bir de bu şekliyle dener misiniz? Bakalım bu dosyayla sizi oluşturmuş olduğunuz dosya arasında boyutsal fark var mı?

 

[basaksehirli]

Hocam deneyeceğim eve geçince, bir bakayım. Sağolasın şimdiden.

 

[basaksehirli]

Hocam eklenen resimi userformda Image'de göremiyorum. Dosya boyutu epeyce azalmış o sorun hallolmuş ama orjinal resim ekle kodlarıma uyarlamak, düzelt ve sil butonlarıma uyarlamak da zorlanıyorum. Neleri değiştirsem yeterli acaba ?

 

[cicosz]

Merhaba,

Şu şekliyle dener misiniz?