VBA 파워 포인트 - 테이블의 셀 음영을 변경하는 코드

Question

하나의 슬라이드에 테이블이있는 PowerPoint 2010 프리젠 테이션이 있습니다. 해당 테이블의 셀 서식을 지정하기 위해 형식/색의 팔레트처럼 작동하는 VBA 모덜리스 형식을 만들고 싶습니다. 기본적으로 양식의 단추는 표 도구/디자인 메뉴에서 특정 음영 색을 클릭하기 만하면됩니다.

예 :

내가 다음 활성화 모덜리스 형태의 버튼을 클릭 셀에 커서를 놓습니다. 해당 셀의 음영은 코드의 색상에 따라 변경됩니다.

내가 이렇게 할 이유는 다른 사람들이 그것을 사용하고 색상이 쉽게 접근 할 수 있어야합니다

(서식 복사는 음영을 복사하는 것 같지 않습니다)하지만 내가 할 수있는 방법을 찾을 수 있다는 것입니다 이 VBA를 만드십시오. Word에서 매크로 기록을 시도했지만 성공하지 못했습니다.

Answer 1

이 시도 ... (광택 없음 코드,하지만 당신을 제공한다 당신은 (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