vba to resize and position a shape pasted into powerpoint

[cjcass]

Hi,
Can you help? I need some VBA to finish off what I've done so far - the following code takes a range from excel and pastes it into ppt but I need code to then resize and reposition the shape on the slide - need to lock the aspect ratio and change the height/width and then position it from the top & left of the slide - any ideas?? many thanks.

Sub Macro170()
'
' Macro170 Macro
'
' Initialize PowerPoint Object Library
Set PPApp = GetObject(, "Powerpoint.Application")
' Reference active presentation
Set PPPres = PPApp.ActivePresentation


' Copy the range as a picture
Sheets("Loyalty").Range("G13:S37").CopyPicture Appearance:=xlScreen, Format:=xlPicture
' Paste the range
PPPres.Slides(1).Shapes.Paste




End Sub

 

[Domenic]

Try...

[color=darkblue]With[/color] PPPres.Slides(1)
    .Shapes.Paste
    [color=darkblue]With[/color] .Shapes(.Shapes.Count)
        .LockAspectRatio = msoTrue
        .Left = 25
        .Top = 25
        .Height = 200
    [color=darkblue]End[/color] [color=darkblue]With[/color]
[color=darkblue]End[/color] With

Change the property settings accordingly.

Hope this helps!

 

[cjcass]

Brilliant, many thanks