VBA Powerpointアクティブなセルグラデーションを変更します

Question

私は、選択されたセル内の選択されたセルのグラデーション&の塗りつぶし設定を調整するPowerpoint内でマクロを作成しようとしています。

私はこれをExcelで簡単にやったことがありますが、私が管理してきたPowerpointのために、それを複製することはできません。いろいろなサイトで読んだことがありますが、まだ進んでいないのですが、私が下のExcelコードで作成したのと同じ効果をどのように生み出すことができるかについてのアドバイスをいただければ幸いです。

*編集：少しでも機能していますが、まだ100％色に満足していません。

エクセルコード：（ワーキング）

ActiveCell.Select 
With Selection.Interior 
    .Pattern = xlPatternLinearGradient 
    .Gradient.Degree = 90 
    .Gradient.ColorStops.Clear 
End With 
With Selection.Interior.Gradient.ColorStops.Add(0) 
    .ThemeColor = xlThemeColorDark1 
    .TintAndShade = 0 
End With 
With Selection.Interior.Gradient.ColorStops.Add(1) 
    .Color = 39372 
    .TintAndShade = 0 
End With 

---

PowerPointのコード（WIP）

Dim oSh As Shape 
Dim oTbl As Table 
Dim lRow As Long ' your i 
Dim lCol As Long ' your j 
Set oSh = ActiveWindow.Selection.ShapeRange(1) 
Set oTbl = oSh.Table 

With oTbl 
    For lRow = 1 To .Rows.Count 
     For lCol = 1 To .Columns.Count 
      If .Cell(lRow, lCol).Selected Then 
       With .Cell(lRow, lCol).Shape 
        .Fill.TwoColorGradient msoGradientHorizontal, 1 
       .Fill.ForeColor.RGB = RGB(255, 222, 129) 
       .Fill.BackColor.RGB = RGB(208, 154, 0) 

        End With 
      End If 
     Next 
    Next 
End With 

End Subの

Answer 1

私はあなたが働いてそれを得た参照してください。使用したRGBカラーが気に入らない場合は、まずPowerPointのUIでスタイルをデザインしてから、デザインしたものをコード化します。マルチストップ（以上2）勾配を持つために、あなたは、このような停止追加することができます。

Sub TableCellGradient() 
    Dim oSh As Shape 
    Dim oTbl As Table 
    Dim lRow As Long ' your i 
    Dim lCol As Long ' your j 
    Set oSh = ActiveWindow.Selection.ShapeRange(1) 
    Set oTbl = oSh.Table 

    With oTbl 
    For lRow = 1 To .Rows.Count 
     For lCol = 1 To .Columns.Count 
     If .Cell(lRow, lCol).Selected Then 
      With .Cell(lRow, lCol).Shape.Fill 
      .TwoColorGradient msoGradientHorizontal, 1 
      .ForeColor.RGB = RGB(255, 222, 129) 
      .BackColor.RGB = RGB(208, 154, 0) 
      .GradientStops.Insert RGB(255, 255, 255), 0.5, 1 
      End With 
     End If 
     Next 
    Next 
    End With 
End Sub