VBA powerpoint - 更改表格單元格陰影的代碼

-1

我有一張幻燈片上的PowerPoint 2010演示文稿。我想創建一個VBA無模式表單，它將像格式/顏色的格式一樣工作，用於格式化該表格的單元格。基本上，窗體上的按鈕只會模擬在表格工具/設計菜單中點擊特定的着色顏色。VBA powerpoint - 更改表格單元格陰影的代碼

例如：

我光標放置到細胞然後在活化無模式形式的按鈕。該單元格的陰影將根據代碼中的顏色而改變。

我想這樣做的原因是，其他一些人會用它和顏色必須是方便（格式刷不似乎並沒有複製的陰影）

但我不能找到一種方法，製作這個VBA。我曾嘗試在Word中記錄宏（不可能在PP中），但沒有成功。

來源

2014-12-02 user2523971

馬可記錄不是在PowerPoint中使用，我想它在Word中，但代碼不在powerpoint工作。在Excel中錄製也給出了一個不可用於PowerPoint的代碼。 – user2523971 2014-12-03 09:01:26

嘗試......（未拋光的代碼，但應該給你你需要什麼（ED））

Public sub TblCellColorFill() 

    Dim X As Integer 
    Dim Y As Integer 
    Dim oTbl as Table 

    set oTbl = ActiveWindow.Selection.Shaperange(1).Table 'Only works is a single table shape is selected - add some checks in your final code! 

     For X = 1 To otbl.Columns.Count 

      For Y = 1 To otbl.Rows.Count 

       With otbl.Cell(Y, X) 

        If .Selected <> False Then 'Strange bug - will ignore if statement entirely if you use "= True" 
         'Debug.Print "Test worked " & Now 

         'We have the shape we need 
         .shape.Fill.ForeColor.RGB = RGB(100, 150, 200) 'Add your color here 

        End If 
       End With 
      Next 'y 
     Next 'x 
    End Sub

來源

2015-05-27 07:40:56 GreatSheikhs

VBA powerpoint - 更改表格單元格陰影的代碼

回答

相關問題