ActivePresentation.Slides(1).Shapes("CompanyName").TextFrame.TextRange.Text = "ABC LTD."

To get the text - ABC LTD. - which is in cell A1 of sales.xlsx
I tried to copy excel cell and embed, but don't know how to get that value to CompanyName text object.
is there another way to get this value without embedding, directly from company ?
This is my first post.
Thanks everyone.