Forkert skalering, ved indsætning af billeder i PowerPoint 2007

Hej ekspert.

Jeg skal indsætte nogle billeder i en PowerPoint (2007).
Jeg har på forhånd skaleret billederne til den ønskede størrelse (40x60 og 80x120 .jpg).

Problemet opstår, når indsætter billederne i min præsentation.
De bliver ALT for små, i forhold til den størrelse jeg har skaleret dem til i Photoshop.

Jeg kan løse problemet ved at markere billedet, og trykke på "Formater", "Størrelse", og sætte flueben i "Bedste skalering for diasshow". Herved kommer billederne til at få den størrelse jeg oprindeligt har skaleret dem til at være.

Da jeg skal aflevere præsentationen til en kollega, som selv skal kunne sætte billeder ind, tænker jeg at der må være en lettere løsning, så billederne automatisk bliver sat ind med de rigtige mål (40x60 og 80x120).

Jeg har forsøgt at bruge nedenstående VBA-script, men resultatet er fortsat, ALT for små billeder:

Sub InsertAndSizePicture()

    Dim oPicture As Shape
    Dim FullPath As String
    Dim oSl As Slide

    ' Set this to the full path to picture.
    FullPath = "C:\My Documents\Pictures\MyPhoto.JPG"

    Set oSl = ActiveWindow.Selection.SlideRange(1)

    ' Insert the picture at an arbitrary size;
    ' PowerPoint requires you to supply *some* height and width for the picture
    Set oPicture = oSl.Shapes.AddPicture(FileName:=FullPath, _
      LinkToFile:=msoFalse, _
      SaveWithDocument:=msoTrue, _
      Left:=0, Top:=0, _
      width:=100, height:=100)

    ' Rescale the picture to its "natural" slze
    With oPicture
      .Scaleheight 1, msoTrue
      .Scalewidth 1, msoTrue
    End With

    Set oPicture = Nothing
    Set oSl = Nothing

End Sub

Jeg håber at at du kan hjælpe mig. MVH: Anders