There are few other programs that can send you into a blood thirsty screaming rage like Microsoft Office. Often the problem is a user problem, but not always.
If you get an error when opening a file something like:
PowerPoint found an error that it can’t correct. blah blah blah
The problem could be that the file is blocked. To solve that, simply right-click on the file you’re trying to open, click Properties, then click the “Unblock” button. Open it again and all should be good. If not, then you have another problem and should continue your search. This is only 1 solution for 1 potential cause to that problem.
Cheers,
Ryan
solved my pain, thanks!
Great to know that it helped someone! 🙂
Thanks a lot for sharing this.
Thanks so much – I was literally tearing my hair out over this one for several hours – glad to know that that the solution was so simple. Thanks again – Mitch.
Solved! thanks, that was a ridiculous error.
Usually it’s memory overflow issue.
I think your presentation slides have too many invisible objects for PowerPoint to handle. You can’t correct it/them since they are invisible. Unless you remove slides, the problem will go on.
Go to menu [File -Info – Check for Issues – Inspect Document ]
Now, find and remove invisible data
https://support.office.com/en-us/article/Remove-hidden-data-and-personal-information-by-inspecting-presentations-b00bf28d-98ca-4e6c-80ad-8f3417f16b58
To prevent this issue from happening, do not copy/paste slides or pictures from unknown sources. If you write or use VBA script, BE SURE to remove invisible objects created during the slideshow.
Below is the scrpt that can be used to remove all the invisible shape objects in the slides.
Sub remove_invisible()
Dim i, j as Integer
Dim myShape as Shape
Dim myCount as Integer
For i = 1 To ActivePresentation.Slides.Count
‘ delete shapes in reversed order. Otherwise, you may miss some consecutive innvisible shapes. Do not use ‘for each’ syntax when deleting an array.
For j =ActivePresentation.Slides(i).Shapes.Count to 1 Step -1
set myShape = ActivePresentation.Slides(i).Shapes(j)
If myShape.Visible = msoFalse Then
myShape.Delete ‘ erase shapes
myCount = myCount + 1
End If
Next j
Next i
MsgBox myCount & ” shapes were deleted.”
End Sub