VBA Powerpoint 1

[bbyboo1323]

I need to prompt the user with an inputbox to enter information for a slide.
ex:
prompt to enter a tite for a slide (placing it in the first shape) then to inter source of their presentation (placing that in the 2nd shape), then add code to prompt the user for the # of slides they want to add (using a for..Next loop), then the user inputs their name to be placed on the final slide.
Could someone Please help with this and my access question if possible. I am really new to VB and I am not getting it as quickly as I should.

 

[SkipVought]

Hi,

    Dim answer As Variant
    answer = InputBox("Enter Slide Title")
    If answer = "" Then
        'what to do if canceled
    Else
        'what to do with answer
    End If

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[bbyboo1323]

That works! thanks..now when i insert the data that was entered i have to format it..where would i insert the format statement?

 

[SkipVought]

If you want to format the Excel Object then...

With pptxlSheet.pptxlRange
   With .Font
      .Name = "Arial"
      .Size = 12
   End With
   .Interior.ColorIndex = 22
'etc
End with

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[bbyboo1323]

how do i add the date to the footer ?

 

[bbyboo1323]

ok forget the date..i got that

i need to prompt for a number of slides to add.
i have the code for the input box ,etc but how would i write how many slides in add

 

[SkipVought]

You would have to do the add in a loop.

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com