Add-in, replace save menu item

[KarNek]

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

 

[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