阴影在第二次点击时应用

Question

正在尝试编写脚本以在以下脚本的帮助下一起应用填充颜色和阴影

    Sub Blue1() 'blue 1

    Dim sldFirst As Slide
    Set sldFirst = ActivePresentation.Slides(1)
    For Each Shape In ActiveWindow.Selection.ShapeRange

    Shape.Fill.ForeColor.RGB = RGB(69, 159, 237)

    Shape.TextFrame.TextRange.ParagraphFormat.Alignment = msoAlignCenter

    Shape.Line.Visible = False
      With Shape.Shadow
        .Size = 100
        .ForeColor.RGB = RGB(0, 112, 192)
        .Transparency = 0.8
        .Blur = 15
        .OffsetX = 0
        .OffsetY = 3
    End With          
    Next
End Sub

但是当我运行第一次单击代码时，它只应用阴影的填充颜色，我必须第二次单击运行按钮。你能帮我解决这个问题吗？

提前致谢

Answer 1

我认为您发现了一个错误。应该在第一时间应用颜色。但是，运行第二次执行该命令：

Sub Blue1() 'blue 1
  Dim sldFirst As Slide
  Set sldFirst = ActivePresentation.Slides(1)
  For Each Shape In ActiveWindow.Selection.ShapeRange
    With Shape
      .Fill.ForeColor.RGB = RGB(69, 159, 237)
      .TextFrame.TextRange.ParagraphFormat.Alignment = msoAlignCenter
      .Line.Visible = False
      With .Shadow
        .Size = 100
        .Transparency = 0.8
        .Blur = 15
        .OffsetX = 0
        .OffsetY = 3
        .ForeColor.RGB = RGB(0, 112, 192)
        .ForeColor.RGB = RGB(0, 112, 192)
      End With
    End With
  Next
End Sub

阴影在第二次点击时应用

Shadow is applying on second click

powerpoint

vba