access macro saved in ppa

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have written a simple macro in a ppt file. It is accessable via the
Tools->Macro menu.

When I save the ppt as a ppa and load it as an Add-In the macro is nolonger
accessable.

How can I access the macro ?
 
Please post the relevant code you used to placing the command button onto
the tool menu.


--
Bill Dilworth
A proud member of the Microsoft PPT MVP Team
Users helping fellow users.
http://billdilworth.mvps.org
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
vestprog2@ Please read the PowerPoint FAQ pages.
yahoo. They answer most of our questions.
com www.pptfaq.com
..
 
I attahced the following maco to an object as it's Action Setting.

Sub RemoveImage(oSh As Shape)
oSh.Delete
End Sub

When the ppt is saved as a ppa and loaded as an Add-In the macro
"RemoveImage" is nolonger available. I want to be able to load the Add-In
and have the macro available to any new ppt I create so the macro can be used
as a global Action Setting.
 
Ahhhhh.

That is the code that will do the work, but you need to write the code that
will add the command to the tool bar. Look here for how to do that part of
the coding.

***Create an ADD-IN with TOOLBARS that run macros
http://www.pptfaq.com/FAQ00031.htm


--
Bill Dilworth
A proud member of the Microsoft PPT MVP Team
Users helping fellow users.
http://billdilworth.mvps.org
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
vestprog2@ Please read the PowerPoint FAQ pages.
yahoo. They answer most of our questions.
com www.pptfaq.com
..
 
OK, code to add command to tool bar written.
But still can't access the RemoveImage as an Action Setting on picture object.
How do I do this ?


Sub RemoveImage(oSh As Shape)
oSh.Delete
End Sub

Sub Auto_Open()
Dim oToolbar As CommandBar
Dim oButton As CommandBarButton
Dim MyToolbar As String
MyToolbar = "RemoveImage Tool"
On Error Resume Next
Set oToolbar = CommandBars.Add(Name:=MyToolbar,
Position:=msoBarFloating, Temporary:=True)
If Err.Number <> 0 Then
Exit Sub
End If
On Error GoTo ErrorHandler
Set oButton = oToolbar.Controls.Add(Type:=msoControlButton)
With oButton
.DescriptionText = "RemoveImage"
.Caption = "RemoveImage"
.OnAction = "RemoveImage"
.Style = msoButtonIcon
.FaceId = 52
End With
oToolbar.Top = 150
oToolbar.Left = 150
oToolbar.Visible = True
NormalExit:
Exit Sub
ErrorHandler:
MsgBox Err.Number & vbCrLf & Err.Description
Resume NormalExit:
End Sub
 
I attahced the following maco to an object as it's Action Setting.

Sub RemoveImage(oSh As Shape)
oSh.Delete
End Sub
Click to expand...

Ah, that's different I'm afraid.

Run Macro actions can only access macros in the current presentation.

Given what you're trying to do, it'd make a lot of sense if you could also use
macros in an addin from any presentation, but you can see why MS might have
restricted it the way they have; your action settings would all break on any
computer that doesn't have your add-in installed.

The best workaround I can suggest is to put all your macros into a single
module, test them carefully, then export the module. Then you can import it
into any other presentation quickly and easily.
 
Back
Top