更改填充颜色

Question

我对 VBA 还很陌生，想要制作一个宏，在运行它时在右上角插入一个形状，上面写着 TBU。我试图让填充颜色为亮黄色（255,255,0），并且可以让代码处理除填充颜色之外的所有颜色。

我认为我在理解 With 函数时遇到了一些困难 - 所以如果你也能简短地解释我做错了什么，那就太好了！

非常感谢！！

Sub TBU()

Dim oSh As Shape
Dim myDocument As Presentation
Dim oSl As Slide
Dim sTitle As String

sTitle = "TBU"

Set myDocument = ActivePresentation

Set oSl = myDocument.Slides(Application.ActiveWindow.View.Slide.SlideIndex)

Set oSh = oSl.Shapes.AddTextbox(msoTextOrientationHorizontal, _
    Left:=600, Top:=10, Width:=155, Height:=50)
    
With Shape
    .Fill.ForeColor.RGB = RGB(255, 255, 0)
End With
    
With oSh.TextFrame.TextRange
    .Text = sTitle
    With .Font
        .Size = 24
        .Name = "Arial"
    End With
End With

End Sub

Answer 1

您将 oSh 对象创建为 Shape，因此请按如下方式使用 oSh。然后它就会起作用。下次发帖时请注明应用程序名称（VBA PowerPoint）。快乐编码。 :)

With oSh
    .Fill.ForeColor.RGB = RGB(255, 255, 0)
End With