<div>
Have you selected the Microsoft PowerPoint N.N Object Library in the References library?
</div>

<div>
You can add the PowerPoint X.Y Object Library as Paul suggests and use Early Binding for your non-Access objects. And I would only do this for the development phase because if you intend to distribute the solutions, it may not end up on a PC with the same version of the library and hence will raise a compiler error. It's better to use late bound objects like this: 
 

<pre><code class="code-1 nolinks" id="code-20-42720595-1">Dim oSld As Object ' Slide
Dim oSh As Object ' Shape
</code></pre>
 
Even better is to do something like this which allows you to use IntelliSense with the library's OM during dev and then remove the reference and set the DEV_MODE to false for production: 
 

<pre><code class="code-10 nolinks" id="code-20-42720595-2">' During Dev : To use IntelliSense, set to true and add a reference to the Microsoft PowerPoint X.Y Object Library
' Production : Set to false and move the reference.
#Const DEV_MODE = True

#If DEV_MODE Then
Dim oSld As Slide
Dim oSh As Shape
#Else
Dim oSld As Object
Dim oSh As Object
#End If
</code></pre>
 
You'll need to do the same for any PowerPoint-specific constants and enumerations.
</div>

<div>
No, I have not. Also I did not see Microsoft PowerPoint N.N Object Library as one of the items in my access 2016 object library. 
 
Suggestions, I am a newbe 
 
thanks
</div>

<div>
I do not see the &nbsp;PowerPoint X.Y Object Library ? 
 
Perhaps there if a reference file I do not have loaded. 
 
thanks,
</div>

<div>
In Access: 
 
1. Press Alt+F11 to open the VBE 
2. In the menu, click Tools / References 
3. Scroll down until you see Microsoft PowerPoint X.Y Object Library and select it 
4. Click OK 
 
Note my comment above regarding early/late bound objects if this solution is to be distributed to multiple users. 
 
<a href="https://filedb.experts-exchange.com/incoming/2018/10_w44/1398033/Access-add-References.png" target="_blank" title="Access VBE add Reference to PowerPoint library (98 KB)"><img alt="Access VBE add Reference to PowerPoint library" class="file-block lazyload" style="max-width: 800px;" data-src="https://filedb.experts-exchange.com/incoming/2018/10_w44/800_1398033/Access-add-References.png" /></a>
</div>

Access VBE add Reference to PowerPoint library

Access-add-References.png

<div>
Thanks, 
 
It loaded with my original install 
 
Microsoft PowerPoint 16.0 Object Library 
 
There is not a reference to Microsoft PowerPoint X.Y Object Library 
 
WillieCg
</div>

<div>
Willie, is the checkbox for Microsoft PowerPoint 16.0 Object Library checked?<a href="https://filedb.experts-exchange.com/incoming/2018/10_w44/1398036/PP.JPG" target="_blank" title="...showing selection of PowerPoint reference library... (53 KB)"><img alt="...showing selection of PowerPoint reference library..." class="file-block lazyload" style="max-width: 464px;" data-src="https://filedb.experts-exchange.com/incoming/2018/10_w44/1398036/PP.JPG" /></a>
</div>

...showing selection of PowerPoint reference library...

PP.JPG

<div>
It is checked. 
powerpoint 16.0 object library
</div>

<div>
Huh. &nbsp;Check the folder (location is defined in the lower part of the window) and confirm that the file is there. &nbsp; If not, search your &quot;C&quot; drive for the file; &nbsp;if it is, I'm completely stumped.
</div>

<div>
In order to get a reference to those two objects you need references to their parent objects as in this hierarchy: 
 
PowerPoint Application -&gt; Presentation -&gt; Slide -&gt; Shape 
 
So did you already create references to the application and presentation objects?
</div>

<div>
I think it would be most helpful to share a bigger chunk of your code...maybe the error lies some where else...have you created the PowerPoint object ? 
e.g. 

