PowerPoint 2000'de farklý bir PowerPoint eklentisi oluþturma hakkýnda

Üste

Adým 1 - eklenti kodu oluþtur

1. PowerPoint'i baþlatýn ve boþ bir sunu yaratýn.
2. Araçlar menüsünden, makro ' nun üzerine gelin ve sonra Visual Basic Düzenleyicisi ' ni týklatýn.
3. Visual Basic Düzenleyicisi'nde, Modül, Ekle menüsünde týklatýn.
4. Aþaðýdaki kod, Modül penceresi içinde yazýn. Not: kodunuz için aþaðýdaki kodu yerine kullanabilirsiniz.

         Sub ChangeView()
   
            ' Check to see whether a presentation is open.
            If Presentations.Count <> 0 Then
               If ActiveWindow.ViewType <> ppViewSlideSorter Then
                  ActiveWindow.ViewType = ppViewSlideSorter
               End If
            Else
               MsgBox "No presentation open. Open a presentation and " _
                  & "run the macro again.", vbExclamation
            End If
         End Sub
   						

   Not: bir kesme iþareti (') öncesinde BIR satýr kodda bir açýklama sunar. Açýklamalar, kodun ne yordamý belirli bir noktada yaptýðýný açýklamak için saðlanmýþtýr. Bu metin, isteðe baðlýdýr ve kodunuzdan dýþlandý.

Üste

Adým 2 - Auto_Open makrosu oluþturma

   Sub Auto_Open()

      Dim NewControl As CommandBarControl

      ' Store an object reference to a command bar.
      Dim ToolsMenu As CommandBars

      ' Figure out where to place the menu choice.
      Set ToolsMenu = Application.CommandBars

      ' Create the menu choice. The choice is created in the first
      ' position in the Tools menu.
      Set NewControl = ToolsMenu("Tools").Controls.Add _
                       (Type:=msoControlButton, _
                        Before:=1)

      ' Name the command.
      NewControl.Caption = "Change to Slide Sorter"

      ' Connect the menu choice to your macro. The OnAction property
      ' should be set to the name of your macro.
      NewControl.OnAction = "ChangeView"

   End Sub
				

Üste

Adým 3 - Auto_Close makro oluþturma

   Sub Auto_Close()

      Dim oControl As CommandBarControl
      Dim ToolsMenu As CommandBars

      ' Get an object reference to a command bar.
      Set ToolsMenu = Application.CommandBars

      ' Loop through the commands on the tools menu.
      For Each oControl In ToolsMenu("Tools").Controls

            ' Check to see whether the comand exists.
            If oControl.Caption = "Change to Slide Sorter" Then

              ' Check to see whether action setting is set to ChangeView.
              If oControl.OnAction = "ChangeView" Then

                  ' Remove the command from the menu.
                  oControl.Delete
               End If
            End If
      Next oControl

   End Sub
				

Üste

4 Adýmda - .ppa dosya oluþtur

1. Hata Ayýkla</a0> menüsünde VBAProject Derle'yi týklatýn. Kod derleme hatalarý varsa, eklentiyi oluþturma olmayacak.
   Not: Bu adým yalnýzca olan Visual Basic Düzenleyicisi'nde otomatik sözdizimi denetimi seçeneði seçili deðilse, gerekli. Bu seçeneði açmak veya kapatmak için þu adýmlarý izleyin:
   1. Araçlar menüsünden Seçenekler ' i týklatýn ve sonra da Düzenleyici sekmesini týklatýn.
   2. Týklatýp otomatik sözdizimi denetimi onay kutusunu seçin veya temizleyin ve sonra Tamam'ý týklatýn.
   Adým 2 için bu seçenek seçili ise atlayýn.
   
2. Sunuyu kaydedin.
   1. Dosya menüsünde Kapat ve Microsoft PowerPoint'e Dön'ý týklatýn.
   2. Dosya menüsünden farklý Kaydet ' i týklatýn.
   3. Seçin sunusu (* .ppt) <a0>Kayýt türü</a0> listesinde.
   4. Sununun adýný ve sonra da <a2>Kaydet</a2>'i týklatýn.
   Eklenti kod þimdi, sunudaki kaydedilir.
3. .Ppa dosyasý oluþturun.
   1. Dosya menüsünden farklý Kaydet ' i týklatýn.
   2. Seçin PowerPoint Eklentisi (* .ppa) <a0>Kayýt türü</a0> listesinde.
   3. Dosya adý kutusuna, eklentiniz için bir ad yazýn ve sonra da <a2>Kaydet</a2>'i týklatýn.
   Genellikle, PowerPoint Eklentileri c:\Program Files\ Microsoft Office\Office klasöründe eklenir. Ancak, isterseniz baþka bir klasör seçin.

Üste

5 Adým - eklenti yüklenemedi.

1. Araçlar menüsünde, Eklentiler ' i týklatýn.
2. Yeni Ekle ' yi týklatýn.
3. Ekle yeni PowerPoint eklentisi iletiþim kutusunda "Adým 4 - oluþtur PPA File" bölümünde oluþturduðunuz eklenti dosyasýný seçin. Tamam ' ý týklatýn.
4. Makro uyarý iletisi kutusunda, Makrolarý Etkinleþtir'i týklatýn.
   
   Not: Eklenti dosyasý bilinmeyen bir kaynaktan aldýðýnýz, Makrolarý devre dýþý býrak'ý.
   
   Þimdi, Auto_Open makrosu yürütür.

Üste

Adým 6 - eklenti Kaldýr

1. Araçlar menüsünde, Eklentiler ' i týklatýn.
2. Kullanýlabilen Eklentiler listesinden kaldýrmak istediðiniz eklentiyi seçin ve sonra Kaldýr ' ý veya Kaldýr ' ý týklatýn. Kaldýr'ý týklattýðýnýzda, eklentiyi kaldýrýlýr, ancak bunu kullanýlabilen eklentiler listesinde kalýr. Kaldýr'ý týklatýn, eklentinin kaldýrýlýr ve kullanýlabilen eklentiler listesinden kaldýrýldý.
   
   Þimdi, Auto_Close makroyu çalýþtýrýr.

Üste

Adým 7 - bilgisayarýnýzý eklentisi bir parola ile koruma

1. Araçlar menüsünden VBAProject özellikler ' i týklatýn ve sonra koruma</a0> sekmesini týklatýn.
2. Kilit, proje için görüntüleme onay kutusunu seçmek için týklatýn.
3. Görünüm proje özellikleri için parola altýnda parola ve Parolayý Onayla iletiþim kutularýnda istediðiniz parolayý yazýn.
4. Tamam ' ý týklatýn. Parola, artýk, kaynak kodunu görüntülemek için gereklidir.

Üste