Størrele og placering af figur (object / shape) i powerpoint

'Kører alle slides igennem
    For i = 1 To ActivePresentation.Slides.Count

        ActivePresentation.Slides(i).Select

'Kører alle figurer på sliden igennem
        For j = 1 To ActivePresentation.Slides(i).Shapes.Count

'Hvis figuren er linket - bliver den kopieret (størrelse og placering gemt), slettet og indsat som billede
        If ActivePresentation.Slides(i).Shapes(j).Type = msoEmbeddedOLEObject Or ActivePresentation.Slides(i).Shapes(j).Type = msoLinkedOLEObject Then 
            With ActivePresentation.Slides(i).Shapes(j)
                oLeft = .Left
                oTop = .Top
                oWidth = .Width
                oHeight = .Height
                .Copy
                .Delete
            End With
            ActiveWindow.ViewType = ppViewNormal
            ActiveWindow.View.PasteSpecial ppPasteMetafilePicture
            With ActiveWindow.Selection.ShapeRange
                .Left = oLeft
                .Top = oTop
                .Width = oWidth
                .Height = oHeight
            End With
'Da der bliver byttet rundt på objekt-rækkefølgen, skal der tjekkes forfra (omstændigt men sikkert)
            j = 1
            ActiveWindow.ViewType = ppViewSlideSorter
        End If
        Next j
    Next i


Den kode jeg søgte (kombineret med et tidligere spørgsmål i forummet) - Ikke mange svar dog :/