Bạn hiện đang ngoại tuyến, hãy chờ internet để kết nối lại

Trình duyệt của bạn không được hỗ trợ

Bạn cần cập nhật trình duyệt của mình để sử dụng trang web.

Cập nhật lên Internet Explorer phiên bản mới nhất.

Làm thế nào để sử dụng tự động hóa OLE trong Visio

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:309603
GIỚI THIỆU
Bài viết này chứa thông tin về cách sử dụng Microsoft Visual Basic hoặc Microsoft Visual Basic for Applications (VBA) để tự động hóa Microsoft Office Visio2from một Microsoft Văn phòng chương trình.

Microsoft cung cấp lập trình ví dụ để minh hoạ chỉ, không có bảo hành hoặc thể hiện hay ngụ ý. Điều này bao gồm, nhưng không giới hạn để bảo đảm ngụ ý khả năng bán hàng hoặc cho một cụ thể mục đích. Bài viết này giả định rằng bạn đã quen thuộc với các chương trình ngôn ngữ đang được chứng minh và với các công cụ được sử dụng để tạo ra và gỡ lỗi thủ tục. Microsoft hỗ trợ các kỹ sư có thể giúp giải thích các chức năng của một thủ tục cụ thể, nhưng họ sẽ không sửa đổi các Ví dụ để cung cấp thêm chức năng hoặc xây dựng quy trình để đáp ứng của bạn yêu cầu cụ thể. Quay lại các đầu trang

Tổng quan về tự động hóa

Tự động hóa (còn gọi là OLE tự động hóa) trong Visual Basic là quá trình của việc kiểm soát một chương trình từ một chương trình hoặc công cụ phát triển bên ngoài. Bạn có thể tự động hoá bất kỳ chương trình mà có một Visual Basic mô hình đối tượng. Một mô hình đối tượng là một bộ sưu tập thứ bậc của chương trình các đối tượng có sẵn hoặc tiếp xúc Visual BASIC.

Ví dụ, các mô hình đối tượng cho Microsoft Visio chứa các đối tượng chẳng hạn như:
  • Ứng dụng/toàn cầu đối tượng
  • Đối tượng tài liệu
  • Trang đối tượng
  • Đối tượng chủ
  • Lựa chọn đối tượng
  • Đối tượng hình dạng
  • Đối tượng cửa sổ
Mỗi người trong các đối tượng có một bộ duy nhất của phương pháp và bất động sản được yêu cầu để làm việc với họ trong Visual Basic. Ví dụ, một Đối tượng hình dạng có thể đại diện cho bất kỳ đối tượng trên một Visio vẽ trang mà bạn có thể chọn bằng cách sử dụng con trỏ. Vì vậy, một đối tượng hình dạng có thể có một hình dạng, một nhóm, một hướng dẫn, một điều khiển hoặc một đối tượng từ một chương trình khác được liên kết, nhúng, hoặc nhập khẩu vào một bản vẽ Visio.

Quay lại đầu trang

Bắt đầu

Mẫu mã trong bài viết này chứng minh làm thế nào để kiểm soát Visio từ Microsoft Office 2007, Microsoft Office 2003, Microsoft văn phòng 2002, Microsoft Visual Basic 6.0, hoặc từ bất kỳ chương trình mà bao gồm một sự phát triển Visual Basic công cụ. Để tự động hoá Visio, hãy làm theo các bước sau bốn chính:
  1. Thêm một tham chiếu đến các thư viện kiểu Visio.
  2. Khai báo một biến như một loại đối tượng Visio (thường Visio.Application hoặc Visio.Documents).
  3. Chỉ định các phương pháp GetObject hoặc CreateObject đối tượng biến bạn tuyên bố trong bước 2.
  4. Sử dụng thuộc tính của đối tượng Visio, phương pháp, và trẻ em các đối tượng để tự động hoá Visio.
Quay lại đầu trang

Bước 1: Thêm một tham chiếu đến các thư viện kiểu Visio

Để thêm một tham chiếu đến các thư viện kiểu Visio bằng cách sử dụng Microsoft Các ứng dụng văn phòng như Microsoft Office XP hoặc Office 2003, làm theo các bước sau:
  1. Trong truy cập, PowerPoint, Excel hoặc từ, điểm đến Macro trên các Công cụ trình đơn, và sau đó nhấp vào Visual Basic Editor.
  2. Trên các Công cụ trình đơn, nhấp vào Tham khảo.

    Chú ý Để thêm các tham chiếu sử dụng Microsoft Visual Basic 6.0, bấm Tham khảo trên các Dự án trình đơn.
  3. Trong danh sách Tài liệu tham khảo có sẵn, nhấn vào đây để chọn một trong hộp kiểm tra sau đây, tùy thuộc vào Phiên bản Visio mà bạn đang sử dụng:
    • Cho Visio 2007, nhấn vào đây để chọn các Thư viện kiểu Microsoft Visio 12,0 hộp kiểm.
    • Cho Visio 2003, nhấn vào đây để chọn các Thư viện kiểu Microsoft Visio 11,0 hộp kiểm.
    • Cho Visio 2002, nhấn vào đây để chọn các Thư viện kiểu Microsoft Visio 2002 hộp kiểm.
