Làm thế nào để sử dụng tự động hóa để tạo ra và cho thấy một PowerPoint trình bày bằng cách sử dụng Visual Basic.NET 2002 hoặc Visual Basic.NET 2003

Support for Office 2003 has ended

Microsoft ended support for Office 2003 on April 8, 2014. This change has affected your software updates and security options. Learn what this means for you and how to stay protected.

QUAN TRỌNG: Bài viết này được dịch bằng phần mềm dịch máy của Microsoft chứ không phải do con người dịch. Microsoft cung cấp các bài viết do con người dịch và cả các bài viết do máy dịch để bạn có thể truy cập vào tất cả các bài viết trong Cơ sở Kiến thức của chúng tôi bằng ngôn ngữ của bạn. Tuy nhiên, bài viết do máy dịch không phải lúc nào cũng hoàn hảo. Loại bài viết này có thể chứa các sai sót về từ vựng, cú pháp hoặc ngữ pháp, giống như một người nước ngoài có thể mắc sai sót khi nói ngôn ngữ của bạn. Microsoft không chịu trách nhiệm về bất kỳ sự thiếu chính xác, sai sót hoặc thiệt hại nào do việc dịch sai nội dung hoặc do hoạt động sử dụng của khách hàng gây ra. Microsoft cũng thường xuyên cập nhật phần mềm dịch máy này.

Nhấp chuột vào đây để xem bản tiếng Anh của bài viết này:303717
Đối với một Microsoft Visual C#.NET Phiên bản này viết, xem 303718.
Đối với một Microsoft Visual C++.NET Phiên bản này viết, xem 308336.
TÓM TẮT
Bài viết này mô tả cách sử dụng tự động hóa để tạo và để hiển thị một bản trình bày Microsoft PowerPoint bằng cách sử dụng Microsoft Visual Basic.NET 2002 hoặc Visual Basic.NET 2003.
THÔNG TIN THÊM

Tạo ra một khách hàng tự động hóa cho Microsoft PowerPoint

  1. Bắt đầu Microsoft Visual Studio.NET 2002 hoặc Visual Studio .NET 2003. Trên các Tệp trình đơn, nhấp vào Mới sau đó bấm Dự án. Chọn Ứng dụng Windows từ các loại dự án Visual Basic. Form1 được tạo ra bằng mặc định.
  2. Thêm một tham chiếu đến các Microsoft PowerPoint đối tượng thư viện và các Đồ thị Microsoft đối tượng thư viện. Để thực hiện việc này, hãy làm theo những bước sau:
    1. Trên các Dự án trình đơn, nhấp vào Thêm Tham khảo.
    2. Trên các COM tab, xác định vị trí các Microsoft PowerPoint đối tượng thư viện, sau đó bấm Chọn. Cũng xác định vị trí các Đồ thị Microsoft đối tượng Thư viện, sau đó bấm Chọn.

      Chú ý: Microsoft Office 2003 và phiên bản mới nhất của Microsoft Office bao gồm chính hội đồng Interop khác nhau (PIAs). Microsoft Office XP không bao gồm PIAs, nhưng họ có thể tải xuống.

      Để biết thêm thông tin về Office XP PIAs, nhấp vào số bài viết sau đây để xem bài viết trong cơ sở kiến thức Microsoft:
      328912Microsoft Office XP PIAs có sẵn để tải về
    3. Nhấp vào Ok trong các Thêm Tham khảo hộp thoại để chấp nhận của bạn lựa chọn.
  3. Trên các Xem trình đơn, chọnHộp công cụ hiển thị hộp công cụ và thêm một nút để Form1.
  4. Bấm đúp Button1. Cửa sổ mã cho các hình thức xuất hiện.
  5. Trong cửa sổ mã, xác định vị trí mã sau
        Private Sub Button1_Click(ByVal sender As System.Object, _        ByVal e As System.EventArgs) Handles Button1.Click    End Sub					
    Thay thế với đoạn mã sau:
        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					
    Chú ý Trong mã này, các sTemplatesPic hằng số đại diện cho đường dẫn đầy đủ và tên tệp để một PowerPoint tiêu bản và một bức tranh, tương ứng. Sửa đổi các đường dẫn như cần thiết để sử dụng một mẫu hoặc hình ảnh được cài đặt trên hệ thống của bạn.
  6. Thêm mã sau vào phía trên của Form1.vb:
    Imports Office = Microsoft.Office.CoreImports Graph = Microsoft.Office.Interop.GraphImports PowerPoint = Microsoft.Office.Interop.PowerPoint					
  7. Nhấn F5 để xây dựng và sau đó chạy chương trình.
  8. Nhấp vào Button1 về hình thức để tạo ra và sau đó cho thấy một PowerPoint trình bày.
THAM KHẢO
Để biết thêm chi tiết, xem các nhà phát triển Microsoft sau đây Trang Web mạng (MSDN): Để biết thêm chi tiết về tự động hóa PowerPoint, bấm vào bài viết sau đây các con số để xem các bài viết trong cơ sở kiến thức Microsoft:
180616Làm thế nào để sử dụng MFC tạo và hiển thị một bản trình bày PowerPoint
222929 Làm thế nào để tự động hoá PowerPoint sử dụng Visual Basic
PPT2007

Thuộc tính

ID Bài viết: 303717 - Xem lại Lần cuối: 10/06/2011 04:19:00 - Bản sửa đổi: 3.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 KbMtvi
Phản hồi