PowerPoint의 모양 위치를 모든 슬라이드에서 같은 값으로 설정해야합니다.

Question

수십 개의 슬라이드가 포함 된 수십 개의 PowerPoint 프로그램이 있습니다. 그들은 각 슬라이드마다 하나의 모양 만 있고 모양이나 슬라이드 사이에 애니메이션이 사용되지 않는다는 점에서 매우 기본입니다. 문제는 그 (것)들을 창조 한 사람들이 활주에서 활주로의 도형의 수직 위치에 실제로주의를 기울이지 않았기 때문에 한 슬라이드에서 다음 슬라이드로 갈 때 매우 두드러진다는 것입니다.

각 슬라이드의 각 모양에 대해 동일한 값으로 세로 위치를 빠르게 설정할 수 있기를 바랍니다. 수평 위치는 괜찮습니다. 나는 수동으로하고 있었지만 많은 슬라이드와 슬라이드 쇼가 있었고 오히려 시간이 많이 걸리므로 이것을하지 않아도됩니다.

Google에서이 사이트와 여기에서 검색 한 적이 있지만 아직 아무것도 찾지 못했습니다. VBA 코드가 필요한 경우에도 괜찮습니다. 오프 점프 지점으로 위 스티브의 제안을 사용

Sub LineEmUpDano() 
    Dim oSl as Slide 
    Dim sngTop as Single 

    ' Pick up the top position of the first shape 
    ' on the first slide: 
    SngTop = ActivePresentation.Slides(1).Shapes(1).Top 

    ' Apply the top position to each slide in the pres 
    For Each oSl in ActivePresentation.Slides 
    oSl.Shapes(1).Top = sngTop 
    ' you could instead use 
    ' oSl.Shapes(1).Top = 42 ' or whatever value you like 
    ' Values are in points, 72 points to the inch 
    Next ' slide 
End Sub 

Answer 1

다음 I이었다 일부 자습서를 읽고 :

나는 출발점으로 파워 포인트 2010

Answer 2

(총 에어 코드, 마음을) 사용하고 있습니다 작업 스크립트를 만들 수 있습니다 :

Sub UniformHeight() 
    Dim SlideToCheck As Slide 
    Dim ShapeIndex As Integer 

    For Each SlideToCheck In ActivePresentation.Slides 
     For ShapeIndex = SlideToCheck.Shapes.Count To 1 Step -1 
      SlideToCheck.Shapes(ShapeIndex).Top = 36 
     Next 
    Next 
End Sub