Excell 单元格注释和注释会阻止应用于单元格的形状正确安装

Question

我有一个 Excel 工作表，其中列出了各种设备，并使用图例通过内部填充将不同状态与每件设备关联起来。这种方法非常有效，直到我意识到某些设备可能具有多种状态。我尝试使用渐变，但效果并不好。然后，我尝试在单元格中添加额外的彩色字符，但它变得过于拥挤。最终，我决定将彩色形状应用于最多四个象限的单元格，并将单元格内容放置在形状上方的文本框中。除了一个例外，这完全有效。形状和文本完美适合每个单元格，除非单元格有注释或注释。注释/注释指示器导致形状向左移动，在左边框上渗出，并在单元格注释下留下空白区域。我尝试过更改偏移量和其他设置，但我根本无法让形状覆盖评论指示器。我无法删除需要的评论，但只要将鼠标悬停在单元格上仍然会显示评论，指示器就不需要可见。任何有关如何使形状适合单元格范围而不使注释指示器错位的建议将不胜感激。

响应 FunThomas，下面是我用来执行此操作的 VBA。

With ws.Shapes.AddShape(msoShapeRectangle, left, top, width, height)
        .Fill.ForeColor.RGB = ThisWorkbook.Colors(colorIndex) 
        .line.Visible = msoFalse
    End With

With ws.Shapes.AddTextbox(msoTextOrientationHorizontal, cell.left + commentOffset, top, cell.width - commentOffset, cell.height)
       .TextFrame.Characters.Text = cell.Value
       .TextFrame2.TextRange.Font.Fill.Transparency = 0
       .Fill.Transparency = 1
       .TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignCenter
       .TextFrame2.VerticalAnchor = msoAnchorMiddle
   End With   

Answer 1

关闭并重新打开Excel后，继续播放，发现偏移起作用了。