Использование автоматизации для создания и демонстрации презентации PowerPoint с помощью Visual Basic.NET 2002 или Visual Basic.NET 2003

Поддержка Office 2003 завершена

8 апреля 2014 г. корпорация Майкрософт прекратила поддержку Office 2003. Это повлияло на обновления программного обеспечения и параметры безопасности. Узнайте, что это значит для вас и какие меры по безопасности можно предпринять.

ВНИМАНИЕ! Перевод данной статьи был выполнен не человеком, а с помощью программы машинного перевода, разработанной корпорацией Майкрософт. Корпорация Майкрософт предлагает вам статьи, переведенные как людьми, так и средствами машинного перевода, чтобы у вас была возможность ознакомиться со статьями базы знаний KB на родном языке. Однако машинный перевод не всегда идеален. Он может содержать смысловые, синтаксические и грамматические ошибки, подобно тому как иностранец делает ошибки, пытаясь говорить на вашем языке. Корпорация Майкрософт не несет ответственности за неточности, ошибки и возможный ущерб, причиненный в результате неправильного перевода или его использования. Корпорация Майкрософт также часто обновляет средства машинного перевода.

Эта статья на английском языке:303717
Для Microsoft Visual C#.NET версии статьи, см. 303718.
Для Microsoft Visual C++.NET версии статьи, см. 308336.
Аннотация
В данной статье описывается создание и для показа презентации Microsoft PowerPoint с помощью Microsoft Visual Basic.NET 2002 или Visual Basic.NET 2003.
Дополнительная информация

