VBA를 사용하여 z 순서를 변경하면 애니메이션 트리거 (파워 포인트)가 생깁니다.

Question

이미지를 가져 와서 클릭하면 사라지는 클릭이 사라집니다 (클릭시 트리거되는 애니메이션이 사라짐).

하지만 하위를 실행하면 트리거가 작동을 멈 춥니 다. 많은 검색을 한 후에 Z 순서가 변경된 부분이 원인이라는 것을 알았습니다. 하위의이 부분을 제거하면 모든 것이 잘 작동하지만 불행히도 이미지를 표시하는 정사각형 앞에 이미지가 많이 사용되지는 않습니다.

나는 누군가에게 이것에 대한 어떤 생각을 밝힐 수 있다면 (또는 더 나은 해결책을 제시 할 수 있다면) 나는 매우 고맙게 여길 것이다.

감사

매트

Dim mySld As Slide 
Dim myShp As ShapeRange 
Dim i As Integer 

Set mySld = ActivePresentation.Slides.FindBySlideID(256) 

Set myShp = mySld.Shapes.Paste 

    With myShp 
     .Name = "Quiz_Image_" & i 
     .Left = 70 
     .Top = 75 
     .LockAspectRatio = msoTrue 
     .Width = 425 
     .ZOrder msoSendToBack 
    End With 

If myShp.Height > 275 Then 
    myShp.Height = 275 
End If 

Answer 1

은 예,의 ZOrder 설정, 트리거를 재설정합니다. 생각할 수있는 유일한 옵션은 다른 사람이 더 나은 솔루션을 지적하지 않는 한 .AnimationSettings을 사용하여 코드 자체에서 애니메이션을 시작하는 것입니다. 예를

Option Explicit 

Sub Sample() 
    Dim mySld As Slide 
    Dim myShp As ShapeRange 
    Dim i As Integer 

    Set mySld = ActivePresentation.Slides(1) 

    Set myShp = mySld.Shapes.Paste 

    With myShp 
     .Name = "Quiz_Image_" & i 
     .Left = 70 
     .Top = 75 
     .LockAspectRatio = msoTrue 
     .Width = 425 
     .ZOrder msoSendToBack 
    End With 

    If myShp.Height > 275 Then 
     myShp.Height = 275 
    End If 

    mySld.Shapes("Shape Name").AnimationSettings.Animate 
End Sub 

EDIT를 들어

또한 정말 도움이 흥미로운 read