<pre><code class="code-1 nolinks" id="code-20-42721177-1">Dim pwrPoint as Object
Set pwrPoint = CreateObject(&quot;Powerpoint.Application&quot;)
</code></pre>
</div>

<div>
the following works in vb in powerpoint, in access i get &quot;Error 429, ActiveX component can't create object&quot; 
 
here is code 
 
Private Sub cmd_update_OLE_Links_Click() 
 
 
&nbsp; &nbsp; Dim oSld As Slide 
&nbsp; &nbsp; Dim oSh As Shape 
&nbsp; &nbsp; Dim sOldPath As String 
&nbsp; &nbsp; Dim sNewPath As String 
 
&nbsp; &nbsp; ' EDIT THIS TO REFLECT THE PATHS YOU WANT TO CHANGE 
&nbsp; &nbsp; ' Include just the portion of the path you want to change 
&nbsp; &nbsp; ' For example, to change links to reflect that files have moved from 
&nbsp; &nbsp; ' \\boss\p-drive\temp\*.* to 
&nbsp; &nbsp; ' \\boss\Q-drive\temp\*.* 
&nbsp; &nbsp; sOldPath = &quot;\act_34-Bossier&quot; 
&nbsp; &nbsp; sNewPath = &quot;\act_34-North_Bossier&quot; 
 
&nbsp; &nbsp; On Error GoTo ErrorHandler 
 
