كيفية تغيير لون مؤشر التعليق في Excel؟

في Excel، بعد إدراج تعليق، يظهر مثلث صغير أحمر كمؤشر في الزاوية العلوية اليمنى من الخلية. قد يتساءل العديد من مستخدمي Excel عما إذا كان بالإمكان تغيير لون هذا المؤشر الأحمر إلى لون آخر يفضلونه. في هذه المقالة، سأوضح لك حلاً بديلاً لإنجاز هذه المهمة.

تغيير لون مؤشر التعليق باستخدام كود VBA

تغيير لون مؤشر التعليق باستخدام كود VBA

لا توجد طريقة مباشرة لتغيير لون مؤشرات التعليقات بسرعة وسهولة، ولكن الكود البرمجي التالي بلغة VBA يمكنه مساعدتك في رسم شكل مثلثي يغطي كل مؤشر تعليق باللون الذي تريده على ورقة العمل النشطة.

1. فعّل ورقة العمل التي ترغب في تغيير لون مؤشرات التعليقات فيها.

2. اضغط باستمرار على مفاتيح ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

3. انقر على إدراج > وحدة نمطية، ثم الصق الكود التالي في نافذة الوحدة النمطية.

كود VBA: تغيير لون مؤشر التعليق في ورقة العمل النشطة

Sub CoverCommentIndicator()
'Update 20141110
Dim pWs As Worksheet
Dim pComment As Comment
Dim pRng As Range
Dim pShape As Shape
Set pWs = Application.ActiveSheet
wShp = 6
hShp = 4
For Each pComment In pWs.Comments
  Set pRng = pComment.Parent
  Set pShape = pWs.Shapes.AddShape(msoShapeRightTriangle, pRng.Offset(0, 1).Left - wShp, pRng.Top, wShp, hShp)
  With pShape
    .Flip msoFlipVertical
    .Flip msoFlipHorizontal
    .Fill.ForeColor.SchemeColor = 12
    .Fill.Visible = msoTrue
    .Fill.Solid
    .Line.Visible = msoFalse
  End With
Next
End Sub

4. بعد لصق الكود، اضغط على مفتاح F5 لتنفيذ الكود، وسيتم تغطية جميع مؤشرات المثلث الأحمر بمثلثات زرقاء كما هو موضح في لقطات الشاشة التالية:

ملاحظات:

1. في الكود أعلاه، يمكنك تغيير اللون الأزرق إلى أي لون تريده فقط بتغيير رمز اللون في السطر .Fill.ForeColor.SchemeColor =12.

2. الشكل المثلثي الذي تضيفه باستخدام كود VBA أعلاه سيتغير حجمه عند تغيير حجم الخلية.

3. إذا كنت ترغب في إزالة جميع أشكال المثلث الملونة فوراً، يمكنك استخدام كود VBA التالي:

كود VBA: إزالة الأشكال المثلثة فوق مؤشرات التعليقات

Sub RemoveIndicatorShapes()
'Update 20141110
Dim pWs As Worksheet
Dim pShape As Shape
Set pWs = Application.ActiveSheet
For Each pShape In pWs.Shapes
    If Not pShape.TopLeftCell.Comment Is Nothing Then
      If pShape.AutoShapeType = msoShapeRightTriangle Then
        pShape.Delete
      End If
    End If
Next
End Sub

مقالات ذات صلة:

كيفية تمييز جميع الخلايا التي تحتوي على تعليقات في Excel؟

كيفية إظهار أو إخفاء جميع التعليقات ومؤشرات التعليقات في Excel؟