VBA의 Powerpoint 변경 표 구성

Question

슬라이드의 표를 편집하려고하는데이 코드를 사용하고 있지만 완료하는 데 많은 시간이 걸립니다.

For lRow = 1 To oTbl.Rows.Count 
For lCol = 1 To oTbl.Columns.Count 
With oTbl.Cell(lRow, lCol).Shape.TextFrame.TextRange 
.Font.Name = "Arial" 
.Font.Size = 30 
End With 
Next 
Next 

Answer 1

이 코드가 도움이 될 수 있습니다. 활성 프레젠테이션의 각 테이블에서 형식이 변경됩니다. 글꼴 이름과 글꼴 크기를 업데이트하면됩니다.

서브 포맷() 표 어둡게 lRow 같이 형상 어둡게 oTbl만큼 어둡게 lCol을 어둡게 OSH 슬라이드

어둡게들만큼 각각

는 ActivePresentation.Slides 긴이야

For Each oSh In s.Shapes 
    If oSh.HasTable Then 
     Set oTbl = oSh.Table 
     For lRow = 1 To oTbl.Rows.Count 
      For lCol = 1 To oTbl.Columns.Count 
       With oTbl.Cell(lRow, lCol).Shape.TextFrame.TextRange 
        .Font.Name = "Batang" 
        .Font.Size = 16 
       End With 
      Next 
     Next 
    End If 
Next 

다음 s

end 서브