Ggtcf

Word for a person who has no opinion about whether god exists

Running a subshell from the middle of the current command

US to Europe trip with Montreal layover - is 52 minutes enough?

Do Bugbears' arms literally get longer when it's their turn?

What is the difference between "shut" and "close"?

Can the druid cantrip Thorn Whip really defeat a water weird this easily?

"One can do his homework in the library"

Is having access to past exams cheating and, if yes, could it be proven just by a good grade?

Do I need to leave some extra space available on the disk which my database log files reside, for log backup operations to successfully occur?

Best mythical creature to use as livestock?

When two POV characters meet

It's a yearly task, alright

validation vs test vs training accuracy, which one to compare for claiming overfit?

If Invisibility ends because the original caster casts a non-concentration spell, does Invisibility also end on other targets of the original casting?

What is the dot in “1.2.4."

Best approach to update all entries in a list that is paginated?

How does Dispel Magic work against Stoneskin?

My story is written in English, but is set in my home country. What language should I use for the dialogue?

Is "history" a male-biased word ("his+story")?

Unreachable code, but reachable with exception

Sword in the Stone story where the sword was held in place by electromagnets

Playing ONE triplet (not three)

Life insurance that covers only simultaneous/dual deaths

Is it illegal in Germany to take sick leave if you caused your own illness with food?

VBA Powerpoint: loop through and rename all the slides

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

powerpoint-vba

share|improve this question

edited Mar 7 at 12:56

Freelancer

asked Mar 7 at 10:57

FreelancerFreelancer

767

add a comment | 

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

powerpoint-vba

share|improve this question

edited Mar 7 at 12:56

Freelancer

asked Mar 7 at 10:57

FreelancerFreelancer

767

add a comment | 

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

edited Mar 7 at 12:56

Freelancer

asked Mar 7 at 10:57

FreelancerFreelancer

767

Dim oSl As slide

For Each oSl In oPres.Slides


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

Next oSl

share|improve this question

edited Mar 7 at 12:56

Freelancer

asked Mar 7 at 10:57

FreelancerFreelancer

767

share|improve this question

edited Mar 7 at 12:56

Freelancer

asked Mar 7 at 10:57

FreelancerFreelancer

767

asked Mar 7 at 10:57

FreelancerFreelancer

767

asked Mar 7 at 10:57

FreelancerFreelancer

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

answered Mar 7 at 16:13

Steve RindsbergSteve Rindsberg

10.3k11526

add a comment | 

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

Sign up or log in

StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

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

Name

Email

Required, but never shown

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

answered Mar 7 at 16:13

Steve RindsbergSteve Rindsberg

10.3k11526

add a comment | 

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

answered Mar 7 at 16:13

Steve RindsbergSteve Rindsberg

10.3k11526

add a comment | 

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

answered Mar 7 at 16:13

Steve RindsbergSteve Rindsberg

10.3k11526

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

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

share|improve this answer

answered Mar 7 at 16:13

Steve RindsbergSteve Rindsberg

10.3k11526

answered Mar 7 at 16:13

Steve RindsbergSteve Rindsberg

10.3k11526

answered Mar 7 at 16:13

Steve RindsbergSteve Rindsberg

10.3k11526