Mehmet Sait
Altın Üye
- Katılım
- 19 Ekim 2009
- Mesajlar
- 834
- Excel Vers. ve Dili
- Office 2016 TR
- Altın Üyelik Bitiş Tarihi
- 08-09-2028
Merhaba
Ekli kodda bulunan Mesaj = Range (" N5 ") koduna yazı font ve biçim eklemek istiyorum. Arial 12 Bold yapmak için ne yapmam gerek.
Yardımlarınız için teşekkür ederim.
Ekli kodda bulunan Mesaj = Range (" N5 ") koduna yazı font ve biçim eklemek istiyorum. Arial 12 Bold yapmak için ne yapmam gerek.
Yardımlarınız için teşekkür ederim.
Dim Boolean Olarak İşlendi
Dim I Uzun
Dize Olarak Dize PdfFile, Dize Başlığı
Nesne Olarak Dışa Çıkmak
Başlık = Range ("E2") ve "-" ve Aralık ("E3")
Kime = Range ("N2")
Bilgi = Range ("N3")
Gizli = Range ("N4")
Mesaj = Range ("N5")
'PdfFile = ActiveWorkbook.FullName
'i = InStrRev (PdfFile, ".")
Eğer i> 1 ise PdfFile = Sol (PdfFile, i - 1)
PdfFile = PdfFile & "" & [E2] & "" & [E3] & ".pdf"
ActiveSheet ile
.ExportAsFixedFormat Türü: = xlTypePDF, Dosya Adı: = PdfFile, Kalite: = xlQualityStandard, IncludeDocProperties: = Doğru, IgnorePrintAreas: = False, OpenAfterPublish: = False
İle bitmek
Hata Devam Ediyor Sonraki
OutlApp = GetObject ("Outlook.Application") öğesini ayarla
Err ise
OutlApp = CreateObject öğesini ayarla ("Outlook.Application")
IsCreated = Doğru
Son
OutlApp.Visible = Doğru
Hatada GoTo 0
OutlApp.CreateItem ile (0)
.Subject = Başlık
.To = Kime
.CC = Bilgi 'bilgi olarak kime
.BCC = Gizli
.Body = Mesaj
'"....," & vbLf & vbLf _
'& "....." & vbLf & vbLf _
'& "...." & vbLf _
'& [C81] & vbLf _
'& [C83] & vbLf & vbLf
.Attachments.PdFdfFile Ekle
[/ iCode]