Вытаскивание цветовой схемы из ячейки и применение к макросъемке

Question

У меня есть макрос, установленный на место, чтобы покрыть индикаторы комментариев (как правило, красные), чтобы он вписывался в цвет ячейки. Мне было интересно, какие дополнения мне нужно сделать для этого макроса, чтобы вместо этого вывести цветовую схему из ячейки, ссылаясь на нее, и разместить это значение для цветовой схемы?

Option Explicit 

Sub CoverCommentIndicator() 
Dim ws As Worksheet 
Dim cmt As Comment 
Dim rngCmt As Range 
Dim shpCmt As Shape 
Dim shpW As Double 'shape width 
Dim shpH As Double 'shape height 

Set ws = ActiveSheet 
shpW = 6 
shpH = 4 

For Each cmt In ws.Comments 
    Set rngCmt = cmt.Parent 
    With rngCmt 
    Set shpCmt = ws.Shapes.AddShape(msoShapeRightTriangle, _ 
     rngCmt.Offset(0, 1).Left - shpW, .Top, shpW, shpH) 
    End With 
    With shpCmt 
    .Flip msoFlipVertical 
    .Flip msoFlipHorizontal 
    .Fill.ForeColor.SchemeColor = 10 
    .Fill.Visible = msoTrue 
    .Fill.Solid 
    .Line.Visible = msoFalse 
    End With 
Next cmt 

Answer 1

Вместо того, чтобы добавлять фигуры в ячейки и пытаться сопоставить цвета ячеек, просто добавьте свой комментарий в качестве входного сообщения при проверке данных. Затем ваши комментарии появятся, когда ячейка будет выбрана, но в ячейке нет индикатора.

Если вам нужно сделать это с помощью макроса, вы можете использовать свойство ячейки .Validation.InputMessage для установки вашего входного сообщения. Попробуйте один раз с помощью макросъемщика, а затем измените код в соответствии с вашими потребностями.

Answer 2

Это должно покрыть:

.Fill.ForeColor.SchemeColor = cmt.Parent.Interior.ColorIndex + 2 ' + 2 just a number to let the color be different from the color index in the cell 

Кроме того, я думаю, что это хорошая идея enum the colors вы можете определить для этого.