셰이프를 선택하여 PowerPoint VBA 스크립트를 적용하려면 어떻게해야합니까?

Question

슬라이드의 여러 셰이프를 선택하고 선택한 모든 셰이프에서 매크로를 실행하고 싶습니다. 예를 들어, 도형의 애니메이션 지연 시간을 주어진 값만큼 늘리고 싶습니다. 참고 : 일부 도형에는 애니메이션이 두 개 이상있을 수 있습니다.

지금까지 다음 코드가 있습니다. 그것은 트릭을 수행하지만 현재 슬라이드의 모든 모양에 적용됩니다.

Sub ActiveSlideShapes_DelayInc() 
    Dim osld As Slide 
    Dim i  As Long 
    Dim a  As Integer 
    Dim oeff As Effect 
    Const sngDel As Single = 0.1 

    Set osld = ActiveWindow.Selection.SlideRange(1) 

    For i = osld.TimeLine.MainSequence.Count To 1 Step -1 
     Set oeff = osld.TimeLine.MainSequence(i) 
     With oeff 
      .Timing.TriggerDelayTime = .Timing.TriggerDelayTime + sngDel 
     End With 
    Next i 
End Sub 

다른 해결책은 도형 대신 실제 TimeLine 요소를 선택하는 것일 수 있습니다. 그런 다음 선택한 애니메이션에 대해서만 "다음 ..."루프를 수행하십시오. 특정 모양에 여러 개의 다른 애니메이션이 붙어있는 경우이 방법이보다 세련된 솔루션이 될 것입니다. 가능한가요?

Answer 1

selection.shaperange를 사용해보십시오. 선택한 각 모양을 반복해야합니다.

For Each Shp In Selection.ShapeRange 
With Shp 
      .Timing.TriggerDelayTime = .Timing.TriggerDelayTime + sngDel 
     End With 
Next