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

Ö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
Bu makale arşivlenmiştir. "Olduğu gibi" sunulmaktadır ve bundan sonra güncelleştirilmeyecektir.
Ö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.

Uyarı: Bu makalenin çevirisi otomatik olarak yapılmıştır

Özellikler

Makale No: 230154 - Son İnceleme: 02/05/2014 01:26:10 - Düzeltme: 3.4

Microsoft Visual FoxPro 6.0 Professional Edition, Microsoft PowerPoint 2002 Standard Edition, Microsoft PowerPoint 2000 Standard Edition, Microsoft PowerPoint 97 Standard Edition

  • kbnosurvey kbarchive kbmt kbautomation kbhowto KB230154 KbMttr
Geri bildirim