Question

Set shp = aslide.Shapes.AddShape(Type:=msoShapeRectangle, Left:=50, Top:=185, Width:=600, Height:=26.6)
    shp.Line.Visible = msoFalse
    shp.TextFrame.TextRange.Font.Color.RGB = RGB(10, 47, 93)
    shp.TextFrame.TextRange.Characters.Text = "HI"
    shp.TextFrame.TextRange.Paragraphs.ParagraphFormat.Alignment = ppAlignLeft
    shp.TextFrame2.VerticalAnchor = msoAnchorMiddle
    shp.TextFrame2.TextRange.Font.Size = 28
    shp.TextFrame2.TextRange.Font.Name = "Arial"

我的幻灯片的默认布局为浅蓝色，但是当我添加此文本框时，我希望文本颜色为深蓝色，我可以看到文本，但背景为即使我没有使用填充功能，文本框也不会消失。如何解决这个问题，看起来真的太可怕了。提前致谢。

Answer 1

我认为这应该可以解决问题：

shp.Fill.Transparency = 0
shp.Fill.ForeColor.RGB = RGB(0, 0, 0)
shp.Fill.BackColor.RGB = RGB(0, 0, 0)

将形状上的背景颜色和前景色设置为黑色，只需将此颜色切换为与RGB中的背景颜色相匹配，就可以了。

或者，我刚测试将透明度设置为完全，即：

shp.Fill.Transparency = 1

这是有效的，因为它忽略了默认设置的任何颜色。

文本框背景颜色不会消失

1 个答案: