أنت غير متصل حاليًا، وفي انتظار الإنترنت الخاص بك ليقوم بإعادة الاتصال

كيفية استخدام "التنفيذ التلقائي لـ OLE" في Visio

انتهاء دعم Office 2003

لقد أنهت شركة Microsoft دعم Office 2003 في 8 أبريل، 2014. وقد أثر هذا التغيير على تحديثات البرامج لديك وخيارات الأمان الخاصة بك. تعرف على ما يعنيه ذلك فيما يتعلق بك وكيفية الحفاظ على حمايتك.

هام: تمت ترجمة هذا المقال باستخدام برنامج ترجمة آلية لشركة مايكروسوفت بدلاً من الاستعانة بمترجم بشري. تقدم شركة مايكروسوفت كلاً من المقالات المترجمة بواسطة المترجمين البشر والمقالات المترجمة آليًا وبالتالي ستتمكن من الوصول إلى كل المقالات الموجودة في قاعدة المعرفة الخاصة بنا وباللغة الخاصة بك. بالرغم من ذلك، فإن المقالة المترجمة آليًا لا تكون دقيقة دائمًا وقد تحتوي على أخطاء إملائية أو لغوية أو نحوية، مثل تلك الأخطاء الصادرة عن متحدث أجنبي عندما يتحدث بلغتك. لا تتحمل شركة مايكروسوفت مسئولية عدم الدقة أو الأخطاء أو الضرر الناتج عن أية أخطاء في ترجمة المحتوى أو استخدامه من قبل عملائنا. تعمل شركة مايكروسوفت باستمرار على ترقية برنامج الترجمة الآلية

309603
مقدمة حول
تحتوي هذه المقالة على معلومات حول كيفية استخدام Microsoft Visual Basic أو Microsoft Visual Basic for Applications (VBA) لأتمتة Microsoft Office Visio2from برنامج Microsoft Office.

تقدم Microsoft الأمثلة البرمجية فقط دون أي ضمان التعبير عن أو ضمنية. هذا يتضمن ولكن لم يقتصر على الضمانات الضمنية الخاصة بالتجارة أو الملاءمة لغرض معين. تفترض هذه المقالة تكون مألوفة مع لغة البرمجة التي يتم شرحها مع الأدوات التي يتم استخدامها لإنشاء لتصحيح الإجراءات. يمكن لمهندسي الدعم لدى Microsoft شرح وظيفة إجراء محدد ولكن لن يقوموا بتعديل هذه الأمثلة لتقديم وظيفة إضافية أو إنشاء إجراءات تستوفي متطلبات محددة. back to the top

نظرة عامة حول التنفيذ التلقائي

التنفيذ التلقائي (تسمى أيضاً أتمتة OLE) في Visual Basic هو عملية التحكم في برنامج واحد من آخر البرنامج أو الأداة التطوير الخارجية. يمكن أتمتة أي برنامج يحتوي على Visual Basic طراز الكائن. هو طراز كائن مجموعة هرمية من الكائنات المتوفرة للبرنامج أو كشف Visual Basic.

على سبيل المثال، يتضمن نموذج الكائن لـ Microsoft Visio الكائنات مثل:
  • كائن التطبيق/العمومي
  • كائن المستند
  • كائن صفحة
  • كائن الرئيسية
  • كائن التحديد
  • كائن الشكل
  • إطار الكائن
لدى كل من هذه الكائنات مجموعة فريدة من أساليب وخصائص المطلوبة العمل معها في Visual Basic. على سبيل المثال، يمكن أن يمثل كائن شكل أي كائن على صفحة رسم Visio يمكنك تحديد باستخدام المؤشر. لذلك، يمكن أن يكون كائن شكل شكل أو مجموعة خط إرشاد أو عنصر تحكم أو كائن من برنامج آخر تم ربط مضمن أو استيرادها إلى رسم Visio.

back to the top

الشروع في العمل

