Mesaj kutusundaki yazı 16 punto ve kırmızı renkli olur mu?

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Mesaj kutusundaki yazının 16 punto ve kırmızı renkli olarak görünmesi için nasıl bir makro kullanılır?
Saygılarımla

 

[bosislermuduru]

msgbox için Bir Ayar Yok Diye Biliyorum Form Tasarlayıp Mesaj Kutusu Gibi Gösterebilirsin

 

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Bu konuya ihtiyacı olan varsa kullanabilir.

Sub TextBox_Ekle()
    Set myBox = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, Range("B5").Top, Range("B5").Left, 250, 100)
    myBox.Name = "Mesaj_Kutusu"
    
    xx = "J1 ve J2 hücrelerini": yy = "doldurmalısınız"
    myBox.Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = xx & Chr(13) & yy
    Selection.ShapeRange.TextFrame2.TextRange.ParagraphFormat.Alignment = _
        msoAlignCenter
    Selection.ShapeRange(1).TextFrame2.AutoSize = msoAutoSizeShapeToFitText
    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 9).Font.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        .Transparency = 0
        .Solid
    End With
    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(4, 2).Font.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(0, 0, 0)
        .Transparency = 0
        .Solid
    End With
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent4
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0.9000000119
        .Transparency = 0
        .Solid
    End With
    With Selection.ShapeRange.Line
        .Visible = msoFalse
    End With
    
    Selection.ShapeRange.TextFrame2.TextRange.Font.Size = 24
    Selection.ShapeRange.TextFrame2.TextRange.Font.Bold = True
    Application.WindowState = xlMaximized
    
    Application.Wait (Now + TimeValue("0:00:2"))
    ActiveSheet.Shapes("Mesaj_Kutusu").Delete
End Sub

İyi çalışmalar