كود لتغيير نمط صندوق التعليقات

Code VBA To Change Style Comment Box

تغيير نمط صندوق التعليقات باستخدام VBA

كود VBA بسيط جدا
يمكنك من خلاله تغيير لون خلفية صندوق التعليقات دفعة واحدة
مع تغيير لون الخط
ونمط الخط
وحجم الخط

الكود البرمجي المستخدم يوضع داخل Module

ومن ثم يمكنك استدعاؤه لتغيير أنماط التعليقات دفعة واحدة الموجوده داخل الـ Sheet



'Permits any person to use this code provided that the source is mentioned
'https://elshriefacademy.blogspot.com

Sub Change_Comments_Style()

Dim MyComments As Comment
Dim LArea As Long

    For Each MyComments In ActiveSheet.Comments

      With MyComments
        .Shape.AutoShapeType = msoShapeRoundedRectangle
        .Shape.TextFrame.Characters.Font.Name = "Arial"
        .Shape.TextFrame.Characters.Font.Size = 10
        .Shape.TextFrame.Characters.Font.Bold = True
        .Shape.TextFrame.Characters.Font.ColorIndex = 2
        .Shape.Line.ForeColor.RGB = RGB(0, 0, 0)
        .Shape.Line.BackColor.RGB = RGB(255, 255, 255)
        .Shape.Fill.Visible = msoTrue
        .Shape.Fill.ForeColor.RGB = RGB(58, 82, 184)
        .Shape.Fill.OneColorGradient msoGradientDiagonalUp, 1, 0.23

      End With

    Next

End Sub

من خلال السطر البرمجي التالي الموجود بالشفرة أعلاه يمكنك تغيير شكل اطار التعليق
تم تحديد اسم اطار التعليق باللون الأحمر لتمييزه


.Shape.AutoShapeType = msoShapeRoundedRectangle

وبالطبع من خلال الأسطر البرمجية التالية والموجودة بالشفرة أعلاه يمكنك تغيير ( لون الخط ، ونمط الخط ، وحجم الخط .. الخ)


.Shape.TextFrame.Characters.Font.Name = "Arial"
.Shape.TextFrame.Characters.Font.Size = 10
.Shape.TextFrame.Characters.Font.Bold = True
.Shape.TextFrame.Characters.Font.ColorIndex = 2
.Shape.Line.ForeColor.RGB = RGB(0, 0, 0)
.Shape.Line.BackColor.RGB = RGB(255, 255, 255)
.Shape.Fill.Visible = msoTrue
.Shape.Fill.ForeColor.RGB = RGB(58, 82, 184)
.Shape.Fill.OneColorGradient msoGradientDiagonalUp, 1, 0.23

أكاديمية محمود زكى الشريف

Search Suggest

كود لتغيير نمط صندوق التعليقات

كود لتغيير نمط صندوق التعليقات

إرسال تعليق