vba to assign animation to a picture transferred into powerpoint

[cjcass]

Hi,
I have the following vba that copy>pastes a worksheet range from excel into ppt as a picture. What code will then assign a Fade In animation to the picture?
Hope you can help, many thanks.

Set PPApp = GetObject(, "Powerpoint.Application")
Set PPPres = PPApp.ActivePresentation


Sheet72.Range("G15:S37").CopyPicture Appearance:=xlScreen, Format:=xlPicture
PPPres.Slides(1).Shapes.Paste


With PPPres.Slides(1)
    With .Shapes(.Shapes.Count)
        .LockAspectRatio = msoTrue
        .ScaleHeight 0.8, msoTrue
        .Left = 27
        .Top = 121
    End With
End With

 

[KunalGandhi]

Hi RoryA,

this is an old thread but been very helpful to me.

I have been trying to do something similar to your code and mostly it is working but i have one additional request.

the trigger for this animation is by a click on another image but this gives me aruntime error 438-

the code is as follows -

'Store Slide's "Correct Answer" Shape to a variable
Set ppt_shp = .Shapes("Choice_" & Answer)
Set ppt_answer = .Shapes("FinalAnswer")
Set ppt_eff = .TimeLine.MainSequence.AddEffect( _
Shape:=ppt_shp, EffectId:=54, Level:=msoAnimateLevelNone, trigger:=msoAnimTriggerOnShapeClick) '54 = msoAnimEffectChangeFillColor

ppt_eff.EffectParameters.Color2.RGB = RGB(112, 173, 71)

With ppt_eff.Timing
.Duration = 0.4
.triggershape = .Shapes("FinalAnswer") 'error -- Runtime error 438 Object doesnt support this property or method
End With

any suggestions would be great.

Thank you

Regards
Kunal