PowerPoint 2007 में कुल स्लाइड सम्मिलित करें


25

क्या पावर पॉइंट प्रस्तुति में कुल मात्रा स्लाइड को फुटनोट में सम्मिलित करना संभव है? मैं एक स्वचालित तरीके की तलाश कर रहा हूं।

बेशक मैं पाद लेख संपादित कर सकता था और इसे मैन्युअल रूप से रख सकता था, लेकिन अगर मैं स्लाइड बढ़ाता / घटाता हूं, तो इसे समायोजित करना आवश्यक होगा। और यह कुछ ऐसा है जिसे हम हमेशा भूल जाते हैं।

माइक्रोसॉफ्ट से मदद मैन्युअल यह करने के लिए बताते हैं। मुझे विश्वास नहीं हो रहा है कि PowerPoint में यह नहीं है ...


1
पावरपॉइंट में "इन्सर्ट> फील्ड" विकल्प उपलब्ध नहीं है? मैं इसे शब्द में कैसे करता था ...
सीमस

हाँ, मैं यही चाह रहा था। मैं 2007 से नया हूं और मुझे यह नहीं मिल रहा है।
बॉब रिवर

हाँ, फ़ील्ड्स पावरपॉइंट में मौजूद नहीं हैं, इसलिए यह काम नहीं करेगा।
बीबीलेक

4
यह कितना परेशान करने वाला है कि हमें अभी भी इस बहुत बुनियादी सुविधा के लिए ऐड-इन की आवश्यकता है? मैं वर्षों के लिए इस मुद्दे को मिला है ...

जवाबों:


2

यदि आप एक विकल्प या कॉन्फ़िगरेशन सेटिंग की तलाश कर रहे हैं जो आपके द्वारा बनाई गई प्रत्येक प्रस्तुति में स्वचालित रूप से जोड़ देगा, तो कोई भी नहीं है। हालाँकि, यदि आप शीर्ष लेख या पाद लेख संपादित करते हैं, तो आप स्वचालित रूप से वहां स्लाइड संख्या जोड़ सकते हैं और उन्हें सभी स्लाइड्स पर प्रदर्शित कर सकते हैं।

http://office.microsoft.com/en-us/powerpoint/HA101181931033.aspx


2
हां, यह लेख है जो मैंने पढ़ा है। मैं मैन्युअल रूप से "10" रखना नहीं चाहता। मैं कुछ इस तरह की तलाश कर रहा हूं <#> का <##> ...
बॉब रिवर्स

1
आह, ठीक है, हाँ, यह केवल तभी काम करेगा जब आप केवल पृष्ठ संख्या चाहते हैं। यदि आप "कुल स्लाइड्स" चाहते हैं तो एक त्वरित समाधान नहीं है। केवल दूसरा उपाय जो मैं सोच सकता हूं वह यह पूरा करने के लिए VBA (Visual Basic for Applications) का उपयोग करना है। मुझे पता है कि काम करेगा, लेकिन थोड़ा जटिल हो सकता है।
BBlake

@Blake तुम सही हो। इसे प्राप्त करने के लिए VBA की आवश्यकता होती है। ऐसा करने के तरीके के विवरण के लिए मेरा जवाब देखें ।
ट्रेडरर

7

यह मूल रूप से pwrpntuser का कोड पूर्ण निष्पादन योग्य मार्गदर्शिका तक विस्तारित है।

स्थूल बनाना

  1. PowerPoint 2007 में और नया सुनिश्चित करें, कि आपने अपनी प्रस्तुति को .pptmएक्सटेंशन के तहत सहेज लिया है (मैक्रो की अनुमति के साथ मानक प्रस्तुति)।

  2. सुनिश्चित करें कि आप वर्णित विधि का उपयोग कर स्लाइड संख्या को शामिल किया है सुनिश्चित करें, इस लेख में 1

  3. " मैक्रो " विंडो 2 खोलें । PowerPoint 2007 और नए में, Viewटैब पर क्लिक करें (अंतिम) और फिर Macroअंतिम टूलबार समूह में बटन पर । ईयरलर संस्करणों में Tools > Macroमेनू से चयन करें ।

  4. अपने मैक्रो (कहना PageCountUpdater) के लिए एक नाम टाइप करें और क्लिक करें Create

  5. के बीच और ( नीचे pwrpntuser के जवाब से) मैक्रो कोड चिपकाएँ । अपने लैंग में समान या सबसे अधिक इंडेंटेड लाइन में बदलें ।Sub PageCountUpdater()End Subvanof

  6. मैक्रो को सहेजें और अनुप्रयोग के लिए Microsoft Visual Basic को बंद करें। PowerPoint में वापस जाएं।

हो गया। सम्मिलित किया जाने वाला कोड (पूर्ण और "गोंद-शब्द" के साथ):

Sub PageCountUpdater()
    Dim s As Slide
    Dim shp As Shape

    For Each s In ActivePresentation.Slides
        s.DisplayMasterShapes = True
        s.HeadersFooters.SlideNumber.Visible = msoTrue

        For Each shp In s.Shapes
            If Left(shp.Name, 12) = "Slide Number" Then
                shp.TextFrame.TextRange.Text = s.SlideNumber & " of " & ActivePresentation.Slides.Count
            End If

        Next
    Next
