AddIn Object

AddIn Object

                  Properties        

Application object
AddIns collection (AddIn object)

Represents a single add-in, either loaded or not loaded. The AddIn object is a member of the AddIns collection. The AddIns collection contains all of the PowerPoint-specific add-ins available, regardless of whether or not they're loaded. The collection corresponds to the list of add-ins displayed in the Add-Ins dialog box (Tools menu), which does not include Component Object Model (COM) add-ins.

Using the AddIn Object

Use AddIns(index), where index is the add-in's title or index number, to return a single AddIn object. The following example loads the My Ppt Tools add-in.

AddIns("my ppt tools").Loaded = True

The add-in title, shown above, also appears in the Add-Ins dialog box. This title should not be confused with the add-in name, which is the file name of the add-in. You must spell the add-in title exactly as it's spelled in the Add-Ins dialog box, but the capitalization doesn't have to match.

The index number represents the position of the add-in in the Add-ins available box in the Add-Ins dialog box. The following example displays the names of all the add-ins that are currently loaded in PowerPoint.

For i = 1 To AddIns.Count
    If AddIns(i).Loaded Then MsgBox AddIns(i).Name
Next

Remarks

Use the Add method to add a PowerPoint-specific add-in to the list of those available. Note, however, that using this method doesn't load the add-in. To load the add-in, set the Loaded property of the add-in to True after you use the Add method. You can perform both of these actions in a single step, as shown in the following example (note that you use the name of the add-in, not its title, with the Add method).

AddIns.Add("generic.ppa").Loaded = True

Use AddIns(index), where index is the add-in's title, to return a reference to the loaded add-in. The following example sets the presAddin variable to the add-in titled "my ppt tools" and sets the myName variable to the name of the add-in.

Set presAddin = AddIns("my ppt tools")
With presAddin
    myName = .Name
End With