my $time = $Slide->TimeLine->MainSequence;
            my $effect = $time->AddEffect({
                Shape => $picture,
                effectId => msoAnimEffectZoom,
                });