powerpoint 2016 video error this video could not be started

Text = Replace(.Text, 'Mobile1 Number', AgentInfoForm.AgentMobile)

Text = Replace(.Text, 'Agent1 Title', AgentInfoForm.AgentTitle) Text = Replace(.Text, 'Agent1 Name', AgentInfoForm.AgentFullName) If BrokerageInfoForm.BrokerageProv = 'ON' Then BrokerageDesignation = 'Brokerage'įor Each oPPtSlide In ActivePresentation.Slides 'If the province is ON then set the Broker Designation to Brokerage, if not just leave it blank 'Combine the Brokerage City, Province and Postal in one string for easier replaceīrokerageCityProvPost = BrokerageInfoForm.BrokerageCity & ', ' & BrokerageInfoForm.BrokerageProv & ', ' & 'Variables used to replace text information Set oPPt = GetObject(, 'Powerpoint.Application') Any help is appreciated! Sub ImportPicture() Again it runs without fail on PowerPoint 2016. The line of code causing the Object Error is: if oPPtShp.HasTextFrame Then

The code then does a mass find and replace to update all the information.

The user also uploads a photo of the agent and their own photo.

Two forms take in an agent's contact information and details.

I don't have a copy of 365 and I can't seem to find any documentation that would support the error he is getting. I have some code that runs flawlessly in PowerPoint 2016 but a user is reporting an error when they try and run it on PowerPoint 365.

Powerpoint 2016 video error this video could not be started