2016-06-18 4 views
0

VBA를 사용하여 파워 포인트의 테이블에있는 셀에 들여 쓰기 및 행에 대한 사용자 정의 값을 설정하려고합니다. 아래 코드를 사용하고 있습니다.Powerpoint VBA에서 들여 쓰기 및 걸기에 대한 사용자 정의 값 설정

tb.Cell(1,1).Shape.TextFrame.Ruler.Levels(1).LeftMargin = 72 * 0.13 
tb.Cell(1,1).Shape.TextFrame.Ruler.Levels(1).FirstMargin = 0 

여기에서 tb는 표입니다. 셀이 비어 있지 않으면 잘 작동합니다. 그러나 셀이 비어 있으면 값은 변경되지 않습니다. 이를 달성 할 수있는 방법이 있습니까?

+0

지금이 권리를 테스트 할 시간이 없다,하지만 셀이 비어있는 경우, "더미를 추가 "텍스트를 입력하고 셀이 비어 있어야 함을 나타내는 플래그를 설정하고 코드를 실행 한 다음 플래그가 설정된 경우 텍스트를 다시 삭제하십시오. –

+0

나는 또한 같은 일을하려고 생각했지만 어떻게 든 그것은 나를 위해 일하지 않았다. 그것은 지금 일했습니다. 문제 해결됨. 매크로 complete.Thanku :) –

답변

1

셀 여백과 반대되는 텍스트의 단락 서식을 설정해야합니다. 사용이 :

With tb.Cell(1,1).Shape 
    ' Before 
    .TextFrame2.TextRange.ParagraphFormat.LeftIndent = 72 * 0.13 
    ' Hanging 
    .TextFrame2.TextRange.ParagraphFormat.FirstLineIndent = 0 
End With 

당신은 다음과 같이 각 단락에 대해 다르게 설정할 수 있습니다 :

.TextFrame2.TextRange.Paragraphs(lStart, lLength).ParagraphFormat.LeftIndent