&nbsp; &nbsp; For Each oSld In ActivePresentation.Slides 
&nbsp; &nbsp; &nbsp; &nbsp; For Each oSh In oSld.Shapes 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Change only linked OLE objects 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If oSh.Type = msoLinkedOLEObject Then 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; On Error Resume Next 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Verify that file exists 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If Len(Dir$(Replace(oSh.LinkFormat.SourceFullName, sOldPath, sNewPath))) &gt;&nbsp;0 Then 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;oSh.LinkFormat.SourceFullName = Replace(oSh.LinkFormat.SourceFullName, sOldPath, sNewPath) 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox (&quot;File is missing; cannot relink to a file that isn't present&quot;) 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; On Error GoTo ErrorHandler 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;End If 
&nbsp; &nbsp; &nbsp; &nbsp; Next &nbsp; &nbsp;' shape 
&nbsp; &nbsp; Next &nbsp; &nbsp;' slide 
 
&nbsp; &nbsp; MsgBox (&quot;Done!&quot;) 
 
NormalExit: 
&nbsp; &nbsp; Exit Sub 
ErrorHandler: 
&nbsp; &nbsp; MsgBox (&quot;Error &quot;&nbsp;&amp; Err.Number &amp;&nbsp;vbCrLf &amp;&nbsp;Err.Description) 
&nbsp; &nbsp; Resume NormalExit 
End Sub
</div>

<div>
Could you pop that code snippet into a code block so we can easily reference the lines? This line will work in PowerPoint because it will be running from the active presentation but in Access, you need to set a reference to the active presentation first: 
 

<pre><code class="code-1 nolinks" id="code-20-42721442-1">For Each oSld In ActivePresentation.Slides
</code></pre>
 
Do you plan to have access open the file from the file system or will it already be open or will it need to be created?
</div>

<div>
You need to add this at the top: 
 

<pre><code class="code-1 nolinks" id="code-20-42721449-1">Dim oPP as PowerPoint.Application
Dim oPres as Presentation
</code></pre>
 
Then you need to set a reference to the PowerPoint app using either GetObject (PowerPoint is already open) or CreateObject (PowerPoint isn't open): 
 

<pre><code class="code-1 nolinks" id="code-20-42721449-2">Set oPP = CreateObject(&quot;PowerPoint.Application&quot;)
</code></pre>
 
Then you need to open the required presentation file and set a reference to that: 
 

<pre><code class="code-1 nolinks" id="code-20-42721449-3">Set oPres = oPP.Presentations.Open(&quot;C:\myPresentation.pptx&quot;) ' Use a file dialog to get this or is it a fixed folder and file?
</code></pre>
 
Then you access the slide objects as in your original code, now modified to include the above: 
 

<pre><code class="code-10 nolinks" id="code-20-42721449-4">Private Sub cmd_update_OLE_Links_Click()

 Dim oPP as PowerPoint.Application
 Dim oPres as Presentation
 Dim oSld As Slide
 Dim oSh As Shape
 Dim sOldPath As String
 Dim sNewPath As String

 ' EDIT THIS TO REFLECT THE PATHS YOU WANT TO CHANGE
 ' Include just the portion of the path you want to change
 ' For example, to change links to reflect that files have moved from
 ' \\boss\p-drive\temp\*.* to
 ' \\boss\Q-drive\temp\*.*
 sOldPath = &quot;\act_34-Bossier&quot;
 sNewPath = &quot;\act_34-North_Bossier&quot;

 On Error GoTo ErrorHandler

 ' Start PowerPoint
 Set oPP = CreateObject(&quot;PowerPoint.Application&quot;)

 ' Open a presentation
 Set oPres = oPP.Presentations.Open(&quot;C:\myPresentation.pptx&quot;)

 For Each oSld In oPres.Slides
 For Each oSh In oSld.Shapes
 ' Change only linked OLE objects
 If oSh.Type = msoLinkedOLEObject Then
 On Error Resume Next
 ' Verify that file exists
 If Len(Dir$(Replace(oSh.LinkFormat.SourceFullName, sOldPath, sNewPath))) &gt; 0 Then
 oSh.LinkFormat.SourceFullName = Replace(oSh.LinkFormat.SourceFullName, sOldPath, sNewPath)
 Else
 MsgBox (&quot;File is missing; cannot relink to a file that isn't present&quot;)
 End If
 On Error GoTo ErrorHandler
 End If
 Next ' shape
 Next ' slide

 MsgBox (&quot;Done!&quot;)

NormalExit:
 Exit Sub
ErrorHandler:
 MsgBox (&quot;Error &quot; &amp; Err.Number &amp; vbCrLf &amp; Err.Description)
 Resume NormalExit
End Sub
</code></pre>
</div>

<div>
I pasted the code into 2016 access vb editor and changed this line 
 
&nbsp; &nbsp; Set oPres = oPP.Open(&quot;y:\test.pptx&quot;) 
 
When I ran it I got the following error 
 
compile error: Method or data member not found 
 
Thanks, 
 
WillieCg
</div>

PowerPoint-VBA-IntelliSense-App---Pr.png

williecg

<div>
thanks, I am out of town for several days, when I return I will give it a try. thanks again
</div>

<div>
I am back in town, worked great. thanks
</div>

<div>
<div class="content wysiwyg-content">
msaccess, powerpoint, vba 
 
I am using vba in msaccess to change link references in powerpoint. The script I found has 
 
Dim oSld As Slide 
Dim oSh As Shape 
 
I am getting an error 429, ActiveX Component can't create object. 
 
I think I do not have the proper object library loaded in msaccess 2016. 
 
Any suggestions. 
 
Thanks, 
WillieCg
</div>
</div>

msaccess, powerpoint, vba

I am using vba in msaccess to change link references in powerpoint. The script I found has

Dim oSld As Slide
Dim oSh As Shape

I am getting an error 429, ActiveX Component can't create object.

I think I do not have the proper object library loaded in msaccess 2016.

Any suggestions.

Thanks,
WillieCg

Using Slide object in msaccess

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.

Microsoft Access

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.

PowerPoint is a slide show presentation program currently developed by Microsoft. PowerPoint presentations consist of a number of individual pages or "slides" that may contain text, graphics, sound, movies, and other objects, which may be arranged freely. The presentation can be printed, displayed live on a computer, or navigated through at the command of the presenter. Slides can also form the basis of webcasts.