I have tried the following without knowing which resolved the issue.
- Deleted all the files C:\Users\<Current User>\Documents\My Shapes
- Removed the index and added the index again on the file in C:\Program Files\Microsoft Office\Office16\Visio Content\1033