How to create VBA macro to check cropped information of shape?

@John Korchok Ok thanks for information. Here is my code:

I have 1 image which is scaled and cropped already in slide, now I have to import new image and then need to replace it with original one at original image's location and same cropping as of original.

In below code, I have developed action including duplicate original image and uncrop it, then align and scale new image with duplicate, remove duplicate. I need further help for 1) crop new image with exact same as of original. That will be great help!!!

Sub replace_image2()

 

    Dim templeft As Single, temptop As Single
    Dim s3 As Shape, s4 As Shape
    Dim w, h As Single
    Dim sp As Shape



If ActiveWindow.Selection.Type = ppSelectionShapes Then
If ActiveWindow.Selection.ShapeRange.Count = 2 Then

                With ActiveWindow.Selection

                    templeft = .ShapeRange(1).Left
                    temptop = .ShapeRange(1).Top
                End With

            With ActiveWindow.Selection.ShapeRange(1).Duplicate







            .Left = templeft
            .Top = temptop





             .PictureFormat.CropLeft = 0
            .PictureFormat.CropTop = 0
            .PictureFormat.CropRight = 0
            .PictureFormat.CropBottom = 0

            templeft = .Left
            temptop = .Top

            w = .Width
            h = .Height



            End With
            With ActiveWindow.Selection.ShapeRange(2)

            .Left = templeft
            .Top = temptop
            .Height = h
            .Width = w



            End With