VBA Powerpoint: loop through and rename all the slidesBranching Slides in PowerPoint (VBA)Powerpoint VBA Loop not looping through all slidesVBA PowerPoint slide TitleAutomatic slide numbering in PowerPoint using VBAMove (Cut&Paste) Powerpoint Slides with Sections information by VBAHow can I edit a PowerPoint presentation embedded in Excel using Excel VBA and userformPowerpoint VBA Select a Range of SlidesOccasional stop on PowerPoint Chart interactions through Excel VBA“Days Since Last…” VBA PowerPoint Slide UpdateVBA for PPT, I don't get PPT slides to reset, what can I do?

Return the Closest Prime Number

India just shot down a satellite from the ground. At what altitude range is the resulting debris field?

How can I kill an app using Terminal?

How can we prove that any integral in the set of non-elementary integrals cannot be expressed in the form of elementary functions?

Is `x >> pure y` equivalent to `liftM (const y) x`

Is there a good way to store credentials outside of a password manager?

How to check is there any negative term in a large list?

Pre-amplifier input protection

How did Arya survive the stabbing?

What is the opposite of 'gravitas'?

What is the intuitive meaning of having a linear relationship between the logs of two variables?

How to Reset Passwords on Multiple Websites Easily?

How does Loki do this?

Trouble understanding the speech of overseas colleagues

Did Dumbledore lie to Harry about how long he had James Potter's invisibility cloak when he was examining it? If so, why?

Is expanding the research of a group into machine learning as a PhD student risky?

Large drywall patch supports

How to pronounce the slash sign

Method to test if a number is a perfect power?

How long to clear the 'suck zone' of a turbofan after start is initiated?

Are student evaluations of teaching assistants read by others in the faculty?

Proof of work - lottery approach

How can I get through very long and very dry, but also very useful technical documents when learning a new tool?

Inappropriate reference requests from Journal reviewers



VBA Powerpoint: loop through and rename all the slides


Branching Slides in PowerPoint (VBA)Powerpoint VBA Loop not looping through all slidesVBA PowerPoint slide TitleAutomatic slide numbering in PowerPoint using VBAMove (Cut&Paste) Powerpoint Slides with Sections information by VBAHow can I edit a PowerPoint presentation embedded in Excel using Excel VBA and userformPowerpoint VBA Select a Range of SlidesOccasional stop on PowerPoint Chart interactions through Excel VBA“Days Since Last…” VBA PowerPoint Slide UpdateVBA for PPT, I don't get PPT slides to reset, what can I do?













0















I am looking to rename all the slides in several presentations so that I can easily identify them. I will use them to build other presentations and need a way to identify if a slide came from a certain previous presentation.
When I try to cycle through the slides, I get a read-only error when trying to rename the slide. How do I access and set the name? the sub fails when I try to change the 'name' property.
Many thanks!



Sub EverySlideInPresentation1234(oPres As Presentation)
' Performs some operation on every slide in the currently active presentation



Dim oSl As slide

For Each oSl In oPres.Slides


oSl.Name = (("updatePort: " & Now()))

Next oSl


End Sub