نماذج التعليمات البرمجية في هذه المقالة شرح كيفية التحكم في Visio من Microsoft Office 2007 أو Microsoft Office 2003 Microsoft Office 2002 أو Microsoft Visual Basic 6.0 أو من أي برنامج يتضمن أداة تطوير Visual Basic. لجعل Visio اتبع الخطوات التالية الرئيسي الأربعة:
  1. إضافة مرجع إلى مكتبة نوع Visio.
  2. تعريف متغير كنوع كائن Visio (عادةً Visio.Application أو Visio.Documents).
  3. تعيين أسلوب GetObject أو CreateObject متغير الكائن الذي تم تعريفها في الخطوة 2.
  4. استخدام خصائص وأساليب الكائنات التابعة كائن Visio لأتمتة Visio.
back to the top

خطوة 1: إضافة مرجع إلى مكتبة نوع Visio

لإضافة مرجع إلى مكتبة نوع Visio باستخدام تطبيقات Microsoft Office مثل Microsoft Office XP أو Office 2003 اتبع الخطوات التالية:
  1. في Access أو PowerPoint ، Excel أو Word ، أشر إلى ماكرو ضمن القائمة أدوات ثم انقر فوق محرر Visual Basic.
  2. من القائمة أدوات ، انقر "مراجع".

    ملاحظة لإضافة المرجع باستخدام Microsoft Visual Basic 6.0 انقر "مراجع" في القائمة المشروع.
  3. في قائمة المراجع المتاحة, انقر لتحديد إحدى خانات الاختيار التالية وفقًا لإصدار Visio الذي تستخدمه:
    • بالنسبة لبرنامج Visio 2007، انقر فوق خانة الاختيار Microsoft Visio 12.0 Type Library.
    • بالنسبة لبرنامج Visio 2003، انقر فوق خانة الاختيار Microsoft Visio 11.0 Type Library.
    • لبرنامج Visio 2002 ، انقر لتحديد خانة الاختيار Microsoft Visio 2002 Type Library.
عند إضافة مرجع Microsoft Visio Type Library البرنامج الوصول "تعليمات Microsoft Visio إنترنت" طراز كائن Visio. لأنه يتم حفظ المراجع في كل مشروع ، يجب إضافة مرجع Visio Type Library لكل مشروع Visual Basic أو VBA التي تريد استخدامها لأتمتة Visio.

back to the top

خطوة 2: تعريف متغير كائن

إلى إعلان متغيّر بعد متغير ، كائن Visio كـ نوع كائن Visio محدد, مثل Visio.Application Visio.Documents أو Visio.Page.

بشكل صريح للتصريح يسمى نوع الكائن الربط المبكر لأنه يتصل تطبيق جهاز التحكم أو بربط الكائن إلى تطبيق Visio في وقت التحويل البرمجي بدلاً من أثناء وقت التشغيل. هذا يوفر لك الوصول إلى تعليمات تحسس السياق والقوائم تلقائي Visio ويسمح التعليمات البرمجية لتشغيل بشكل أكثر كفاءة.

لمزيد من المعلومات حول ربط الكائن انقر فوق رقم المقالة التالي لعرضها في "قاعدة المعارف لـ Microsoft:
138138وقت متأخر, المعرف "ربط حديث" أنواع ممكنة في VB عن التطبيقات
التصريح الوسيطة نموذج التالية على Visual Basic متغيّر AppVisio ككائن من نوع Visio.Application:

   Dim AppVisio as Visio.Application				
back to the top

الخطوة 3: تعيين المتغير

يمكنك استخدام الأساليب Visual Basic جهازي التالية لتنشيط Visio:
  • CreateObject
  • GetObject
الفرق الأساسي هو أسلوب CreateObject إنشاء مثيل جديد لـ Visio ثم يستخدم الأسلوب GetObject مثيل قيد تشغيل مسبقاً من Visio. يمكنك أيضاً استخدام GetObject لتعيين متغير الكائن إلى مستند Visio معين.

تعيين الوسيطة نموذج التالية متغير AppVisio إلى تطبيق Visio باستخدام CreateObject في الدالة:
   Dim AppVisio as Visio.Application   Set AppVisio = CreateObject("Visio.Application")				
