Hi Srinath,
You need to build an custom action in the excel object to achieve the above functionality. Please refer to the below code sample for this :
Dim Xl
Dim Wb
Dim Ws
Dim Ol
Set Xl = CreateObject(""Excel.Application"")
Set Wb = Xl.Workbooks.Add
Set Ws = Wb.Worksheets.Add
Set Ol = ws.OLEObjects.Add(, ""pdf path"", True, False)
With
Ol .Left = Ws.Range(""A1"")
.Left .Height = Ws.Range(""A1"")
.Height .Width = Ws.Range(""A1"")
.Width .Top = Ws.Range(""A1"").Top
End With
Xl.Visible = True