Khi bạn thêm tài liệu của Microsoft Visio Type Library, tham khảo của bạn chương trình có thể truy cập Microsoft Visio trợ giúp trực tuyến và mô hình đối tượng Visio. Bởi vì các tài liệu tham khảo được lưu trong mỗi dự án, bạn có thêm Visio Loại thư viện tài liệu tham khảo cho mỗi dự án Visual Basic hoặc VBA mà bạn muốn sử dụng để tự động hoá Visio.

Quay lại các đầu trang

Bước 2: Khai báo biến đối tượng

Để khai báo một biến Visio đối tượng, kích thước một biến như là một loại Visio đối tượng hình cụ thể, chẳng hạn như Visio.Application, Visio.Documents, hoặc Visio.Page.

Một cách rõ ràng tuyên bố loại đối tượng được gọi là ràng buộc đầu bởi vì các ứng dụng điều khiển kết nối hoặc gắn bó với các đối tượng để ứng dụng Visio biên dịch thay vì Tại thời gian chạy. Điều này sẽ cho bạn truy cập vào danh sách tự động Visio và bối cảnh nhạy cảm Giúp đỡ, và cho phép mã để chạy hiệu quả hơn.

Để biết thêm thông tin về đối tượng ràng buộc, Nhấp vào số bài viết sau đây để xem bài viết trong Microsoft Kiến thức cơ bản:
138138Cuối năm, ID, ràng buộc đầu loại có thể có trong VB cho các ứng dụng
Đối số sau Visual Basic mẫu tuyên bố biến AppVisio là một đối tượng của kiểu Visio.Application:

   Dim AppVisio as Visio.Application				
Quay lại đầu trang

Bước 3: Đặt biến

Bạn có thể sử dụng phương pháp Visual Basic hai sau đây để kích hoạt Visio:
  • CreateObject
  • GetObject
Sự khác biệt chính là rằng phương pháp CreateObject tạo ra một trường hợp mới của Visio, và phương pháp GetObject sử dụng một chạy rồi thể hiện của Visio. Bạn cũng có thể sử dụng GetObject để thiết lập của bạn biến đối tượng vào một cụ thể Visio tài liệu.

Sau mẫu đối số bộ các AppVisio biến để ứng dụng Visio bằng cách sử dụng CreateObject chức năng:
   Dim AppVisio as Visio.Application   Set AppVisio = CreateObject("Visio.Application")				
Trong một số trường hợp, bạn có thể muốn sử dụng một thể hiện Visio hiện có nếu Visio đang chạy, nhưng tạo ra một trường hợp mới nếu Visio không chạy. Để làm điều này, tạo ra một bộ xử lý lỗi đó sử dụng phương pháp CreateObject trong sự kiện này rằng phương pháp GetObject không, như được hiển thị trong mẫu mã này:
   Dim AppVisio As Visio.Application   On Error Resume Next   Set AppVisio = GetObject(, "visio.application")   If AppVisio Is Nothing Then      Set AppVisio = CreateObject("visio.application")   End If				
Chú ý Bạn cũng có thể sử dụng chức năng CreateObject để tạo ra một Visio trường hợp là vô hình. Ví dụ:
Set AppVisio = CreateObject("Visio.InvisibleApp")				
Bạn có thể sử dụng bất động sản có thể nhìn thấy của vật thể ứng dụng để kiểm soát cho dù trường hợp được nhìn thấy.

Bạn có thể sử dụng các đối tượng InvisibleApp với chỉ CreateObject chức năng. Cố gắng sử dụng nó với GetObject chức năng sẽ thất bại. Đối tượng InvisibleApp là không có sẵn trong các phiên bản của Visio sớm hơn so với Microsoft Visio 2000.

Quay lại đầu trang

Bước 4: Sử dụng các đối tượng Visio, phương pháp, và thuộc tính

Sau khi hoàn tất các bước 1 đến 3, bạn có thể sử dụng Visio đối tượng biến để tự động hoá Visio.

