|
|
用英文發表是因為原文是英文啊 .GIF)
如看不明上文或不可了解的話可以不造訪，主要是以下的編碼。
首先放在 Module ，修改適合你的用途後儲存為 PPT。再將 PPT 儲存為 PPA 就可以。
Start a new PowerPoint file. Press ALT+F11 to start the VB Editor. Choose Insert, New Module.Add this code to the new module:
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 = "Button1" '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 '52 is my favorite pig; 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 oToolbar.Top = 150 oToolbar.Left = 150 oToolbar.Visible = TrueNormalExit: Exit Sub ' so it doesn't go on to run the errorhandler codeErrorHandler: 'Just in case there is an error MsgBox Err.Number & vbCrLf & Err.Description Resume NormalExit:End SubSub 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 "Will you PLEASE stop clicking me? I have a headache already!"End Sub
' That's it. Don't add anything past this point to your code. |
|
