TPE

Tavvafi@gmail.com

≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

این بخش نیاز به این دارد که شما با نحوه ساخت و استفاده از Add-Ins،در پاورپوینت آشنا باشید.(ایجاد یک افزودنی(ADD-IN) در نوار ابزار پاورپوینت که ماکرویی را اجرا می کند.)

پرزنتیشنی با پسوند pptm درست کنید، کد زیر را داخل بخش VBA آن قرار دهید. سپس آنرا ذخیره کنید:

Public Sub RibbonXDemo_BUTTON_One()
' This just tells you how many slides are in the current presentation

    Dim oPres As Presentation

    If Presentations.Count < 1 Then
        MsgBox "Please open a presentation and try again."
        Exit Sub
    End If

    Set oPres = ActivePresentation

    MsgBox "Button_One says that there are: " & CStr(oPres.Slides.Count) & " slides."

End Sub   '  BUTTON_One

Public Sub RibbonXDemo_BUTTON_Help()
' This one's even more useless than the first

    MsgBox "Help?  HELP???  At these prices, you expect HELP?????"

End Sub

قایل را توسط نرم افزار Custom UI Editor tool باز کنید و کد XML زیر را به آن اضافه کنید و آنرا ذخیره کنید و ببندید:

<!-- This adds a new group to the Design tab and adds a couple of buttons to the group -->
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">

<ribbon>
  <tabs>
    <tab idMso="TabDesign">
	
      <group id="RibbonXDemo_Group_RibbonXDemo" 
      label="RibbonX Demo" 
      insertAfterMso="GroupPageSetup">
					
        <button 
          id="RibbonXDemo_Button_One" 
          label="Button One" 
          size="normal" 
          imageMso="DrawingCanvasExpand"
         onAction="RibbonXDemo_Button_One"
         screentip="Do whatever Sub RibbonXDemo_Button-One says to do"
         />

        <button 
          id="RibbonXDemo_Button_Help" 
          label="Help" 
          size="normal" 
          imageMso="Help"
          onAction="RibbonXDemo_Button_Help"
          screentip="Help me! Help me! HELP!!!"
         />

      </group>
    </tab>
  </tabs>
</ribbon>

</customUI>

دوباره فایل را با پاورپوینت باز کنید.