End Sub

निष्पादित मैक्रो

  1. फिर से " मैक्रो " विंडो खोलें ।

  2. सहेजे गए PageCountUpdaterमैक्रो और हिट का चयन करें Run

आपको इसे प्रत्येक बार मैन्युअल रूप से करना होगा। एक कीबोर्ड शॉर्टकट का सबसे अधिक स्वागत होगा। लेकिन ... वाणिज्यिक प्लगइन खरीदने के अलावा, PowerPoint के शॉर्टकट को बदलने का कोई तरीका नहीं है, जिसके लिए आपको प्रति कंप्यूटर पर 20 रुपये से शुरू होने वाली कीमत का भुगतान करना होगा। विवरण के लिए इस या इस लेख का अंत देखें ।

स्थूल को हटाना

यह मैक्रो केवल तभी चलाया जाता है, जब आपको इसकी आवश्यकता होती है। यह लाइव-मैक्रो नहीं है। यह वास्तविक स्लाइड काउंट के साथ फ़ील्ड को अपडेट करता है और यही है। फ़ील्ड स्वयं एक मानक टेक्स्ट फ़ील्ड है। कोई जादू नहीं। इसका मतलब यह है, कि आप अपनी फ़ाइल को आसानी से परिवर्तित कर सकते हैं .pptxऔर इस मैक्रो को दूर फेंक सकते हैं, एक बार जब आप सुनिश्चित हो जाते हैं कि आपकी प्रस्तुति हो गई है और आप इसमें कोई और स्लाइड नहीं जोड़ेंगे। मैक्रो हटाए जाने के बाद, फ़ील्ड उनके स्थानों पर अछूता रहेगा।

यह सहज है क्योंकि कई उपयोगकर्ता मैक्रोज़ और कई प्रस्तुति स्थानों, मेलों, सम्मेलनों आदि के साथ दस्तावेज़ पसंद नहीं करते हैं, बस आपको .pptmफ़ाइल चलाने नहीं देंगे ।

यह भी अच्छा है, क्योंकि यह मैक्रो सभी स्लाइड्स पर नंबरिंग फ़ील्ड्स को फिर से बनाता है (शीर्षक वाले को छोड़कर - अंत में फुटनोट नंबर 1 देखें), भले ही आप उन्हें मैन्युअल रूप से हटा दें। इसलिए आपको इसे अंतिम बार एक बार चलाना चाहिए, जब आप अंतिम संख्या और स्लाइड के क्रम के बारे में निश्चित हो जाएं, तब आप इसे हटा सकते हैं।

मैक्रो-सक्षम फ़ाइल खोलना

यदि आप .pptmएक्सटेंशन और मैक्रो को अंदर रखने का निर्णय लेते हैं , तो आपके पास यह दस्तावेज़ हमेशा मैक्रोज़ अक्षम के साथ खोला जाएगा और Enable macrosउन्हें सक्षम करने के लिए आपको हर बार (यदि आप डिफ़ॉल्ट सेटिंग्स पर चलते हैं) क्लिक करना होगा।

यदि दस्तावेज़ आपके स्वयं के हैं, तो आप विश्वास करते हैं, कि उनमें कोई दुर्भावनापूर्ण कोड नहीं है और वे सभी एक सुरक्षित स्थान पर संग्रहीत हैं (अर्थात कुछ लौकिक या साझा फ़ोल्डर में नहीं), आप इन फ़ाइलों को हमेशा खोलने के लिए प्रत्येक Office प्रोग्राम सेटिंग्स को बदल सकते हैं मैक्रोज़ सक्षम।

सबसे आसान तरीका PowerPoint में सुरक्षित स्थानों के लिए मैक्रो-सक्षम प्रस्तुतियों के साथ फ़ोल्डर जोड़ना है।

यह करने के लिए:

  1. क्लिक करें Fileटैब, Optionsबटन, Trust Centerखंड और Trust Center Settingsबटन।

  2. पर जाएं Trusted locationsखंड (द्वितीय) और पर क्लिक करें Add new location...बटन।

  3. Pathफ़ील्ड में पेस्ट करें या फ़ोल्डर पथ का चयन करें और वैकल्पिक रूप से जांचें, कि जोड़े गए स्थान में सभी सबफ़ोल्डर्स को भी विश्वसनीय माना जाना चाहिए।

  4. OKसभी खुली हुई खिड़कियों की पुष्टि करने और बंद करने के लिए तीन बार क्लिक करें । अपने मैक्रो-सक्षम दस्तावेज़ को फिर से खोलें।

इस बिंदु से, बस जोड़े गए स्थान से खोले गए सभी दस्तावेजों को किसी भी चेतावनी को प्रदर्शित नहीं करना चाहिए और हमेशा मैक्रोज़ सक्षम के साथ खोला जाना चाहिए। आप इस मामले में इस Office.com समर्थन दस्तावेज़ में बहुत अधिक जानकारी प्राप्त करेंगे ।

फुटनोट

