• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

mail body kısmına resim eklemek

B

burcin_end_muh

Altın Üye
Katılım
14 Ocak 2013
Mesajlar
167
Excel Vers. ve Dili
Türkçe 2013
merhabalar,

forumda fazlasıyla arama yaptım ancak istediğim gibi bir sonuç elde edemedim.

dosyamdaki sayfa1 b2:f35 aralığını mailin body kısmına resim eklemek istiyorum. çok örnek var ama tam olarak bunu bulamadım.

burda aynı konu var ama farklı şekilde çözülmüş sanırım.http://www.excel.web.tr/archive/index.php/t-149057.html


Burda büyük bi çalışma var işime yarayan kısımlar zaten aldım.
http://www.rondebruin.nl/win/section1.htm


Yardımlarınız için teşekkür ederim şimdiden.
 

Ekli dosyalar

Eklediğiniz dosyadaki 2. modüldeki bahsettiğiniz makro ile mailin gövde bölümüne resim ekleniyor.
 
Korhan Ayhan' Alıntı:
Eklediğiniz dosyadaki 2. modüldeki bahsettiğiniz makro ile mailin gövde bölümüne resim ekleniyor.
Genişletmek için tıkla ...

Merhaba Korhan Bey,

resim değil de tablo gibi ekliyor. yani eklediği kısımda yazıların üstüne tıklamaya çalıştığınızda düzeltme yapılabiliyor. Benim istediğim o tabloyu resim olarak yapıştırması.

Makro kaydedicisinden kopyalayıp resim olarak yapıştırdığımda ActiveSheet.Pictures.Paste.Select şeklinde komut yazıyor.

Yardımcı olabılırsenız çok sevinirim. iyi günler dilerim
 
Merhaba
Seçtiğin tabloyu tekrar picture şeklinde yapistirabilirsin ayni range üzerine. Sonra ikinci belirttigin kod ayni gorevi yapacaktir.
 
THYExcelGuru' Alıntı:
Merhaba
Seçtiğin tabloyu tekrar picture şeklinde yapistirabilirsin ayni range üzerine. Sonra ikinci belirttigin kod ayni gorevi yapacaktir.
Genişletmek için tıkla ...

Merhaba,
birinci kodun ilgili kısmını düzeltebilir misiniz? deniyorum ama asla olmuyor.
Şimdilik uzun bi çözüm kullanıyorum. Tabloyu resim olarak c ye kaydediyorum ordan mail içeriğine taşıyorum sonra c den siliyorum.

yardım ederseniz çok sevinirim.
 
Ekteki dosyayı inceleyin...

Kod: 
Sub Embedded_Picture_onMail()
    Application.ScreenUpdating = False
    
    tmp = CreateObject("Scripting.FileSystemObject").GetSpecialFolder(2) & "\pic.jpg"
    
    Set r = ThisWorkbook.ActiveSheet.Range("b2:f35")
    
    ExportPicture r, tmp
    
    Set App = CreateObject("Outlook.Application")
    
    Set Itm = App.CreateItem(0)
    
    Itm.Attachments.Add tmp
    
    Itm.HTMLBody = "<html><img src='cid:" & Dir(tmp) & "'></html>"
    
    Application.ScreenUpdating = True
    
    Itm.Display
End Sub

Private Sub ExportPicture(ByVal rng As Range, ByVal tmpfile As String)
    rng.CopyPicture
    
    Set graf = ThisWorkbook.ActiveSheet.ChartObjects.Add(0, 0, rng.Width, rng.Height)
    graf.Select
    With graf.Chart
        .Paste
        .Export tmpfile
        .Parent.Delete
    End With
End Sub
 

Ekli dosyalar

Merhaba Zeki Bey,

Öncelikle yardımlarınız için çok çok teşekkür ederim. Tam olarak istediğim şey buydu. Bazı eklemeler yaptım ve bir sorum daha olacak;

şimdi resim olarak yapıştırınca yukarıdaki yazılı kısım çok hoş durmadı, eğer mümkünse şunu yapmak istiyorum;

yukarıdaki ilk iki satırı body ye yazı olarak eklemek sonrasında tabloyu resim olarak yapıştırmak ve son satırı yine boy ye yazı olarak eklemek.

tekrar yardımcı olabilirseniz çok sevinirim.
 

Ekli dosyalar

Son mesajdaki sorduğum şeyi es geçelim, onun yerine resmin boyutunu değiştirmem benim için daha faydalı olacak. Bu konuda yardım edebilirseniz çok makbul geçer.

Teşekkür ederim
 
burcin_end_muh' Alıntı:
Son mesajdaki sorduğum şeyi es geçelim, onun yerine resmin boyutunu değiştirmem benim için daha faydalı olacak. Bu konuda yardım edebilirseniz çok makbul geçer.

Teşekkür ederim
Genişletmek için tıkla ...

kendi sorumu cevaplayım;

Selection.ShapeRange.ScaleWidth 1.2, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.2, msoFalse, msoScaleFromTopLeft

bu şekilde çözdüm. Zeki bey tekrar çok teşekkür ederim.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst