Nasıl yapılır: PowerPoint Visual FoxPro kullanarak otomatikleştirme

Makale çevirileri Makale çevirileri
Makale numarası: 230154 - Bu makalenin geçerli olduğu ürünleri görün.
Bu makale arşivlenmiştir. "Olduğu gibi" sunulmaktadır ve bundan sonra güncelleştirilmeyecektir.
Hepsini aç | Hepsini kapa

Özet

Bu makalede, Microsoft PowerPoint, Visual FoxPro 6.0 kullanarak otomatikleştirme gösterilmiştir.

Daha fazla bilgi

PowerPoint'te Otomasyon kullanarak yazdırabilir program aracılığıyla, slaytları görüntülemek ve etkileşimli olarak yapabileceğiniz şeylerin çoğunu yapın. Oluşturmak ve bir Visual FoxPro Otomasyon Örneği'ni çalıştırmak için şu adımları izleyin:
  1. Visual FoxPro 6.0'ı başlatın ve ... Dosya menüsünden Yeni'yi.
  2. Dosya türü olarak projeyi seçin, Yeni dosyayı tıklatın ve PptTest adını.
  3. Proje Yöneticisi proje için konsol ağacında kod girdisinde altında Programlar ' ı tıklatın ve Yeni... düğmesini tıklatın.
  4. Program1 penceresine aşağıdaki kodu yapıştırın:
     * Start PowerPoint
       PptApp = CreateObject("Powerpoint.Application")
    	
     * Add a presentation
       PptPres = PptApp.Presentations.Add(1)
    
     * Add a slide	
       PptSlide1 = PptPres.Slides.Add(1,2)
    	
     * Add some text...
       PptSlide1.Shapes(1).TextFrame.TextRange.Text = "My first slide"
       PptSlide1.Shapes(2).TextFrame.TextRange.Text = "Automating Powerpoint is easy" + Chr(13) + "Using FoxPro is fun!"
    	
     * Add another slide, with a chart
       PptSlide2 = PptPres.Slides.Add(2,5)
    
     * Add some text
       PptSlide2.Shapes(1).TextFrame.TextRange.Text = "Slide 2's topic"
       PptSlide2.Shapes(1).TextFrame.TextRange.Text = "You can create and use charts in your Powerpoint slides!"
    
     * Add a chart where the old one is...
       With PptSlide2.Shapes(3)
          cTop = .Top
          cWidth = .Width
          cHeight = .Height
          cLeft = .Left
          .Delete
       EndWith
    	
       PptSlide2.Shapes.AddOLEObject(cLeft, cTop, cWidth, cHeight, "MSGraph.Chart")
    
     * Add another slide, with an Organization chart
       PptSlide3 = PptPres.Slides.Add(3,7)
    	
     * Add some text
       PptSlide3.Shapes(1).TextFrame.TextRange.Text = "The rest is only limited by your Imagination"
    
     * Add an Org chart where old one is...
       With PptSlide3.Shapes(2)
          cTop = .Top
          cWidth = .Width
          cHeight = .Height
          cLeft = .Left
          .Delete
       EndWith
    	
        &&  PptSlide3.Shapes.AddOLEObject(cLeft, cTop, cWidth, cHeight, "OrgPlusWOPX.4")
        &&  Uncomment the above line if you have the correct file.
    
    
     * Setup slide show properties...
       With PptPres.Slides.Range.SlideShowTransition
          .EntryEffect = 513
          .AdvanceOnTime = 1
          .AdvanceTime = 5
       EndWith
    
     * Prepare and run slide-show!
       With PptPres.SlideShowSettings
          .ShowType = 3
          .LoopUntilStopped = 1
          .RangeType = 1
          .AdvanceMode = 2
          .Run
       EndWith
    
     * Sleep so user can watch the show...
       Wait window "Waiting for slide show to finish..." TIMEOUT 16
    
     * Stop the slide show
       PptPres.SlideShowWindow.View.Exit
    
     * Clean up
       PptApp.Quit
       Release PptSlide3
       Release PptSlide2
       Release PptSlide1
       Release PptPres
       Release PptApp
    
    					
  5. Dosya/Kaydet (CTRL + S) seçin ve program PptTest kaydedin.
  6. (CTRL + E) programını çalıştırın.

    Örnek bir PowerPoint sunusuna örnek oluşturur, slayt gösterisi 16 saniye süreyle oynadığı ve temizler. Yorum olarak kodu dikkatle her kod kesimi yaptıklarını açıklamak için belirtilmiş olan.

Özellikler

Makale numarası: 230154 - Last Review: 5 Şubat 2014 Çarşamba - Gözden geçirme: 3.4
Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Visual FoxPro 6.0 Professional Edition
  • Microsoft PowerPoint 2002 Standard Edition
  • Microsoft PowerPoint 2000 Standard Edition
  • Microsoft PowerPoint 97 Standard Edition
Anahtar Kelimeler: 
kbnosurvey kbarchive kbmt kbautomation kbhowto KB230154 KbMttr
Machine-translated Article
ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.
Makalenin İngilizcesi aşağıdaki gibidir:230154

Geri Bildirim Ver

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com