SOLVED

Powerpoint embedded in Excel

Copper Contributor

Hello everyone,

 

We are using some excel to embed several Powerpoint presentations used as template.

Previously, users only needed to click on the Ppt object in the excel which would open the presentation. 

 

Now, users need to do the following : 

- Click on the Ppt object => Ppt open in presentation only mode

- Close the presentation open

- Right clic on the presentation : Presentation object/Modify

 

It's not convenient at all.... especially this option to modify which can be accessed only if the ppt object has been already opened. 

 

Is there any workaround ? 

 

Modify option not visible/visible after opening the object (sorry, it's in french): 

FrancoisWilson_0-1711382781635.png

FrancoisWilson_1-1711382805727.png

 

 

Thank you,

3 Replies
best response confirmed by FrancoisWilson (Copper Contributor)
Solution

@FrancoisWilson 

It sounds like you're encountering inconvenience with accessing and modifying embedded PowerPoint presentations within Excel. Unfortunately, the behavior you described is typical for embedded objects in Excel. However, there are a few potential workarounds you could consider:

1. VBA Macro: You can create a VBA macro in Excel to automate the process of modifying the embedded PowerPoint presentation. The macro could open the PowerPoint presentation in edit mode directly from Excel. Users could then make their modifications and save the changes. Here's a simplified example of how the macro might look:

Vba code is untested, please backup your file.

Sub OpenAndEditEmbeddedPresentation()
    Dim pptObj As Object
    
    ' Check if a PowerPoint object is selected
    If TypeName(Selection.Object) = "OLEObject" Then
        Set pptObj = Selection.Object
        
        ' Check if the embedded object is a PowerPoint presentation
        If InStr(1, pptObj.progID, "PowerPoint", vbTextCompare) > 0 Then
            ' Open the embedded presentation in edit mode
            pptObj.Activate
        Else
            MsgBox "The selected object is not a PowerPoint presentation.", vbExclamation
        End If
    Else
        MsgBox "Please select a PowerPoint presentation embedded in the Excel sheet.", vbExclamation
    End If
End Sub

You can assign this macro to a button or shape in your Excel sheet for easy access.

2. Link to External Presentation: Instead of embedding the PowerPoint presentation directly into Excel, you could store the presentation file externally and insert a hyperlink or a clickable shape in Excel that opens the presentation in PowerPoint when clicked. This way, users can easily access and modify the presentation without the need for additional steps within Excel.

3. Consider Alternative Solutions: Depending on your specific use case, you might explore alternative methods for sharing and collaborating on PowerPoint presentations, such as using cloud storage services like OneDrive or SharePoint, where users can access and edit the presentation directly in PowerPoint without embedding it into Excel.

These are just a few suggestions, and the most suitable solution will depend on your specific requirements and constraints.Formularbeginn The text and steps were edited with the help of AI.

 

My answers are voluntary and without guarantee!

 

Hope this will help you.

 

Was the answer useful? Mark as best response and Like it!

This will help all forum participants.

It may be best to separate the PowerPoint presentation from the Excel workbook. If you plan on using co-authoring, autosave will be disabled if a workbook has anything embedded.
Regarding how documents are managed, the more simple option is to embed the ppt inside the excel. The code works, thank you 🙂
1 best response

Accepted Solutions
best response confirmed by FrancoisWilson (Copper Contributor)
Solution

@FrancoisWilson 

It sounds like you're encountering inconvenience with accessing and modifying embedded PowerPoint presentations within Excel. Unfortunately, the behavior you described is typical for embedded objects in Excel. However, there are a few potential workarounds you could consider:

1. VBA Macro: You can create a VBA macro in Excel to automate the process of modifying the embedded PowerPoint presentation. The macro could open the PowerPoint presentation in edit mode directly from Excel. Users could then make their modifications and save the changes. Here's a simplified example of how the macro might look:

Vba code is untested, please backup your file.

Sub OpenAndEditEmbeddedPresentation()
    Dim pptObj As Object
    
    ' Check if a PowerPoint object is selected
    If TypeName(Selection.Object) = "OLEObject" Then
        Set pptObj = Selection.Object
        
        ' Check if the embedded object is a PowerPoint presentation
        If InStr(1, pptObj.progID, "PowerPoint", vbTextCompare) > 0 Then
            ' Open the embedded presentation in edit mode
            pptObj.Activate
        Else
            MsgBox "The selected object is not a PowerPoint presentation.", vbExclamation
        End If
    Else
        MsgBox "Please select a PowerPoint presentation embedded in the Excel sheet.", vbExclamation
    End If
End Sub

You can assign this macro to a button or shape in your Excel sheet for easy access.

2. Link to External Presentation: Instead of embedding the PowerPoint presentation directly into Excel, you could store the presentation file externally and insert a hyperlink or a clickable shape in Excel that opens the presentation in PowerPoint when clicked. This way, users can easily access and modify the presentation without the need for additional steps within Excel.

3. Consider Alternative Solutions: Depending on your specific use case, you might explore alternative methods for sharing and collaborating on PowerPoint presentations, such as using cloud storage services like OneDrive or SharePoint, where users can access and edit the presentation directly in PowerPoint without embedding it into Excel.

These are just a few suggestions, and the most suitable solution will depend on your specific requirements and constraints.Formularbeginn The text and steps were edited with the help of AI.

 

My answers are voluntary and without guarantee!

 

Hope this will help you.

 

Was the answer useful? Mark as best response and Like it!

This will help all forum participants.

View solution in original post