Add-in, replace save menu item

[Guest]

Hello,

How can I replace "Save"/"Save as" menu item?

I use PowerPoint 2000.

Thanks for help

Karol Nekanovic

 

[Chirag]

The following macro deletes the Save (Id = 3) and SaveAs (Id = 748) menu
items from the File menu. After deleting them, you can add your own Save and
SaveAs menu items to the File menu.

---
Sub DeleteSaveAndSaveAsMenuItem()
Dim FileMenu As CommandBarPopup
Dim CBC As CommandBarControl

Set FileMenu = CommandBars.FindControl(Id:=30002)
For Each CBC In FileMenu.Controls
With CBC
If (.Id = 3) Or (.Id = 748) Then
.Delete
End If
End With
Next
End Sub
---

- Chirag

PowerShow - View multiple PowerPoint slide shows simultaneously
http://officeone.mvps.org/powershow/powershow.html

 

[Steve Rindsberg]

The following macro deletes the Save (Id = 3) and SaveAs (Id = 748) menu
items from the File menu. After deleting them, you can add your own Save and
SaveAs menu items to the File menu.

Be aware that this will not disable the Ctrl+S shortcut key though.

I think it was Shyam who mentioned another approach to solving this problem:

Trap the "I already saved and now it's too late for you to do anything about
it, nyah nyah nyah" event.

Reopen the just-saved presentation windowlessly, do whatever's needed, then
resave it.

 

[Shyam Pillai]

In newer versions there is a new BeforeSave event too when does the job.

For a command bar control that is not supported with a shortcut combination,
setting the OnAction property to a custom macro routine also works. However
if it has a shortcut key, the control will call the custom routine when
clicked but will make the system call when the shortcut is pressed.
--
Regards,
Shyam Pillai

Animation Carbon
http://www.animationcarbon.com

 

[Steve Rindsberg]

In newer versions there is a new BeforeSave event too when does the job.

Yes. Unfortunately, Karnek mentions using PPT 2000.