更改 VBA 中文本框的颜色（阴影 off/colour 渐变）

Question

我正在尝试 在 VBA 中我的 PowerPoint 演示文稿 开头插入自动摘要。（我对 Visual Basic 还很陌生）

我找到了提供参考的代码，但我似乎无法弄清楚一个形状的颜色渐变。

With ActivePresentation.Slides(1)
.Shapes(1).Fill.Visible = msoTrue
.Shapes(1).Fill.ForeColor.RGB = RGB(208, 30, 60)
.Shapes(1).Fill.BackColor.RGB = RGB(97, 18, 30)
.Shapes(1).Fill.TwoColorGradient msoGradientHorizontal, 2
.Shapes(1).Line.Visible = msoFalse

网上的文档说方法是 ForeColor 和 BackColor，但我似乎无法让它工作。我不明白为什么第二种颜色是白色而不是 RGB 代码所说的深红色。

我当前的模板在侧面有标题，在右侧有垂直文本。文本框使用从 RGB(208, 30, 60) 到 RGB(97, 18, 30) 的线性阴影着色，角度为 270°。

这是完整的 VBA 代码给出的（最后）

这是我想要的（数字如 VBA 幻灯片中所示）

完整代码：

Sub Sommaire()
Dim Diapo As Slide
Dim titre As Shape
Dim petit_titre As Shape
Dim texte_ajout As TextRange
Dim texte_sommaire As TextRange
Dim ligne_sommaire As TextRange
Dim y As Byte
'Si le titre de la première diapo est "Sommaire", elle sera supprimée
'cela permet de relancer la macro autant de fois que l'on souhaite
'sans avoir à supprimer la diapo de sommaire
If ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange = "SOMMAIRE" Then
ActivePresentation.Slides(1).Delete
End If
' ajoute une diapo en début de présentation avec
'la disposition de mise en titre n°2 du masque
ActivePresentation.Slides.Add Index:=1, Layout:=ppLayoutText

With ActivePresentation.Slides(1)
.Shapes(1).TextFrame.TextRange = "SOMMAIRE"
.Shapes(1).TextFrame.TextRange.Font.Color.RGB = RGB(255, 255, 255)
.Shapes(1).TextFrame.TextRange.Font.Name = "Arial Black"
.Shapes(1).TextFrame.TextRange.Font.Size = 24
.Shapes(1).TextFrame2.TextRange.Font.Spacing = 3


.Shapes(1).TextFrame2.VerticalAnchor = msoAnchorBottom
.Shapes(1).TextFrame2.TextRange.ParagraphFormat.Alignment = _
        msoAlignLeft

.Shapes(1).TextFrame2.MarginLeft = 14.1732283465
.Shapes(1).TextFrame2.MarginRight = 14.1732283465
.Shapes(1).TextFrame2.MarginTop = 14.1732283465
.Shapes(1).TextFrame2.MarginBottom = 28.3464566929
.Shapes(1).TextFrame2.WordWrap = msoTrue
.Shapes(1).TextFrame.Orientation = msoTextOrientationUpward
.Shapes(1).Left = 0 * 72
.Shapes(1).Top = 0 * 72
.Shapes(1).Height = ActivePresentation.PageSetup.SlideHeight
.Shapes(1).Width = 0.975 * 72

.Shapes(1).Fill.Visible = msoTrue
.Shapes(1).Fill.ForeColor.RGB = RGB(208, 30, 60)
.Shapes(1).Fill.BackColor.RGB = RGB(97, 18, 30)
.Shapes(1).Fill.TwoColorGradient msoGradientHorizontal, 2
.Shapes(1).Line.Visible = msoFalse

.Shapes(1).Shadow.Type = msoShadow25
.Shapes(1).Shadow.Visible = msoTrue
.Shapes(1).Shadow.Style = msoShadowStyleInnerShadow
.Shapes(1).Shadow.Blur = 5
.Shapes(1).Shadow.OffsetX = 3.9993907806
.Shapes(1).Shadow.OffsetY = -0.0698096257
.Shapes(1).Shadow.ForeColor.RGB = RGB(52, 9, 16)
.Shapes(1).Shadow.Transparency = 0.5


Set texte_ajout = .Shapes(2).TextFrame.TextRange
End With

With ActivePresentation.Slides(1).Shapes _
     .AddShape(msoShapeRectangle, 1.5275 * 72, 32.7, 180, 29.1)
    .TextFrame.TextRange.Text = "Sommaire"
    .TextFrame.MarginBottom = 10
    .TextFrame.MarginLeft = 10
    .TextFrame.MarginRight = 10
    .TextFrame.MarginTop = 10
    .TextFrame.TextRange.Font.Name = "Arial Black"
    .TextFrame.TextRange.Font.Size = 18
    .TextFrame2.VerticalAnchor = msoAnchorMiddle
        .TextFrame2.TextRange.ParagraphFormat.Alignment = _
        msoAlignLeft
    .Fill.Visible = msoFalse
    .Line.Visible = msoFalse
    .TextFrame2.TextRange.Characters(1, 1).Font.Fill.ForeColor.RGB = RGB(208, 30, 60)
    .TextFrame2.TextRange.Characters(2, 7).Font.Fill.ForeColor.RGB = RGB(39, 39, 39)
    .Shadow.Visible = msoFalse

    End With







'boucle sur toutes les diapos à partir de la 2e
For y = 2 To ActivePresentation.Slides.Count
Set Diapo = ActivePresentation.Slides(y)
'si la diapo a un titre
If Diapo.Shapes.HasTitle Then
Set titre = Diapo.Shapes.Title
texte_ajout = texte_ajout & Format(y, "0 - ") & titre.TextFrame. _
TextRange.Text & Chr(13) & vbCrLf
End If
Next y
'ajout de liens aux items du sommaire
Set texte_sommaire = _
ActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange
texte_sommaire.Font.Size = 20
texte_sommaire.Font.Color.RGB = RGB(39, 39, 39)

With ActivePresentation.Slides(1).Shapes(2)
.Left = 1.5275 * 72
.Top = 1.9 * 72
End With

End Sub

提前致谢

Answer 1

我从 Excel 宏记录器中选择了它，因为形状和大多数对象在 Office 应用程序之间仍然有很多公共部分。

ActiveSheet.Shapes.Range(Array("TextBox 1")).Select
With Selection.ShapeRange
    With .Fill
        .ForeColor.RGB = RGB(255, 0, 0)
        .BackColor.RGB = RGB(0, 0, 1)
        .TwoColorGradient msoGradientHorizontal, 1
        .RotateWithObject = msoTrue
        .Visible = msoTrue
    End With
    With .TextFrame2.TextRange.Font
        .BaselineOffset = 0
        .Spacing = 1.6
    End With
End With

您只需 "attach"（替换 Selection）到您的文本框，但我认为您可以处理。我将编辑我的答案以包括我在评论中给你的所有指示。

更改 VBA 中文本框的颜色（阴影 off/colour 渐变）

Changing the color of a textbox in VBA (shading off/colour gradient)

powerpoint

vba

gradient

backcolor