VBA PowerPoint 2003 - Add-ins

[Eliz]

I have a couple questions:

But first some background...I have a PowerPoint add-in that loads up a
custom toolbar with a few buttons. It is comprised of a single Module with 2
procedures...

Sub Autpen ()
- code that generates toolbar and icons(Button1)
End Sub

Sub Button1()
- code behind Button1
End Sub

I have changed my Registry in order to install the add-in so that it appears
in my Add-in window in PP (Tools > Add-Ins). I am doing it this way, as I am
planning on distributing this add-in to all of our users.

My toolbar pop-up code is stored in the Autpen routine so that it will
appear automatically when the add-in is loaded. However once I have
checkmarked the Add-in to load it into PP, the toolbar doesn't appear
automatically. I still have to manually open it (Tools > Customize).

Question: Am I missing a step???

Also, I keep seeing a lot of code to automatically install and load PP
add-ins...

Question: Where should this code reside? addins.add("c:\MyAddIn").Loaded =
true

Question: I really only need this toolbar for presentations based on a
specific template (new or existing presentations). Can I attach this add-in
just to a specific template, so I can then test for that template before
having the add-in even load?

Thank you!

 

[Steve Rindsberg]

Thanks for the nicely detailed question. I've clipped a bit out to
shorten the answer:

My toolbar pop-up code is stored in the Autpen routine so that it will
appear automatically when the add-in is loaded. However once I have
checkmarked the Add-in to load it into PP, the toolbar doesn't appear
automatically. I still have to manually open it (Tools > Customize).

It sounds as though at some point you've made the tool bar non-visible;
PPT will remember this even though you reload the add-in, I'm pretty
sure. I'd consider setting the toolbar's .Visible property to True in
Autpen

Also, I keep seeing a lot of code to automatically install and load PP
add-ins...

Question: Where should this code reside? addins.add("c:\MyAddIn").Loaded
=
true

Normally there's no need for this, as you've loaded it via the registry.
You'd use this type of code to load another add-in from your code, if you
need to do that.

Question: I really only need this toolbar for presentations based on a
specific template (new or existing presentations). Can I attach this
add-in
just to a specific template, so I can then test for that template before
having the add-in even load?

In PPT 2007, individual presentations can contain code that autoruns.
Earlier versions can't.
In earlier versions, the add-in will have to load regardless but could
test to see whether the current presentation is based on your template
before it acts.

 

[John Wilson]

You probably need to post at least some of the code that generates the
toolbar and also tell us what you did to the registry. I'm assuming you mean
youve added an autoload DWord and a path string key?

 

[Eliz]

To simplify, I have omitted using the Registry this time. I have manually
installed the Add-in into PowerPoint, it is checkmarked (Loaded), but no
toolbar.

And yes, I have a line of code for the toolbar to be set to visible...

Option Explicit

Sub Autpen()

Dim oToolbar As CommandBar
Dim oButton As CommandBarButton
Dim MyToolbar As String

MyToolbar = "Custom PP Tools"
Set oToolbar = CommandBars.Add(MyToolbar)
Set oButton = oToolbar.Controls.Add(msoControlButton)

With oButton
.DescriptionText = "Custom PP Button"
.Caption = "Show or Hide ID"
.OnAction = "ShowHideDocID"
.Style = msoButtonIcon
.FaceId = 52
End With

oToolbar.Visible = True

End Sub

Sub ShowHideDocID()

' declare variables
' show or hide text box

End Sub


Any help would be appreciated!! Thanks!!

 

[John Wilson]

Hi Eliz

That code should work!

Try going to http://www.pptalchemy.co.uk/200255.htm where there's a free
download and see if that is the sort of delivery and toolbar you're looking
for (and also if you see the toolbar!)

If it is and works for you drop me a line.

 

[Eliz]

Ok, thanks John.
I'll have a look at the site you recommended.

Thank you!