PowerPoint Microsoft Foundation Classes Visual C++ 5.0 ve Visual C++ 6.0 kullanarak otomatikleþtirme

  // method 'MyMethod' not emitted because of invalid return type or    parameter type
				

Makrolarla PowerPoint sunusu oluþturmak için adýmlarý

1. Microsoft PowerPoint'i baþlatýn ve yeni bir sunu ile üç bir boþ slayt oluþturma.
2. Visual Basic Düzenleyicisi'ni baþlatmak için ALT+F11 tuþlarýna basýn.
3. Ekle menüsünden modülü bir modüle yeni sunuya eklemek için týklatýn.
4. Aþaðýdaki kodu modüle ekleyin.

      Sub ChangeBackColor()  'Change backcolor of slides 1, 2 and 3
       With ActivePresentation.Slides.Range(Array(1, 2, 3))
           .FollowMasterBackground = msoFalse
           .Background.Fill.ForeColor.SchemeColor = ppAccent2
       End With
      End Sub
   
      Sub ChangeText(vArray As Variant)
       'Add a text box to each slide and use the text from the
       'array passed into this procedure
       Dim s As Slide
       For i = 1 To ActivePresentation.Slides.Count
           With ActivePresentation.Slides(i).Shapes.AddTextbox( _
                           msoTextOrientationHorizontal, 186#, 54#, 336#, 36#)
               .TextFrame.TextRange.Text = vArray(i - 1)
               .TextFrame.TextRange.Font.Size = 60
           End With
       Next
      End Sub
   						

5. Sunuyu aþaðýdaki ve sonra Kapat PowerPoint biri olarak kaydedin:
   • PowerPoint 2007'de, C:\Pres.pptm gibi bir dosya adý'ný kullanarak, sunuyu bir makro Etkin Sunusu (*.pptm) olarak kaydedin.
   • PowerPoint 2003'te ve PowerPoint'in önceki sürümleri, sunuyu bir sunu kaydedin (* .ppt) C:\Pres.ppt gibi bir dosya adý kullanarak.

MFC uygulamasý oluþturma adýmlarý

1. AutoPPT adlý yeni bir MFC iletiþim kutusunu tabanlý uygulama oluþturun.
2. Görünüm menüsünde (veya CTRL + W tuþlarýna basýn), sýnýf Sihirbazý'ný seçin ve sonra aþaðýdaki adýmlarý izleyin:
   1. Otomasyon sekmesini týklatýn.
   2. Add Class ' ý týklatýn ve Kimden, tür kitaplýðý</a1>'ý týklatýn.
   3. PowerPoint Kitaplýðý'ný bulun ve sonra da PowerPoint tür kitaplýðý ekleyin:
      • PowerPoint 2007 için Msppt.olb ekleyin.
      • PowerPoint 2003'te, Msppt.olb ekleyin.
      • PowerPoint 2002 için Msppt.olb ekleyin.
      • PowerPoint 2000'de, Msppt9.olb ekleyin.
      • PowerPoint 97'in için Msppt8.olb ekleyin.
3. Kaynak KIMLIÐI IDD_AUTOPPT_DIALOG ile iletiþim kutusunu seçin. Iletiþim kutusuna bir düðme ekleyin ve sonra bu düðme için iþleyicisine aþaðýdaki kodu ekleyin.

      _Application	oApp;
      if(!oApp.CreateDispatch("Powerpoint.Application"))
      {
           AfxMessageBox("Could not get Powerpoint application.");
           return;
      }
      oApp.SetVisible(TRUE);
   
   
      //Get the Presentations collection and open a presentation
      Presentations oPresSet(oApp.GetPresentations());
      CString strFilename;
      //For PowerPoint 2007, change the file name to "c:\\pres.pptm"
      strFilename = "c:\\pres.ppt";
      _Presentation oPres(oPresSet.Open(strFilename, // Filename
                                        true,        // Readonly
                                        false,       // Untitled
                                        true         // WithWindow
                         ));
   		
      //*************** How to Run PowerPoint Macros *********************
   
      // Run "ChangeBackColor" macro in the presentation -- note that the
      // "ChangeBackColor" macro requires no arguments
   
      {
          COleVariant vOpt((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
          static BYTE parms[] = 
               VTS_BSTR  VTS_VARIANT;
          LPCTSTR lpszMacroName = "Pres.ppt!ChangeBackColor";
   
          oApp.InvokeHelper(0x7e6, DISPATCH_METHOD, VT_EMPTY, NULL,  parms,
                            lpszMacroName, //Macro Name
                            &vOpt          //No arguments, for example, ignore
                           );
      }
   			
   
      // Run "ChangeText" macro in the presentation;
      // The macro requires three arguments -- the first two are strings
      // and the last one is a long	
   		
      {
   
           COleSafeArray saArgs;  //Create a 1-dimensional array with three 
                                  //elements
   
           DWORD numElements[1];
           numElements[0]= 3;	
           saArgs.Create(VT_VARIANT, 1, numElements);	
           long index[1];
           VARIANT v;
   
           index[0]=0;		//Fill 1st element
           CString sName("ABC");
           VariantInit(&v);
           v.vt= VT_BSTR;
           v.bstrVal = sName.AllocSysString();
           saArgs.PutElement(index, &v);
           SysFreeString(v.bstrVal);
           VariantClear(&v);
   
           index[0]=1;		//Fill 2nd element
           CString sCompany("XYZ");
           VariantInit(&v);
           v.vt= VT_BSTR;
           v.bstrVal = sCompany.AllocSysString();
           saArgs.PutElement(index, &v);
           SysFreeString(v.bstrVal);
           VariantClear(&v);
   
           index[0]=2;		//Fill 3rd element
           VariantInit(&v);
           v.vt = VT_I4;
           v.lVal=123;
           saArgs.PutElement(index, &v);
           VariantClear(&v);
   
           static BYTE parms[] = 
                VTS_BSTR  VTS_VARIANT;
           LPCTSTR lpszMacroName = "Pres.ppt!ChangeText";
           oApp.InvokeHelper(0x7e6, DISPATCH_METHOD, VT_EMPTY, NULL, parms,
                             lpszMacroName,   //Macro Name
                             (VARIANT*)saArgs //Array of macro parameters 
                            );
   
           saArgs.Detach();
      }
   
   						

   Not PowerPoint 2002 Tür kitaplýðýnda bir alt satýra kaydýrýlmýþ sýnýflar, ekleme ek bir baðýmsýz deðiþken (false) Open yöntemi çaðrýsý.
4. Deyimi eklemek için PowerPoint uygun ekleme üstbilgi dosyasý.

   #include "msppt8.h" // use msppt9.h for 2000 or msppt.h for 2002, 2003, and 2007
   					

5. Aþaðýdaki kod satýrýný CAutoPPTApp::InitInstance() iþlevinin baþýna ekleyin.

        AfxOleInit();
   						

6. Derleme ve çalýþtýrma. Otomasyon kod çalýþtýrmak için iletiþim kutusuna eklediðiniz düðmesini seçin. Kod tamamlandýktan sonra sunuya makro tarafýndan yapýlan deðiþiklikleri inceleyebileceðiniz böylece PowerPoint görünür kalacak.

Üste