رسامي الخرائط حتى الحاجة باور بوينت الحين والآخر. ولكن ، كما غريبا كما قد يبدو في المجتمع المعولم ، developpers مواطنيها لم تعتبر ضرورية للسماح للمستخدم لتحديد لغة لتقديمي بأكمله. اذا كنت يحدث لديها الفرنسية أو النسخة الألمانية من البرنامج ، حسنا ، كنت التصق به ونتمنى لك التوفيق في إعداد الشرائح باللغة الانكليزية : كل شريحة جديدة سوف تطبق بشكل منهجي أو الفرنسية أو الألمانية إلى أي مربع جديد. سواء كنت يدويا تصحيح كل واحد منهم أو التلقائي مصحح سيؤكد الإملائي ، وربما حتى مضغه الامر تماما إذا كان لديك "الصحيح كما كنت اكتب' النشط.
السبيل الوحيد للمضي قدما نحو هذا الماكرو لقد حصلت عليها من (!) بلوق Chocotooth في :
شبه SetLangUS () scount قاتمة ، ي ، ك ، fcount scount = ActivePresentation.Slides.Count scount لي = 1 إلى scount fcount = ActivePresentation.Slides (ي). Shapes.Count fcount 'change all shapes: لك = 1 لتغيير fcount "جميع الأشكال : إذا ActivePresentation.Slides (ي). أشكال (ك). HasTextFrame ثم ActivePresentation.Slides (ي). أشكال (ك). TextFrame _ . TextRange.LanguageID = msoLanguageIDEnglishUS نهاية إذا ك المقبل fcount = ActivePresentation.Slides (ي). NotesPage.Shapes.Count fcount 'change all shapes: لك = 1 لتغيير fcount "جميع الأشكال : إذا ActivePresentation.Slides (ي). NotesPage.Shapes (ك). HasTextFrame ثم ActivePresentation.Slides (ي). NotesPage.Shapes (ك). TextFrame _ . TextRange.LanguageID = msoLanguageIDEnglishUS نهاية إذا ك المقبل ي القادم نهاية الفرعية
ماذا يجب ان تفعل هذا؟ انقر على زر Visual Basic على علامة التبويب "المطور" :
إدراج وحدة نمطية جديدة بالنقر بزر الماوس الأيمن على "VBAProject" في جزء التنقل الأيسر :
هذا يفتح نافذة جديدة. لصق رمز في ذلك. وتنفيذه مع زر "تشغيل" ثا :
وضعت كافة مربعات النص إلى الإنكليزية / الولايات المتحدة. يمكنك حفظ هذا الرمز لاستخدامها لاحقا في ملف مع ملحق السفلى. عزيزتي مايكروسوفت ، إذا كنت يمكن أن توفر حلا أقل مملة من هذا ببساطة من خلال دمج ميزة تبديل اللغة في PowerPoint ، وذلك بفضل العديد مقدما...



