إنشاء العروض التقديمية PowerPoint / keynote مع قابلية الكتاب المقدس؟

Question

في الآونة الأخيرة، لقد خلق العروض التقديمية ل PowerPoint للشركات. لقد كنت في الغالب القيام بذلك في PowerPoint. أساسا يتم إنشاؤه بنفس التصميم، ولكن فقط أرقام مختلفة في الأماكن المحددة، والأرقام المختلفة المستخدمة لتوليد PowerPoint Bar Graph Graph. (في الأساس توجد كائنات الرسم البياني المزعج هذه عند إدراجها، تعطيك خيارا لتغيير التصميم وإدخال الأرقام في بعض جدول بيانات Excel ينبثق).

دعنا نقول أنني أفعل هذا مقابل 100 شركة: أليس هناك طريقة لتحديد جميع القيم المختلفة التي أحتاجها، ولديها PowerPoint تم إنشاؤها بطريقة أو بأخرى؟ يمكنني تقديم قاعدة تصميم، كل ما يحتاجه إلى القيام به هو مجرد الذهاب وتغيير القيم الديناميكية (لا شيء نقطي).

هذا ليس حتى سؤالا بالضرورة ل PowerPoint: إذا كان بإمكاني القيام بذلك مع Keynote (كما هو الحال في الرسوم البيانية، وأتمتة الرسوم البيانية والرسوم البيانية، ووضع الأماكن مع الأرقام والنص الثابت)، ثم يعمل أيضا.

يحرر: ذكرت أنني أعلم أن رسوم الرسوم البيانية / شريط PowerPoint فطيرة يتم إنشاؤها من جداول بيانات XXCEL. هناك حوالي 3 من هؤلاء في العرض التقديمي، إلى جانب القيم المتغيرة الأخرى في المناصب الثابتة، عبر 100 أو نحو ذلك العروض التقديمية. أنا أتطلع إلى البرنامج النصي أو غالبية العملية.

يحرر: استخدام PowerPoint 2007، أو أحدث إصدار من Keynote. من المحتمل أن تكون الطريقة المفضلة للبرمجة النصية مع Keynote Applescript، مع PowerPoint 2007، إما Python / Django أو وحدات الماكرو.

Answer 1

آسف، لقد اتخذ هذا بضعة أيام للعودة إليك، وكان يجب أن يولد مشكلة. إليك طريقة سريعة وفعالة للقيام بما تطلبه.

1. قم بإنشاء PowerPoint تمكين الماكرو.
2. قم بإنشاء مخطط فطيرة واحدة على الشريحة الأولى عبر أمر "الرسم البياني" في الشريط. سوف تفتح Excel. في الأعمدة، على محور أفقي (فئة) إجازة كما هي (أي QTR 1st، 2nd QRT، إلخ). على ال مقالات أسطورة (سلسلة) المحور, ، قم بتوسيع عدد قليل من الأعمدة وإضافة المزيد من البيانات. ضمان أسماء الأعمدة فريدة من نوعها.
3. إغلاق Excel.
4. اضغط ALT + F11 للذهاب إلى VBE.
5. انسخ / لصق التعليمات البرمجية أدناه في وحدة نمطية جديدة، وتغيير المتغيرات التالية: chartTemplatePath وإذا لزم الأمر، sc.Name, إلى شيء آخر من اختيارك.
6. انقر فوق F5 في الروتين الفرعي لتشغيله. يجب أن يكون لديك الآن العديد من الرسوم البيانية تنزلق كأعمدة.

.

Sub CreateChartDecksandSave()
    Dim chartTemplatePath As String
    chartTemplatePath = "C:\Temp\"

    Dim myPPT As Presentation
    Set myPPT = ActivePresentation

    Dim mainChart As Chart
    Set mainChart = myPPT.Slides(1).Shapes(1).Chart

    Dim scCount As Integer
    scCount = mainChart.SeriesCollection.Count

    Dim sc As Series

    For i = 1 To scCount
        Set sc = mainChart.SeriesCollection(1)
        myPPT.SaveCopyAs (chartTemplatePath & sc.Name & ".pptx")
        sc.Delete
    Next
End Sub

إذا كنت تعمل مع هذا، تختفي بيانات المخطط من PPT الرئيسية، فلا بأس بذلك، فما عليك سوى اختيار المخطط، انتقل إلى أدوات الرسم البياني | تصميم | حدد البيانات وإعادة تشغيل البيانات الخاصة بك مجموعة كجدول بأكمله.