Dosyadan resim almak...

[nokuyucu]

Şimdiden vereceğiniz cevaplara teşekkür ederim.
Forumda aradım ama bulamadım.

Word veya Excel 'e resim ilave edebiliyoruzda, aynı belgelerdeki resimleri jpeg olarak alabilirmiyiz?

 

[RFspur]

Word ya da Excel belgesi içerisine eklediğiniz resimler orijinal halleri ne olursa olsun wmf (windows metafile) formatına dönüştürülürler. Resim üzerinde sağ tuş yaparak kopyalayıp bir resim editörüne (paint gibi..) yapıştırabilirsiniz. Ya da ekran görüntüsünü kaydedebilirsiniz (print screen). Bunun dışında resmi resim formatında export edemiyorsunuz (en azından ben de bugüne kadar bir çözüm bulamadım).

 

[Ferhat Pazarçevirdi]

Aşağıdaki kod, sayfa üzerindeki tüm resimleri; "c:\" dizinin altına resim dosyayı olarak kopyalar. Siz isterseniz, dizini değiştirebilirsiniz.

Option Explicit
Sub Resim_Olarak_Aktar()
Dim oRsm As Shape
Dim oGrf As ChartObject
Dim sDzn As String
sDzn = "c:\"
For Each oRsm In ActiveSheet.Shapes
    If oRsm.Type = msoPicture Then
        oRsm.Copy
        Set oGrf = ActiveSheet.ChartObjects.Add(0, 0, oRsm.Width, oRsm.Height)
        With oGrf
            With .Chart
                .Paste
                .Export sDzn & oRsm.Name & ".gif"
            End With
            .Delete
        End With
    End If
Next
End Sub

 

[nokuyucu]

Teşekkür ederim.Ben sanırım pratik bir yol buldum.
Sayfayı açıp dosyadan farklı kaydedip;
web sayfası (htm,html) olarak kaydediyoruz.
Kaydettiğimiz yerde web sayfasıyla beraber dosyası geliyor.
O dosyanın içindende belgedeki resimleri alıyoruz.

 

[Ferhat Pazarçevirdi]

"En kısa yol, en iyi bildiğin yoldur" demiş üstadlar ...

Hangisi kolayınıza gidiyorsa o metodu kullanın