Word VBA添加侧边栏形状：如何修改填充与轮廓颜色？

要修改形状的填充和轮廓颜色，直接通过Shape对象的Fill和Line属性即可实现，以下是修正后的完整代码，同时修复了原代码中位置定位的问题：

Sub Sidebar() 
    Application.ScreenUpdating = False
    Dim Shp As Shape, Hght As Single, Wdth As Single
    Hght = InchesToPoints(11): Wdth = InchesToPoints(2.17)
    
    With ActiveDocument
        Set Shp = .Shapes.AddShape(Type:=msoShapeRectangle, _
            Left:=0, _
            Top:=0, _
            Width:=Wdth, Height:=Hght)
    End With
    
    ' 设置填充颜色为浅灰色（RGB值可根据需求调整）
    Shp.Fill.ForeColor.RGB = RGB(217, 217, 217)
    ' 可选：设置填充透明度，0为完全不透明，1为完全透明
    ' Shp.Fill.Transparency = 0.1
    
    ' 设置轮廓颜色为深灰色
    Shp.Line.ForeColor.RGB = RGB(100, 100, 100)
    ' 若不需要轮廓，取消下方注释即可
    ' Shp.Line.Visible = msoFalse
    
    ' 确保形状相对于页面定位
    Shp.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
    Shp.RelativeVerticalPosition = wdRelativeVerticalPositionPage
    ' 将形状置于文字下方，避免遮挡文档内容
    Shp.ZOrder msoSendBehindText
    
    ' 可选：给侧边栏添加说明文字
    Shp.TextFrame.TextRange.Text = "文档侧边栏说明"
    Shp.TextFrame.TextRange.Font.Size = 12
    Shp.TextFrame.TextRange.Font.Color = RGB(50, 50, 50)
    ' 设置文字垂直居中
    Shp.TextFrame.VerticalAlignment = wdAlignVerticalCenter
    
    Application.ScreenUpdating = True
End Sub

关键参数说明： #

• RGB颜色控制：RGB函数的三个参数为红、绿、蓝通道的数值（0-255），灰度颜色只需保持三个参数一致，数值越小颜色越深（比如RGB(0,0,0)为黑色，RGB(255,255,255)为白色）。
• 主题颜色替代：如果想使用Word主题颜色而非固定RGB值，可替换填充颜色代码为：

  Shp.Fill.ForeColor.ThemeColor = wdThemeColorBackground2
  Shp.Fill.ForeColor.TintAndShade = 0.3 ' 调整明暗，正数变浅，负数变深
  

• 文字设置：通过TextFrame.TextRange可修改侧边栏内的文字内容、字体、对齐方式等，满足自定义说明需求。

内容的提问来源于stack exchange，提问作者M L