Makale numarası: 287120 - Son Gözden Geçirme: 23 Ekim 2006 Pazartesi - Gözden geçirme: 3.1

Başka bir Office programında konuşma metni Excel otomatikleştirme

Sistem İpucuBu makale, kullandığınızdan farklı bir işletim sistemine yöneliktir. Sizinle ilgili olmayabilecek makale içeriği devre dışı bırakıldı.

Bu Sayfada

Hepsini aç | Hepsini kapa

Özet

Bu adım adım makalede, Microsoft Word, Microsoft PowerPoint ve Microsoft Outlook gibi başka programlarda metin okuma işlevselliğini Microsoft Excel'in nasıl kullanabileceğinizi açıklar.

Microsoft Excel'in yerleşik metin okuma (TTS) yetenekleri olan yalnızca Microsoft Office XP programıdır. Bu makale, OLE Otomasyonu programsal olarak Excel nesne modeline erişmek ve diğer programlarda metin okuma işlevselliğini kullanmak için nasıl kullanabileceğinizi açıklar.

Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; örtülü veya açık garanti vermez. Buna satılabilirlik veya belirli bir amaca uygunluk zımni garantileri de dahildir, ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini ve yordamları oluşturmak ve hata ayıklamak amacıyla kullanılan araçları kullanmayı bildiğinizi varsayar. Microsoft destek mühendisleri, belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir, ancak gereksinimlerinizi karşılamaya yönelik olarak ek işlevsellik sağlamak veya yordamlar geliştirmek amacıyla bu örnekleri değiştirmezler.

Metin okuma PowerPoint'te kullanın...

Aşağıdaki örnek, bir PowerPoint sunusundaki metin okuma erişimi için Excel nesne modeli kullanır. Bu yordam, başvuru ve Konuşma nesnesini kullanmak için Excel nesnesi oluşturmak gösterilmiştir.

Modül bir PowerPoint sunusuna yerleştirin...

  1. PowerPoint sunusunu açın.
  2. Visual Basic Düzenleyicisi'ni başlatmak için ALT+F11 tuşlarına basın.
  3. Ekle menüsünden modülü ' nü tıklatın.
  4. Yazın veya kopyalayın ve bu bölümde daha sonra görüntülenen örnek kodu modüle yapıştırın.

10 Nesne kitaplığı Excel'e bir başvuru ekleyin.

  1. Visual Basic Düzenleyicisi'nde, Araçlar menüsünden Başvurular için işaretleyin.
  2. Altında Kullanılabilir başvurular, Microsoft Excel 10.0 Nesne Kitaplığı</a0> onay kutusunu tıklatıp seçin ve Tamam ' ı tıklatın.

Excel metin okuma PowerPoint'ten otomatikleştirilir alt yordam

Aşağıdaki örnek, PowerPoint sununuzun iki slayt olduğunu varsayar.
Sub demoTTS()
    
    'Declare and create an Excel object.
    Dim XL As Excel.Application
    Set XL = CreateObject("Excel.Application")
    
    ActivePresentation.SlideShowSettings.Run
 
    With SlideShowWindows(1).View
        'The following is said on the first slide:
        XL.Speech.Speak "Welcome to my presentation."
        'Change to slide 2, and then say the following two sentences:
        .Next
        XL.Speech.Speak "This is an example of how to create an Excel Application object."
        XL.Speech.Speak "We can use Excel's object model to invoke Text to Speech."
        
        'Close the Excel object and set the object to nothing.
        XL.Quit
        Set XL = Nothing
        
        'Exit the slideshow.
        .Exit
    End With
    
End Sub

				
Not: PowerPoint güvenlik yüksek sırasında varsayılan olarak ayarlanır. Bu ayarı, imzasız Visual Basic makroları çalıştırmayın. Aşağıdaki adımları izleyerek, makro güvenlik düzeyini Orta olarak değiştirin:
  1. Araçlar menüsünden, makro ' nun üzerine gelin ve ardından Güvenlik ' i tıklatın.
  2. Sekmesinde Güvenlik düzeyiOrta ' ı tıklatıp seçin ve Tamam'ı tıklatın.
  3. Dosya menüsünde, PowerPoint çıkmak için Çık ' ı tıklatın.

    Not: çıkıp yeniden kazanması için PowerPoint'in güvenlik düzeyini değiştirmek için başlatmanız gerekir.

Metin okuma Word'Ü kullanın...

Aşağıdaki örnek, bir Word belgesinden metin okuma erişimi için Excel nesne modeli kullanır. Bu yordam, başvuru ve Konuşma nesnesini kullanmak için Excel nesnesi oluşturmak gösterilmiştir.

Word'e modül Ekle

  1. Bir Word belgesini açın.
  2. Visual Basic Düzenleyicisi'ni başlatmak için ALT+F11 tuşlarına basın.
  3. Ekle menüsünden modülü ' nü tıklatın.
  4. Yazın veya kopyalayın ve bu bölümde daha sonra görüntülenen örnek kodu modüle yapıştırın.

10 Nesne kitaplığı Excel'e bir başvuru ekleyin.

  1. Visual Basic Düzenleyicisi'nde, Araçlar menüsünden Başvurular için işaretleyin.
  2. Kullanılabilir başvurular) altında <a0>Microsoft Excel 10.0 Nesne Kitaplığı</a0> onay kutusunu seçin ve Tamam ' ı tıklatın.

Excel metin okuma Word'den otomatikleştirilir alt yordam

Aşağıdaki örnek, metin, Word yazdığınız varsayar belge ve alt yordamı çalıştırmak için önce metni seçin.
Sub TTS()
   'Declare and create an Excel object.
      Dim XL_tts As Excel.Application
      Set XL_tts = CreateObject("Excel.Application")
      XL_tts.Speech.Speak Selection
      XL_tts.Quit
      Set XL_tts = Nothing
End Sub
				
Not: Word güvenlik yüksek sırasında varsayılan olarak ayarlanır. Bu ayarı, imzasız Visual Basic makroları çalıştırmayın. Aşağıdaki adımları izleyerek, makro güvenlik düzeyini Orta olarak değiştirin:
  1. Araçlar menüsünden, makro ' nun üzerine gelin ve ardından Güvenlik ' i tıklatın.
  2. Sekmesinde Güvenlik düzeyiOrta ' ı tıklatıp seçin ve Tamam'ı tıklatın.
  3. Dosya menüsünde, Word çıkmak için Çık ' ı tıklatın.
Not: çıkıp yeniden kazanması için güvenlik düzeyini değiştirmek için Word başlatmanız gerekir.

Başvurular

Ek bilgi için, Microsoft Bilgi Bankası'ndaki makaleyi görüntülemek üzere aşağıdaki makale numarasını tıklatın:
277808  (http://support.microsoft.com/kb/277808/EN-US/ ) XL2002: "çalışma zamanı hatası 1004" ne zaman, metin okuma makro kullanma girişimi
Visual Basic for Applications Yardım alma hakkında daha fazla bilgi için Microsoft Knowledge Base'deki makaleyi görüntülemek üzere aşağıdaki makale numarasını tıklatın:
163435  (http://support.microsoft.com/kb/163435/ ) Visual Basic for Applications programlama kaynakları

Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Outlook 2002 Standard Edition
  • Microsoft PowerPoint 2002 Standard Edition
  • Microsoft Word 2002 Standard Edition
Anahtar Kelimeler: 
kbmt kbautomation kbenablesight kbhowtomaster KB287120 KbMttr
Otomatik TercümeOtomatik Tercüme
Ö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:287120  (http://support.microsoft.com/kb/287120/en-us/ )