Microsoft PowerPoint에서 vse 객체에 msoeffects를 추가하는 방법은 무엇입니까?

Question

vse 텍스트 상자를 사용하여 나를 위해 공식을 계산할 수있는 파워 포인트를 만들었지 만 보스는 개발자 탭으로 추가되지 않은 다른 모든 개체와 일치 시키길 원합니다. 밀 파워 포인트 객체는 파워 포인트의 애니메이션 탭에서 애니메이션을 추가 할 수 있지만 VSE 텍스트 상자를 사용하면 애니메이션을이 방법으로 추가 할 수 없으며 특정 시간 간격으로 애니메이션을 간단하게 표시하려고합니다. 나는 떨어져 포착하고이에 alittle 고르지 될 수 있도록 코드를 여러 번 다시, 그러나 이것은 내가 무엇을 가지고 있습니다 : 당신이 뭘 호출 액티브 X 형태 또는 개발자 모양에 대해 얘기하고 추측하고있어

Public Sub SimpleAnimation() 
Dim aSlide As Slide 
Dim ashape As Shape 
Dim animBehavior As AnimationBehavior 
Dim aeffect As Effect 


Set aSlide = ActivePresentation.Slides(3) 
Set ashape = aSlide.Shapes(TextBox2) 
Set aeffect = ActivePresentation.Slides(3).TimeLine.MainSequence(3) 


aeffect.EffectType = msoAnimEffectAppear 





End Sub 

Answer 1

을 PPT 자체에 추가 한 경우 IOW, 일반적으로 사용자가 볼 수있는 일반적인 컨트롤.

애니메이션에는 사용할 수 없습니다 ... PPT에서 수동으로 추가해보십시오. 모든 애니메이션 옵션이 비활성화/회색으로 표시됩니다.

두 개의 슬라이드, 두 번째 슬라이드에는 텍스트 컨트롤이있는 것을 제외하고는 서로 복제하여 만족스럽게 가짜로 만들 수 있습니다. 슬라이드 전환을 추가하면 애니메이션이있는 것처럼 보이는 것처럼 보일 수 있습니다.