ࡱ> * ) !"#$%&'(+,-./01Root EntryFr r`&; pMv7VBAPMvPMvPROJECT cPROJECTwm  !"#$%&'()*+,-./0123456789:;<=>?@BCDEFGHIJKLMNOPQRSTUVWXY[\]^_`abcdefghijklmnopqsuvwxyz{|}~Module1Module1ID="{FD21D42A-A9B5-446B-A268-0BC660D56AF3}" Module=Module1 Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="2F2DDF2E21525056505650565056" DPB="62609263C464C464C4" GC="959765B4ABE6ACE6AC19" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Module1=22, 22, 595, 462, C am  *\G{000204EF-0dirModule1D__SRP_0t __SRP_1 rB__SRP_2Z__SRP_3 A _VBA_PROJECTBSummaryInformation( 000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{91493440-5A91-11CF-8700-00AA0060263B}#2.6#0#C:\Program Files\Microsoft Office\Office\msppt9.olb#Microsoft PowerPoint 9.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\system32\Stdole2.tlb#OLE Automation *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.1#0#C:\Program Files\Microsoft Office\Office\mso9.dll#Microsoft Office 9.0 Object Library D-Module104441f041dModule1 &;If`W_@1Delse_IfNullSetsubThenWith PowerPoint VBAWin16~Win32MacVBA6#Project1  stdole` VBAProject Officeu Module1b _Evaluate (Auto_OpenV oToolbar` CommandBaroButton$CommandBarButton9 MyToolbar% CommandBars AddrPositionmsoBarFloating temporaryErroNumber- ErrorHandlerOControlsKmsoControlButtonnDescriptionTextCaptionxOnActionStylep msoButtonIconJFaceIdiTop5Visible NormalExitMsgBoxRvbCrLf Description Button1] (DeleteNoteshVmVbMsgBoxResultڱ vbOKCancelx?vbOK% _B_var_IfPoSldkActivePresentationzSlidesq NotesPageShapes<Count0vRange Deletex ActiveMenuBarrmsoControlPopupl)BeforeItemzmsoY iHelpIndexE cbcMenuBarGIndex Applicati _B_var_SetmyPlugin\_B_var_cbcMenuBarJ_B_var_myPlugin\ _B_var_oSld}pCommandBarControlP(MakeMenucControlW (RemoveMenu" Application* FindControl mId]_B_var_temporary ActionControldh _B_var_ItemC cDeleteNotes9cbctl cbpopQmsoButtonCaptionmsoControlLabelb_B_var_cDeleteNotesr (Auto_Closew _B_var_SubH @~| )rU $`$`$`$`$!`n !AAi  9Cl Kl'''$d hh ld#`*#TX \\ ,lX*FD 2`TX)h\6D$ m4xtlp0 `XTh\D$l qc8%'%'%'(%H %X\:`#%pt$ ( t 4 p H \ X $l=x) tp\X lx  )`%W N5 c`%C$`%C!:`(%C&:`%C'(`%Cc0x,tp\XpKa'8%H:L%\`:d#%tx$ ( x 4 t H ` \ ,H ) xt`\HKDp$ xt`\H,<'':LN<<:lN\\^6\<-$   DQ[r+=\=<A(l]t6\<(=\=<=6\< skc0$\<\ $rU~| " Iy !q Y 9a A !Aa l'''4t xx lt#p*#dh ll ,lh*FT 2pdh)xl6T4 B$ 0 phdxlT4h  lc8%'%'%'(%H %X\:`%pt$ ( t 4 p H \ X $ Qx)tp\X lx  )`%WN5 c`%C`%C:`%C:`%C(`%Cc 0x,tp\XpKa'8%H:L%\`:d%tx$ ( x 4 t H ` \ , H ) xt`\HKDp$ xt`\H,<'':LN<<:lN\\^6\<-$   DQ[r+=\=<A(l]t6\<(=\=<= !6\< skc0$\<<   $ WrU t~~_ h NS\P| K*mrU~~~~~~~~~~~~\ }BΕ0  a IAa  Project1 VBAProjectModule1F /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA ! I0@4IZ`&; 3C:\Program Files\Microsoft Office\Office\msppt9.olb PowerPoint A@0FC:\WINNT\system32\Stdole2.tlbstdole )QPL-[DR 1C:\Program Files\Microsoft Office\Office\mso9.dllOffice 1` Auto_OpenButton1  Kewl ToolsC4IZ`&;Q4IZ`&; FfĤIx8< F F F .This is my first button F Button1  VBE6.DLL  S zWill you PLEASE stop clicking me? I have a headache already! DeleteNotes Delete? &Delete Confirmation deleting Notes Tools Delete Notes DeleteNotes Menu Bar HelpControls Index Plugins .Delete powerpoint notes HDelete notes from this presentation?4IZ`&;NotesPage Shapes Count Range DeleteCaptionTypeAddOnAction FaceIdMakeMenu RemoveMenuB4IZ`&;temporary &Plugins Edit MenuBar  Style MenuItem&1Visible &Delete Notes Auto_CloseLNT\system32\Sc2.t0* pHd VBAProject4@j = r D J< rstdole>stdole f%\*\G{00020430-C 0046}#2.0#0#C:\WINNT\system32\Sc2.tlb#OLE Automation^DOffi cDO>fijcDD2DF8D04C-5-xME<p<<(<<< <<<<< <$<<,<0<4<8> LLLLLL(LL<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< h`k  ` |k..LJp%(h@@x @% p% R@`k # `k  x (`8o0@t @p @l @h @d @HT @`D @x4 x@$ @ X@ @ x`p6@t @@p (@` @\ @X @0H @H8 @`( @x @ @  `@ @ @ @ 0`@`x P@t @pd @` @\ 8x @L @H @8 0 H px X XJZ`@l @\ @L @< @ , @  @ @ @^ @` @ @ x  @_  x H0_  @D$*\Rffff*04441f041d*\R1*#89*\R0*#2*\R0*#1*\R3*#34*\R3*#4f*\R3*#4e*\R3*#4d*\R3*#8c*\R1*#38*\R1*#39*\R1*#3b*\R3*#50*\R3*#30*\R0*#14*\R0*#e*\R0*#19*\R0*#131"8 : P $Xl "8@6 <l  H ) X p( PX "`h.aXpx "T< - +(   6"0H@|1 so it doesn't go on to run the errorhandler code2Just in case there is an error .!0 L .!NA@JHFo(o( k( ^ `!bation`0$Delete notes from this presentation? XDelete Confirmation$J Z` ^!d!f!h ^!d!f!jB@lkx ^.^Xp@pPh h] qo`oX&Plugins9:X (  H A@)Prevents duplicate entry of the menu itemH P 0 A@  (F  (> h 8  6l54%&.  8  pl,Menu Bar %$!4%&. DeleteNotes (<`(&PluginsMenu Bar %$%4B@l8 &Delete Notes (:&H  (B/P @oA@/ When unloading the add-in then remove the menuOsAttribute VB_Name = "Module1" Sub Auto_Open()  MakeMenu NormalExit:8 l ' so it doesn't go on to ru he errorhandler codeQEHS 'Just in case there is anBy MsgBox @.NumbS& vbCrLf &Descr@iption2ResuybEnd`Ecv~Dim cControl As CombmVBar -R0emov'Prevents duplicaAry ofg fmemSet5= ApE_.:s(" @") Ls.Add _#(Type:=msoPPopup, temporary:=TrueDw pWith1. CaOA&Plugins,DeleteNo8tes J$N"ButtonDAcH.Visibl'G! Sty7C( 0 *H1aOnAc2"& FaceIdq 456C AS N GOnor ext~("Ff).,GoTo 0$%If (j( n;fromWppres@Ya$?", nOKCancel, eNLfia")#vbOK) The q`?FEach oSld In2 /ve g .SlidesEa `!.8Page.Shapes Ount > 0 Ran@&7IfN3G` @hingcE ' W unloadadd-n raHClose4H9loating, Temporary:=True)@ With myPluginp .Caption = "Plugins"!4P .FaceId = 456 End With11 End Witho stan, Set oToolbar = CommandBars.ActiveMenuBarT If Err.Number <> 0 Then ' The toolbar's already there, so we have nothing to do& oToolbar.Left = 150BFA-101@B-BDE5DAjAB42Dgram Files\MicrosPoft 6\mso9.dll#  9.0 Ob LibraryCA- Module1GFdu1T 2 HB1l,B,C!B+BBuns the Sub Butt՜.+,0     KOn-screen ShowOracle Corporationl DocumentSummaryInformation8 Times New RomanDefault Design  Fonts UsedDesign Template Slide Titles(> h Oh+'0 `ht  sHarri KaukovuoHarri Kaukovuo78rMicrosoft PowerPointP@.@0IYv@ooMvG g  U& &&#TNPP[2OMiO & TNPP &&TNPP    --- !---&G&j}w@) 8}ww0- &Gy& &G?y& @Times New Roman}ww0- .2 A Lorem Ipsumh#//.&Gy& @Times New Roman}ww0- . 2 R. .I2 v,Delor sit amet consectetuer adipiscing elit    !         . .2 1vsed diam   .@Times New Roman}ww0- . 2 h. .%2 hNonummy nibh euismod    .@Times New Roman}ww0- . 2  . .2  Tincidunt ut    .@Times New Roman}ww0- . 2  . .2 Laoreet dolore    . . 2  . .2 * Magna aliquam    . . 2  . .U2 *4Exerci tation ullamcorper suscipit lobortis nisl ut              . .!2 ,*aliquip ex ea com      .--"System 0-&TNPP &ronts UsedDesign Template Slide Titles