Cara mengotomatisasi PowerPoint dengan menggunakan Microsoft Foundation Classes Visual C++ 5.0 dan Visual C++ 6.0

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

Langkah-langkah untuk membuat presentasi PowerPoint dengan makro

1. Mulai Microsoft PowerPoint dan membuat presentasi baru dengan tiga slide kosong.
2. Tekan ALT+F11 untuk memulai Editor Visual Basic.
3. Dari Masukkan menu, klik Modul untuk memasukkan sebuah modul dalam presentasi baru.
4. Tambahkan kode berikut ke modul.

      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. Simpan presentasi sebagai salah satu PowerPoint berikut, dan kemudian dekat:
   • Dalam PowerPoint 2007, menyimpan presentasi sebagai makro diaktifkan presentasi (*.pptm) dengan menggunakan nama file seperti C:\Pres.pptm.
   • Dalam PowerPoint 2003 dan versi sebelumnya dari PowerPoint, Simpan presentasi sebagai presentasi (* .ppt) dengan menggunakan nama file seperti C:\Pres.ppt.

Langkah-langkah untuk membuat aplikasi MFC

1. Membuat MFC dialog kotak berbasis aplikasi baru bernama AutoPPT.
2. Dari Lihat menu (atau tekan CTRL + W), pilih Wisaya kelas, dan kemudian ikuti langkah-langkah berikut:
   1. Klik Otomatisasi tab.
   2. Klik Menambahkan kelas, lalu klik Dari perpustakaan jenis.
   3. Temukan PowerPoint library, dan kemudian menambahkan perpustakaan jenis PowerPoint:
      • Untuk PowerPoint 2007, menambahkan Msppt.olb.
      • Untuk PowerPoint 2003, menambahkan Msppt.olb.
      • Untuk PowerPoint 2002, menambahkan Msppt.olb.
      • Untuk PowerPoint 2000, menambahkan Msppt9.olb.
      • Untuk PowerPoint 97, menambahkan Msppt8.olb.
3. Pilih kotak dialog dengan ID sumber daya IDD_AUTOPPT_DIALOG. Menambahkan tombol ke kotak dialog, dan kemudian tambahkan kode berikut untuk handler untuk tombol itu.

      _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();
      }
   
   						

   Catatan Jika Anda terbungkus kelas perpustakaan jenis PowerPoint 2002, menambahkan argumen tambahan (palsu) untuk panggilan untuk metode terbuka.
4. Tambahkan sesuai Sertakan pernyataan untuk Powerpoint header file.

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

5. Menambahkan baris kode berikut untuk permulaan CAutoPPTApp::InitInstance() fungsi.

        AfxOleInit();
   						

6. Mengkompilasi dan menjalankan. Pilih tombol yang ditambahkan ke dialog kotak untuk menjalankan kode otomatisasi. Setelah kode selesai, PowerPoint akan tetap terlihat sehingga Anda dapat mengamati perubahan presentasi yang dibuat oleh macro.

Kembali ke atas