Sử dụng sau đây vĩ mô mẫu tự động hóa để bắt đầu Visio, tạo ra một bản vẽ mới (tài liệu) dựa trên cơ bản Sơ đồ mẫu, giọt một hình chữ nhật, cho biết thêm một số văn bản và tiết kiệm các bản vẽ và ra khỏi Visio.
Sub AutoVisio()      Dim AppVisio As Visio.Application  ' Declare an Instance of Visio.   Dim docsObj As Visio.Documents     ' Documents collection of instance.   Dim DocObj As Visio.Document       ' Document to work in.   Dim stnObj As Visio.Document       ' Stencil that contains master.   Dim mastObj As Visio.Master        ' Master to drop.   Dim pagsObj As Visio.Pages         ' Pages collection of document.   Dim pagObj As Visio.Page           ' Page to work in.   Dim shpObj As Visio.Shape          ' Instance of master on page.   ' Create an instance of Visio and create a document based on the   ' Basic Diagram template. It doesn't matter if an instance of   ' Visio is already running, CreateObject will run a new one.   Set AppVisio = CreateObject("visio.application")   Set docsObj = AppVisio.Documents   ' Create a document based on the Basic Diagram template that   ' automatically opens the Basic Shapes stencil.   Set DocObj = docsObj.Add("Basic Diagram.vst")   Set pagsObj = AppVisio.ActiveDocument.Pages   ' A new document always has at least one page, whose index in the   ' Pages collection is 1.   Set pagObj = pagsObj.Item(1)   Set stnObj = AppVisio.Documents("Basic Shapes.vss")   Set mastObj = stnObj.Masters("Rectangle")   ' Drop the rectangle in the approximate middle of the page.   ' Coordinates passed with the Drop method are always inches.   Set shpObj = pagObj.Drop(mastObj, 4.25, 5.5)   ' Set the text of the rectangle.   shpObj.Text = "This is some text."   ' Save the drawing and quit Visio. The message pauses the program   ' so you can see the Visio drawing before the instance closes.   DocObj.SaveAs "MyDrawing.vsd"   MsgBox "Drawing finished!", , "AutoVisio (OLE) Example"   ' Quit Visio.   AppVisio.Quit   ' Clear the variable from memory.   Set AppVisio = NothingEnd Sub				
Quay lại đầu trang
THAM KHẢO

Các trang web Microsoft Visio nhà phát triển Web

Để biết thêm chi tiết về làm thế nào để tự động hoá Visio, truy cập vào các Microsoft Web site sau: Để biết thêm về cách phát triển Microsoft Visio các giải pháp, ghé thăm Web site sau của Microsoft:

Bộ dụng cụ phát triển phần mềm Visio

Để tải về Visio 2002 Software Development Kit, truy cập vào các Microsoft Web site sau:
Để tải về Visio 2003 Software Development Kit, hãy truy cập Microsoft Web site sau:

Các nhóm tin

Nhóm tin ngang ngang nhau sau đây có sẵn để giúp bạn tương tác với người dùng khác của Visual Basic cho các ứng dụng:
Microsoft.Public.VB.Ole.Automation
Microsoft.Public.Visio.Developer.VBA

Visual Basic trợ giúp

Để biết thêm về cách sử dụng các CreateObject chức năng, trong Visual Basic Editor, nhấn vào đây Trợ giúp Microsoft Visual Basic trên các Trợ giúp trình đơn, loại chức năng CreateObject trong các Tìm kiếm hộp, và sau đó nhấp vào Tìm kiếm để xem các chủ đề được trả về.

Để biết thêm thông tin về cách sử dụng các GetObject chức năng, trong Visual Basic Editor, nhấn vào đây Trợ giúp Microsoft Visual Basic trên các Trợ giúp trình đơn, loại chức năng getobject trong các Tìm kiếm hộp, và sau đó nhấp vào Tìm kiếm để xem các chủ đề được trả về.

Quay lại đầu trang
VB vba vbe OLE tự động hóa vĩ mô GetObject CreateObject mẫu ví dụ vso2002 vso2003 vso2007

Warning: This article has been translated automatically

Thuộc tính

ID Bài viết: 309603 - Xem lại Lần cuối: 08/27/2011 20:56:00 - Bản sửa đổi: 2.0

  • Microsoft Office Visio Standard 2007
  • Microsoft Office Visio Professional 2007
  • Microsoft Office Visio Professional 2003
  • Microsoft Visio 2002 Standard Edition
  • Microsoft Visio 2002 Professional Edition
  • kbautomation kbprogramming kbvba kbhowto kbmt KB309603 KbMtvi
Phản hồi
clickstreamTracker.init();