Powerpoint

[csr6779]

I know this is something very simple, but in powerpoint, how do you make it go from slide to slide automatically. I can get the information to come up automatically on each slide, but not from slide to slide

 

[SkipVought]

Hi,

You can use Slide Show/Rehearse Timing to set the time for each slide and then on Slide Show/Setup Show - select the Option Button Use Timing if present.



Skip,

http://www.TheOfficeExperts.com

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[kchanbs]

Hi,

I'm new to VB so this might be an easy question to answer. I'm trying to create a simple Powerpoint slide with a title and three(3) bullet points. I have included a code snipplet of where I'm having problems.

Set oPPApp = New PowerPoint.Application
Set oPPPresentation = oPPApp.Presentations.Add

Set ppCurrentSlide = oPPPresentation.Slides.Add(1, ppLayoutText)
ppCurrentSlide.Shapes(1).TextFrame.TextRange.Text = "My Slide"
With ppCurrentSlide.Shapes(2).TextFrame.TextRange
.Paragraphs(1).Text = "Text1"
.Paragraphs(2).Text = "Text2"
.Paragraphs(3).Text = "Text3"
End With

With the code above I get:
"My Slide"
*Text1Text2Text3

But what I want is:
My Slide
*Text1
*Text2
*Text3

The (*) represents a bullet point. What am I doing wrong?

Thanks.

 

[SkipVought]

Hi,

    With ppCurrentSlide.Shapes(2).TextFrame.TextRange
        .Paragraphs(1).Text = "Text1" & vbCrLf
        .Paragraphs(2).Text = "Text2" & vbCrLf
        .Paragraphs(3).Text = "Text3" & vbCrLf
    End With

Skip,

http://www.TheOfficeExperts.com

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[kchanbs]

thanks...but what is "vbCrLf"?

 

[SkipVought]

Any time a new paragraph is displayed in a text editor, there is a carriage return and line feed.

Carriage return, moves the insertion point left to the margin.

Line feed moves the insertion point to the next line.



Skip,

http://www.TheOfficeExperts.com

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[kchanbs]

Thanks...

Now I have another question. If I wanted to add a slide that has the ppLayoutTextAndChart with the code that I posted below:

Set ppCurrentSlide = oPPPresentation.Slides.Add(1, ppLayoutTextAndChart)
ppCurrentSlide.Shapes(1).TextFrame.TextRange.Text = "My Slide"
With ppCurrentSlide.Shapes(2).TextFrame.TextRange
.Paragraphs(1).Text = "Text1" & vbCrLf
.Paragraphs(2).Text = "Text2" & vbCrLf
.Paragraphs(3).Text = "Text3" & vbCrLf
End With

How would I go about doing that? I basically want a chart next to the bullet points of Text1, Text2, and Text3.

 

[kchanbs]

Hi All,

When you create a PowerPoint graph through VB PowerPoint creates 3 legends (North, West, East) even if you only want one legend. I'm wondering how I would delete the other two legends using VB. Does anybody have any ideas?

Thanks,

Kenny