في بعض الحالات، قد تحتاج إلى استخدام بمثيل Visio موجود إذا كان Visio يكون بالفعل قيد التشغيل ولكن إنشاء مثيل جديد إذا لم يتم تشغيل Visio. للقيام بذلك، قم بإنشاء معالج خطأ يستخدم الأسلوب CreateObject في الحدث الذي فشل الأسلوب GetObject كما هو موضح في هذا نموذج التعليمة البرمجية:
   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				
مثيل ملاحظة يمكنك أيضاً استخدام دالة CreateObject لإنشاء Visio وهو غير مرئية. على سبيل المثال:
Set AppVisio = CreateObject("Visio.InvisibleApp")				
ثم يمكنك استخدام الكائن تطبيق الخاصية مرئي إلى عنصر التحكم ما إذا كان المثيل مرئية.

يمكن استخدام كائن InvisibleApp مع دالة CreateObject. يحاول استخدام مع GetObject ستفشل الدالة. كائن InvisibleApp غير متوفر في إصدارات Visio أقدم من Microsoft Visio 2000.

back to the top

الخطوة 4: استخدام كائنات Visio أساليب و خصائص

بعد إكمال الخطوات من 1 إلى 3 يمكنك استخدام Visio متغير الكائن لأتمتة Visio.

نموذج الماكرو التالي يستخدم التنفيذ التلقائي تشغيل Visio إنشاء رسم جديد (مستند) يستند إلى قالب "رسم تخطيطي أساسي" ، يسقط مستطيل ، يضيف بعض النص بحفظ الرسم و إنهاء 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				
back to the top
مراجع

مواقع ويب المطور Visio Microsoft

للحصول على مزيد من المعلومات حول كيفية أتمتة Visio قم بزيارة موقع Microsoft التالي على الويب: للحصول على مزيد من المعلومات حول كيفية تطوير Microsoft Visio الحلول، قم بزيارة موقع Microsoft التالي على الويب:

مجموعة أدوات تطوير البرامج Visio

لتحميل أدوات تطوير برامج 2002 Visio قم بزيارة موقع Microsoft التالي على الويب:
لتحميل أدوات تطوير برامج 2003 Visio قم بزيارة موقع Microsoft التالي على الويب:

مجموعات الأخبار

تتوفر مجموعة الأخبار نظير - إلى - نظير التالية لمساعدتك في التعامل مع مستخدمين آخرين من Visual Basic for Applications:
microsoft.public.vb.ole.automation
microsoft.public.visio.developer.vba

تعليمات Visual Basic

للحصول على مزيد من المعلومات حول كيفية استخدام دالة CreateObject في محرر Visual Basic، انقر فوق "تعليمات Microsoft Visual Basic" من القائمة تعليمات ، اكتب دالة createobject في مربع البحث ثم انقر فوق البحث لعرض المواضيع التي تم إرجاعها.

للحصول على مزيد من المعلومات حول كيفية استخدام دالة GetObject في محرر Visual Basic، انقر فوق "تعليمات Microsoft Visual Basic" من القائمة تعليمات ، اكتب دالة getobject في مربع البحث ثم انقر فوق البحث لعرض المواضيع التي تم إرجاعها.

back to the top
نموذج VB vba vbe OLE التنفيذ التلقائي الماكرو GetObject CreateObject vso2007 vso2003 vso2002 المثال

تحذير: تمت ترجمة هذا المقال تلقائياً

خصائص

رقم الموضوع: 309603 - آخر مراجعة: 04/11/2007 23:33:40 - المراجعة: 4.1

  • Microsoft Office Visio Standard 2007
  • Microsoft Office Visio Professional 2007
  • Microsoft Office Visio Standard 2003
  • Microsoft Office Visio Professional 2003
  • Microsoft Visio 2002 Standard Edition
  • Microsoft Visio 2002 Professional Edition
  • kbmt kbautomation kbprogramming kbvba kbhowto KB309603 KbMtar
تعليقات