1 PowerPoint के अधिकांश संस्करणों में अर्थ शीर्षक स्लाइड को प्रस्तुति में पहली स्लाइड के रूप में निर्धारित नहीं किया जाता है , लेकिन शीर्षक स्लाइड के रूप में किसी भी स्लाइड को स्टाइल किया जाता है । जब आप नया डालते हैं, तो आप अलग-अलग स्लाइड प्रकार देख सकते हैं। इसका मतलब यह है कि, यदि आपके पास शीर्षक के रूप में कोई स्लाइड स्टाइल नहीं है, तो आपके पास सभी स्लाइड्स में पेज नंबर शामिल होंगे। और इसके विपरीत - यदि आपने प्रस्तुति के अंदर कई शीर्षक स्लाइड का उपयोग किया है , उदाहरण के लिए विभिन्न वर्गों या ब्लॉकों को चिह्नित करने के लिए, तो आप उन सभी को गायब कर देंगे।

2 सभी GUI तत्वों के नाम PowerPoint 2010 के मेरे पोलिश संस्करण से ऑन-द-फ्लाई अनुवाद हैं। PowerPoint के अन्य रिलीज़ या भाषा संस्करणों में वे थोड़े भिन्न हो सकते हैं। तदनुसार समायोजित करें।


5

पहले सुनिश्चित करें कि हर स्लाइड में एक सामान्य स्लिडनंबर है। फिर एक मॉड्यूल जोड़ें, कोड का निम्नलिखित टुकड़ा डालें और F5 (प्रारंभ) दबाएं।

Dim s As Slide
Dim shp As Shape

For Each s In ActivePresentation.Slides
    s.DisplayMasterShapes = True
    s.HeadersFooters.SlideNumber.Visible = msoTrue

    For Each shp In s.Shapes
        If Left(shp.Name, 12) = "Slide Number" Then
            shp.TextFrame.TextRange.Text = s.SlideNumber & " van " & ActivePresentation.Slides.Count
        End If

    Next
Next

3
मॉड्यूल क्या है?
Pez Cuckow

जब आप इस तरह स्लाइड नंबर प्लेसहोल्डर की सामग्री को प्रोग्रामेटिक रूप से बदलते हैं, तो स्लाइड्स को डिलीट / मूव / मूव करते समय स्लाइड नंबर अपने आप अपडेट नहीं होंगे। मुझे लगता है कि इससे समस्याएँ हल होती हैं।
OfficeAddinDev


0

मुझे एक वेब पेज मिला जिसमें कहा गया था कि आपने मास्टर स्लाइड में एक टेक्स्ट बॉक्स में x का <#> डाला और फिर स्लाइड में "स्लाइड नंबर" जोड़ें। मुझे यह संक्षेप में काम करने के लिए मिला, लेकिन फिर जब मैंने इसे स्थानांतरित किया, और फिर से कोशिश की, तो इसने अब पूरी स्लाइड संख्या को एक्स में पॉप्युलेट नहीं किया। लेकिन अधिकांश उपयोगकर्ताओं के लिए यह समाधान संभव हो सकता है।


हां ... और इस वेबपेज का उल्लेख पहले ही किया जा चुका है, एक उत्तर में, आपकी तुलना में 1,5 वर्ष पुराना है
ट्रेडर

0

यहाँ कुछ अलग कोड है जो आपके ## # स्लाइड के साथ पाद लेख को अद्यतन करता है। मैंने कुल की ओर छिपी हुई स्लाइडों को नहीं गिनना चुना। मेरे पास यह कोड स्लाइड 1 पर छिपे हुए एक्शन बटन के माउस पर है।

Dim SlideTotal As Integer
Dim VisibleSlides As Integer
Dim SlideNum As Integer
Dim i As Integer

With ActivePresentation

    SlideTotal = .Slides.Count

    For i = 1 To SlideTotal
        If .Slides(i).SlideShowTransition.Hidden = msoFalse Then
            VisibleSlides = 1 + VisibleSlides
        End If
    Next

    For i = 1 To SlideTotal
        If .Slides(i).SlideShowTransition.Hidden = msoFalse Then
            SlideNum = 1 + SlideNum
            .Slides(i).HeadersFooters.Footer.Visible = msoCTrue
            .Slides(i).HeadersFooters.Footer.Text = "Slide " & SlideNum & " of " & VisibleSlides
        Else
            .Slides(i).HeadersFooters.Footer.Visible = -msoFalse
        End If
    Next

End With

सुपर उपयोगकर्ता में आपका स्वागत है। कृपया सलाह दी जाती है कि आपने एक प्रश्न का उत्तर दिया है जो कई वर्ष पुराना है और एक स्वीकृत उत्तर है। हालांकि ऐसा करने में कुछ भी गलत नहीं है, लेकिन यह संभावना नहीं है कि आपको प्रतिक्रिया मिलेगी।
चार्लीआरबी
हमारी साइट का प्रयोग करके, आप स्वीकार करते हैं कि आपने हमारी Cookie Policy और निजता नीति को पढ़ और समझा लिया है।
Licensed under cc by-sa 3.0 with attribution required.