VBA Excel中TextBox文本及属性设置无效问题求助

你的代码存在两个核心问题导致未达预期：

1. 未设置文本的垂直对齐方式，仅设置了水平居中；
2. 背景色设置方式错误，Shape对象的背景色需通过填充属性设置，而非直接使用.BackColor。

修正后的代码如下：

With Navshp
    ' 设置文本内容与格式
    .TextFrame.Characters.Text = UCase("Navigation")
    .TextFrame.TextRange.Font.Size = 22
    .TextFrame.TextRange.Font.Bold = True
    .TextFrame.TextRange.ParagraphFormat.Alignment = msoAlignCenter ' 水平居中
    
    ' 关键：设置文本垂直顶部对齐
    .TextFrame.VerticalAlignment = msoAlignTop
    
    ' 关闭自动调整大小
    .TextFrame.AutoSize = False
    
    ' 设置灰色背景（确保填充可见）
    .Fill.Visible = msoTrue
    .Fill.ForeColor.RGB = RGB(185, 185, 185)
End With

关键设置说明 #

• .TextFrame.VerticalAlignment = msoAlignTop：强制文本在文本框内垂直顶部对齐，解决文本位置问题；
• .Fill.Visible = msoTrue：确保形状填充可见，避免背景色不显示；
• .Fill.ForeColor.RGB = RGB(185, 185, 185)：正确设置Shape对象的背景填充色，替代原代码中无效的.BackColor。

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