Создание клиента автоматизации для Microsoft PowerPoint

  1. Запустите Microsoft Visual Studio.NET 2002 или Visual Studio .NET 2003. На Файл меню, нажмите кнопку Новый и выберите команду Проект. Выберите Приложение Windows из типов проектов Visual Basic. Созданные формы Form1 по умолчанию.
  2. Добавить ссылку Библиотека объектов Microsoft PowerPoint и Библиотека объектов Microsoft Graph. Чтобы сделать это, выполните следующие действия.
    1. На Проект меню, нажмите кнопку Добавить Ссылка.
    2. На COM Вкладка, найдите Библиотека объектов Microsoft PowerPoint, а затем нажмите кнопку Выберите. Также поиск Объект Microsoft Graph Библиотека, а затем нажмите кнопку Выберите.

      Примечание: Microsoft Office 2003 и более поздних версиях Microsoft Office включает основные сборки взаимодействия (PIA). Microsoft Office XP включает основных сборок взаимодействия, но они могут быть Загрузка.

      Для получения дополнительных сведения об основных сборок взаимодействия Office XP, щелкните следующий номер статьи для просмотра в статье базы знаний Майкрософт:
      328912Основных сборок взаимодействия Microsoft Office XP можно загрузить
    3. Нажмите кнопку ОК В диалоговом окне Добавить Ссылки диалоговое окно для подтверждения сделанного.
  3. На Представление Выберите пунктПанели инструментов Чтобы отобразить панель инструментов и добавить кнопку Форма Form1.
  4. Дважды щелкните значок Button1. Окно кода для Появится форма.
  5. В окне кода найдите следующий код
        Private Sub Button1_Click(ByVal sender As System.Object, _        ByVal e As System.EventArgs) Handles Button1.Click    End Sub					
    Замените следующий код:
        Private Sub Button1_Click(ByVal sender As System.Object, _        ByVal e As System.EventArgs) Handles Button1.Click        Const sTemplate = _           "C:\Program Files\Microsoft Office\Templates\Presentation Designs\Blends.pot"        Const sPic = "C:\WINNT\Soap Bubbles.bmp"        Dim oApp As PowerPoint.Application        Dim oPres As PowerPoint.Presentation        Dim oSlide As PowerPoint.Slide        Dim bAssistantOn As Boolean        'Start Powerpoint and make its window visible but minimized.        oApp = New PowerPoint.Application()        oApp.Visible = True        oApp.WindowState = PowerPoint.PpWindowState.ppWindowMinimized        'Create a new presentation based on the specified template.        oPres = oApp.Presentations.Open(sTemplate, , , True)        'Build Slide #1:        'Add text to the slide, change the font and insert/position a         'picture on the first slide.        oSlide = oPres.Slides.Add(1, PowerPoint.PpSlideLayout.ppLayoutTitleOnly)        With oSlide.Shapes.Item(1).TextFrame.TextRange            .Text = "My Sample Presentation"            .Font.Name = "Comic Sans MS"            .Font.Size = 48        End With        oSlide.Shapes.AddPicture(sPic, False, True, 150, 150, 500, 350)        oSlide = Nothing        'Build Slide #2:        'Add text to the slide title, format the text. Also add a chart to the        'slide and change the chart type to a 3D pie chart.        oSlide = oPres.Slides.Add(2, PowerPoint.PpSlideLayout.ppLayoutTitleOnly)        With oSlide.Shapes.Item(1).TextFrame.TextRange            .Text = "My Chart"            .Font.Name = "Comic Sans MS"            .Font.Size = 48        End With        Dim oChart As Graph.Chart        oChart = oSlide.Shapes.AddOLEObject(150, 150, 480, 320, _                    "MSGraph.Chart.8").OLEFormat.Object        oChart.ChartType = Graph.XlChartType.xl3DPie        oChart = Nothing        oSlide = Nothing        'Build Slide #3:        'Add a text effect to the slide and apply shadows to the text effect.        oSlide = oPres.Slides.Add(3, PowerPoint.PpSlideLayout.ppLayoutBlank)        oSlide.FollowMasterBackground = False        Dim oShape As PowerPoint.Shape        oShape = oSlide.Shapes.AddTextEffect(Office.MsoPresetTextEffect.msoTextEffect27, _            "The End", "Impact", 96, False, False, 230, 200)        oShape.Shadow.ForeColor.SchemeColor = PowerPoint.PpColorSchemeIndex.ppForeground        oShape.Shadow.Visible = True        oShape.Shadow.OffsetX = 3        oShape.Shadow.OffsetY = 3        oShape = Nothing        oSlide = Nothing        'Modify the slide show transition settings for all 3 slides in        'the presentation.        Dim SlideIdx(3) As Integer        SlideIdx(0) = 1        SlideIdx(1) = 2        SlideIdx(2) = 3        With oPres.Slides.Range(SlideIdx).SlideShowTransition            .AdvanceOnTime = True            .AdvanceTime = 3            .EntryEffect = PowerPoint.PpEntryEffect.ppEffectBoxOut        End With        Dim oSettings As PowerPoint.SlideShowSettings        oSettings = oPres.SlideShowSettings        oSettings.StartingSlide = 1        oSettings.EndingSlide = 3        'Prevent Office Assistant from displaying alert messages.        bAssistantOn = oApp.Assistant.On        oApp.Assistant.On = False        'Run the slide show and wait for the slide show to end.        oSettings.Run()        Do While oApp.SlideShowWindows.Count >= 1            System.Windows.Forms.Application.DoEvents()        Loop        oSettings = Nothing        'Reenable Office Assisant, if it was on.        If bAssistantOn Then            oApp.Assistant.On = True            oApp.Assistant.Visible = False        End If        'Close the presentation without saving changes and quit PowerPoint.        oPres.Saved = True        oPres.Close()        oPres = Nothing        oApp.Quit()        oApp = Nothing        GC.Collect()    End Sub					
    Примечание В этом коде sTemplate и sPic Константы представляют собой полный путь и имя файла в PowerPoint шаблон и картинки, соответственно. Изменять эти контуры по мере необходимости с помощью шаблон или рисунок, который установлен в вашей системе.
  6. Добавьте следующий код в верхнюю часть файла Form1.vb:
    Imports Office = Microsoft.Office.CoreImports Graph = Microsoft.Office.Interop.GraphImports PowerPoint = Microsoft.Office.Interop.PowerPoint					
  7. Нажмите клавишу F5, чтобы построить и запустить программу.
  8. Нажмите кнопку Button1 на форму для создания и отображения PowerPoint презентации.
Ссылки
Дополнительные сведения содержатся в следующих разработчиков корпорации Майкрософт Веб-узел сети MSDN: Для получения дополнительных сведений об автоматизации PowerPoint щелкните следующую статью номера статей базы знаний Майкрософт:
180616Использование MFC для создания и отображения презентации PowerPoint
222929 Автоматизация PowerPoint с помощью Visual Basic
PPT2007

Внимание! Эта статья переведена автоматически

Свойства

Номер статьи: 303717 — последний просмотр: 10/06/2011 02:23:00 — редакция: 7.0

Microsoft Office PowerPoint 2007, Microsoft Office PowerPoint 2003, Microsoft PowerPoint 2002 Standard Edition, Microsoft Visual Basic .NET 2003 Standard Edition, Microsoft Visual Basic .NET 2002 Standard Edition, Microsoft Visual Studio .NET 2002 Academic Edition, Microsoft Visual Studio .NET 2002 Enterprise Architect, Microsoft Visual Studio .NET 2002 Enterprise Developer, Microsoft Visual Studio .NET 2003 Academic Edition, Microsoft Visual Studio .NET 2003 Enterprise Architect, Microsoft Visual Studio .NET 2003 Enterprise Developer, Microsoft Visual Studio .NET 2003 Professional Edition

  • kbexpertiseinter kbautomation kbhowto kbmt KB303717 KbMtru
Отзывы и предложения