MSGBOX için BOLD uygulaması

[bono]

Arkadaşlar bir türlü mesajbox içerisine yazdırmaya çalıştığım Application.Username i bold yazdıramıyorum. Her yolu denedim ancak bir türlü başaramadım.

Birde resim koymaya çalışmıştım msgbox içerisine ama onuda başaramadım.

Kodda nasıl bir değişiklik yapmam gerektiği konusunda yardım edebilirmisiniz?

Şimdiden teşekkürler

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
baslik = "DİKKAT"


kullanici = Application.UserName

aciklama = kullanici.Font.bold = True & " " + Chr(13) & Chr(13) & "Dosyayı kontrol ediniz." + Chr(13) + Chr(13)

aciklama1 = aciklama + "Çıkmak istediğinizden eminmisiniz?"

'resim = "E:\F4.jpg"

stil = vbYesNo + vbinformationresim + vbMsgBoxSetForeground

a = MsgBox(aciklama1, stil, baslik)

If a = vbYes Then

SON = Sheets("Kullanıcı").[A65536].End(3).Row
Sheets("Kullanıcı").Range("A" & SON + 1) = Application.UserName
Sheets("Kullanıcı").Range("b" & SON + 1) = Format(Now, "hh:mm:ss")
Sheets("Kullanıcı").Range("c" & SON + 1) = Format(Date, "dd-mm-yyyy")
Sheets("Kullanıcı").Range("d" & SON + 1) = "save etti"

Else

Cancel = True

End If

'If a = vbNo Then Cancel = True
End Sub

 

[Levent Menteşoğlu]

Boşuna uğraşmışsınız yazdıramazsınız. Userformda kendinize bir msgbox yapın ve bunu kullanın.

 

[Seyit Tiken]

Levent beyinde söylediği gibi formla yapabilirsiniz. Ekli dosyada, msgBox'a benzetilmiş bir UserForm çalışması mevcut. Username'nin uzunluğuna göre Label'leri ayarlamak gerekebilir.

 

[bono]

Üstadlar çok teşekkür ederim yardımlarınız için.

Seyit bey özellikle gönderdiğiniz dosya için gerçekten minnettarım. Bu dosyada boldsuz kullanmaya karar verdim ama gönderdiğiniz örnek çok iyi bir fikir olacaktır başka çalışmalarda. Fikrinize sağlık..

syg

 

[hsayar]

ekli dosya için The server is too busy at the moment. Please try again later.