如何在Power Point 2007中添加Add ins菜單選項卡？

Question

我正在使用Power Point 2007，但沒有添加菜單選項卡，我無法找到如何添加它。

Answer 1

當PPT 2007及以後版本運行創建「傳統」命令欄或菜單修改的代碼時，它會自動將加載項選項卡添加到功能區，並將命令欄/菜單更改放在那裏。這裏有一些簡單的示例代碼。您可以按原樣運行它，或將其另存爲加載項。一旦加載項被加載，每次啓動PPT時Auto_Open代碼都會運行。

Sub Auto_Open() 
    Dim oToolbar As CommandBar 
    Dim oButton As CommandBarButton 
    Dim MyToolbar As String 

    ' Give the toolbar a name 
    MyToolbar = "Kewl Tools" 

    On Error Resume Next 
    ' so that it doesn't stop on the next line if the toolbar's already there 

    ' Create the toolbar; PowerPoint will error if it already exists 
    Set oToolbar = CommandBars.Add(Name:=MyToolbar, _ 
     Position:=msoBarFloating, Temporary:=True) 
    If Err.Number <> 0 Then 
      ' The toolbar's already there, so we have nothing to do 
      Exit Sub 
    End If 

    On Error GoTo ErrorHandler 

    ' Now add a button to the new toolbar 
    Set oButton = oToolbar.Controls.Add(Type:=msoControlButton) 

    ' And set some of the button's properties 

    With oButton 

     .DescriptionText = "This is my first button" 
      'Tooltip text when mouse if placed over button 

     .Caption = "Do Button1 Stuff"  
     'Text if Text in Icon is chosen 

     .OnAction = "Button1" 
      'Runs the Sub Button1() code when clicked 

     .Style = msoButtonIcon  
      ' Button displays as icon, not text or both 

     .FaceId = 52  
      ' chooses icon #52 from the available Office icons 

    End With 

    ' Repeat the above for as many more buttons as you need to add 
    ' Be sure to change the .OnAction property at least for each new button 

    ' You can set the toolbar position and visibility here if you like 
    ' By default, it'll be visible when created. Position will be ignored in PPT 2007 and later 
    oToolbar.Top = 150 
    oToolbar.Left = 150 
    oToolbar.Visible = True 

NormalExit: 
    Exit Sub ' so it doesn't go on to run the errorhandler code 

ErrorHandler: 
    'Just in case there is an error 
    MsgBox Err.Number & vbCrLf & Err.Description 
    Resume NormalExit: 
End Sub 

Sub Button1() 
' This code will run when you click Button 1 added above 
' Add a similar subroutine for each additional button you create on the toolbar 
    ' This is just some silly example code. 
    ' You'd put your real working code here to do whatever 
    ' it is that you want to do 
    MsgBox "Stop poking the pig!" 
End Sub