How to Insert Object with "Display as icon" by VBA

Hi,

I am new in VBA (done few automation in EXCEL) and would need some help in PPT also.
I have two main things:

1. Copy from an EXCEL file one Sheet and Paste it as Picture into one Slide - DONE
2. Insert in another Slide two EXCEL files using : Display as Icon: (first on Top and second on Bottom if possible) - NEED HELP
For 1. I can share the code I'm using:



Dim ppt_app As New PowerPoint.Application
Dim pre As PowerPoint.Presentation
Dim slde As PowerPoint.Slide
Dim shp As PowerPoint.Shape


Dim rng As Range
Dim sursa As String
Dim obj, cluster, obj2, obj3, obj4, j As Integer
Dim wb, wba As Workbook
Set wba = ActiveWorkbook
Dim lru, lrd As Long
lrd = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
j = 2


Do While j <= lrd


obj = Sheets("Sheet1").Cells(j, 1)
cluster = Sheets("Sheet1").Cells(j, 16)
sursa = "Calculation_" & obj


Set wb = Workbooks.Open("D:\Late Site Acceptance\Calculation" & sursa)
Sheets("Summary").Activate
Set rng = Range("B2:K26")
rng.Copy


Set pre = ppt_app.Presentations.Open("D:\Late Site Acceptance\Report_.pptx")


Set slde = pre.Slides(6)
slde.Shapes.PasteSpecial DataType:=2


'get XY ----------------DOES NOT WORK----------------------------------
'Set shp = slde.Shapes(2)
'shp.Select
' Debug.Print ActiveWindow.PointsToScreenPixelsX(shp.Left)
' Debug.Print ActiveWindow.PointsToScreenPixelsY(shp.Top)
'Check Xy


'Set shp = slde.Shapes(1)
' With shp
'.Left = 70
'.Top = 60
'.Width = 700
' End With
'wba.Activate ----------------DOES NOT WORK----------------------------------

pre.SaveAs ("D:\Late Site Acceptance\Report_" & obj & "_" & cluster)
'PowerPointApp.Visible = True


j = j + 1
wba.Activate


Loop
End Sub