share|improve this question




























    0















    I am looking to rename all the slides in several presentations so that I can easily identify them. I will use them to build other presentations and need a way to identify if a slide came from a certain previous presentation.
    When I try to cycle through the slides, I get a read-only error when trying to rename the slide. How do I access and set the name? the sub fails when I try to change the 'name' property.
    Many thanks!



    Sub EverySlideInPresentation1234(oPres As Presentation)
    ' Performs some operation on every slide in the currently active presentation



    Dim oSl As slide

    For Each oSl In oPres.Slides


    oSl.Name = (("updatePort: " & Now()))

    Next oSl


    End Sub










    share|improve this question


























      0












      0








      0








      I am looking to rename all the slides in several presentations so that I can easily identify them. I will use them to build other presentations and need a way to identify if a slide came from a certain previous presentation.
      When I try to cycle through the slides, I get a read-only error when trying to rename the slide. How do I access and set the name? the sub fails when I try to change the 'name' property.
      Many thanks!



      Sub EverySlideInPresentation1234(oPres As Presentation)
      ' Performs some operation on every slide in the currently active presentation



      Dim oSl As slide

      For Each oSl In oPres.Slides


      oSl.Name = (("updatePort: " & Now()))

      Next oSl


      End Sub










      share|improve this question
















      I am looking to rename all the slides in several presentations so that I can easily identify them. I will use them to build other presentations and need a way to identify if a slide came from a certain previous presentation.
      When I try to cycle through the slides, I get a read-only error when trying to rename the slide. How do I access and set the name? the sub fails when I try to change the 'name' property.
      Many thanks!



      Sub EverySlideInPresentation1234(oPres As Presentation)
      ' Performs some operation on every slide in the currently active presentation



      Dim oSl As slide

      For Each oSl In oPres.Slides


      oSl.Name = (("updatePort: " & Now()))

      Next oSl


      End Sub







      powerpoint-vba






      share|improve this question















      share|improve this question













      share|improve this question




      share|improve this question








      edited Mar 7 at 12:56







      Freelancer

















      asked Mar 7 at 10:57









      FreelancerFreelancer

      767




      767






















          1 Answer
          1






          active

          oldest

          votes


















          1














          I was able to repro this. The problem is that Now() returns date + hh:mm:ss AM|PM but there's way less than one second between the time you rename the first slide and the next, so you end up giving ... trying to give ... multiple slides the same name. PowerPoint doesn't allow that.



          Use something like this to make the slide name unique:



          oSl.Name = (("updatePort: " & Now())) & " " & oSl.SlideIndex


          Or use Tags to store the data on the slide itself rather than using the name. Each slide could have a tag with the same value:



          oSl.Tags.Add "UpdateTag", "updatePort: " & Now()


          There's more info about using Tags on a PowerPoint FAQ site that I maintain, here:



          Working with Tags (and a bit about Functions)
          http://www.pptfaq.com/FAQ00815_Working_with_Tags_-and_a_bit_about_Functions-.htm






          share|improve this answer






















            Your Answer






            StackExchange.ifUsing("editor", function ()
            StackExchange.using("externalEditor", function ()
            StackExchange.using("snippets", function ()
            StackExchange.snippets.init();
            );
            );
            , "code-snippets");

            StackExchange.ready(function()
            var channelOptions =
            tags: "".split(" "),
            id: "1"
            ;
            initTagRenderer("".split(" "), "".split(" "), channelOptions);

            StackExchange.using("externalEditor", function()
            // Have to fire editor after snippets, if snippets enabled
            if (StackExchange.settings.snippets.snippetsEnabled)
            StackExchange.using("snippets", function()
            createEditor();
            );

            else
            createEditor();

            );

            function createEditor()
            StackExchange.prepareEditor(
            heartbeatType: 'answer',
            autoActivateHeartbeat: false,
            convertImagesToLinks: true,
            noModals: true,
            showLowRepImageUploadWarning: true,
            reputationToPostImages: 10,
            bindNavPrevention: true,
            postfix: "",
            imageUploader:
            brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
            contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
            allowUrls: true
            ,
            onDemand: true,
            discardSelector: ".discard-answer"
            ,immediatelyShowMarkdownHelp:true
            );



            );













            draft saved

            draft discarded


















            StackExchange.ready(
            function ()
            StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f55042154%2fvba-powerpoint-loop-through-and-rename-all-the-slides%23new-answer', 'question_page');

            );

            Post as a guest















            Required, but never shown

























            1 Answer
            1






            active

            oldest

            votes








            1 Answer
            1






            active

            oldest

            votes









            active

            oldest

            votes






            active

            oldest

            votes









            1














            I was able to repro this. The problem is that Now() returns date + hh:mm:ss AM|PM but there's way less than one second between the time you rename the first slide and the next, so you end up giving ... trying to give ... multiple slides the same name. PowerPoint doesn't allow that.



            Use something like this to make the slide name unique:



            oSl.Name = (("updatePort: " & Now())) & " " & oSl.SlideIndex


            Or use Tags to store the data on the slide itself rather than using the name. Each slide could have a tag with the same value:



            oSl.Tags.Add "UpdateTag", "updatePort: " & Now()


            There's more info about using Tags on a PowerPoint FAQ site that I maintain, here:



            Working with Tags (and a bit about Functions)
            http://www.pptfaq.com/FAQ00815_Working_with_Tags_-and_a_bit_about_Functions-.htm






            share|improve this answer



























              1














              I was able to repro this. The problem is that Now() returns date + hh:mm:ss AM|PM but there's way less than one second between the time you rename the first slide and the next, so you end up giving ... trying to give ... multiple slides the same name. PowerPoint doesn't allow that.



              Use something like this to make the slide name unique:



              oSl.Name = (("updatePort: " & Now())) & " " & oSl.SlideIndex


              Or use Tags to store the data on the slide itself rather than using the name. Each slide could have a tag with the same value:



              oSl.Tags.Add "UpdateTag", "updatePort: " & Now()


              There's more info about using Tags on a PowerPoint FAQ site that I maintain, here:



              Working with Tags (and a bit about Functions)
              http://www.pptfaq.com/FAQ00815_Working_with_Tags_-and_a_bit_about_Functions-.htm






              share|improve this answer

























                1












                1








                1







                I was able to repro this. The problem is that Now() returns date + hh:mm:ss AM|PM but there's way less than one second between the time you rename the first slide and the next, so you end up giving ... trying to give ... multiple slides the same name. PowerPoint doesn't allow that.



                Use something like this to make the slide name unique:



                oSl.Name = (("updatePort: " & Now())) & " " & oSl.SlideIndex


                Or use Tags to store the data on the slide itself rather than using the name. Each slide could have a tag with the same value:



                oSl.Tags.Add "UpdateTag", "updatePort: " & Now()


                There's more info about using Tags on a PowerPoint FAQ site that I maintain, here:



                Working with Tags (and a bit about Functions)
                http://www.pptfaq.com/FAQ00815_Working_with_Tags_-and_a_bit_about_Functions-.htm






                share|improve this answer













                I was able to repro this. The problem is that Now() returns date + hh:mm:ss AM|PM but there's way less than one second between the time you rename the first slide and the next, so you end up giving ... trying to give ... multiple slides the same name. PowerPoint doesn't allow that.



                Use something like this to make the slide name unique:



                oSl.Name = (("updatePort: " & Now())) & " " & oSl.SlideIndex


                Or use Tags to store the data on the slide itself rather than using the name. Each slide could have a tag with the same value:



                oSl.Tags.Add "UpdateTag", "updatePort: " & Now()


                There's more info about using Tags on a PowerPoint FAQ site that I maintain, here:



                Working with Tags (and a bit about Functions)
                http://www.pptfaq.com/FAQ00815_Working_with_Tags_-and_a_bit_about_Functions-.htm







                share|improve this answer












                share|improve this answer



                share|improve this answer










                answered Mar 7 at 16:13









                Steve RindsbergSteve Rindsberg

                10.4k11526




                10.4k11526





























                    draft saved

                    draft discarded
















































                    Thanks for contributing an answer to Stack Overflow!


                    • Please be sure to answer the question. Provide details and share your research!

                    But avoid


                    • Asking for help, clarification, or responding to other answers.

                    • Making statements based on opinion; back them up with references or personal experience.

                    To learn more, see our tips on writing great answers.




                    draft saved


                    draft discarded














                    StackExchange.ready(
                    function ()
                    StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f55042154%2fvba-powerpoint-loop-through-and-rename-all-the-slides%23new-answer', 'question_page');

                    );

                    Post as a guest















                    Required, but never shown





















































                    Required, but never shown














                    Required, but never shown












                    Required, but never shown







                    Required, but never shown

































                    Required, but never shown














                    Required, but never shown












                    Required, but never shown







                    Required, but never shown







                    Popular posts from this blog

                    1928 у кіно

                    Захаров Федір Захарович

                    Ель Греко