Problem in selecting a slide

  • Thread starter Thread starter black_sun
  • Start date Start date
B

black_sun

Hi to all,
I have a problem which is very strange.I have a file composed by 1
slide.
This slide is copied in the same presentation and then I fill with
data.

This part of code I used lots times but now it dooesn't work anymore.

Set ppApp = New PowerPoint.Application
ppApp.Visible = True

numSlide = 1

FileCopy "C:\2007\Base.ppt", "Nuovo.ppt"
Set ppPres = ppApp.Presentations.Open("Nuovo.ppt")
Set ppSlideBase = ppPres.Slides(1)

intRigaDatasheet = 2
intIndiceColorePartenza = 1

ppSlideBase.Copy
ppPres.Slides.Paste
numSlide = numSlide + 1

Set ppSlide = ppPres.Slides(numSlide)

ppSlide.Select

ppSlide.Shapes("Group 27").Select <---- Here it fails.... I noticed
that it doesn't select the second slide


Can have any idea???


Thanks in advance
Denis
 
Hi to all,
I have a problem which is very strange.I have a file composed by 1
slide.
This slide is copied in the same presentation and then I fill with
data.

This part of code I used lots times but now it dooesn't work anymore.
Click to expand...

What has changed since it worked?


Set ppApp = New PowerPoint.Application
ppApp.Visible = True

numSlide = 1

FileCopy "C:\2007\Base.ppt", "Nuovo.ppt"
Set ppPres = ppApp.Presentations.Open("Nuovo.ppt")
Set ppSlideBase = ppPres.Slides(1)

intRigaDatasheet = 2
intIndiceColorePartenza = 1

ppSlideBase.Copy
ppPres.Slides.Paste
numSlide = numSlide + 1

Set ppSlide = ppPres.Slides(numSlide)
Click to expand...

This step is unnecessary:
ppSlide.Select
Click to expand...
ppSlide.Shapes("Group 27").Select <---- Here it fails.... I noticed
that it doesn't select the second slide
Click to expand...

If you stop the code just before this line and look at the second slide, IS
there actually a shape named Group 27 there?
 
Hi,
sorry for my delay in answering....

I added a textFrame... and it was the reason... I deleted and it works
again!
It's a very strange reason!

Why?

Bye Denis


Steve Rindsberg ha scritto:
 
Back
Top