Delay Starting Slide Show In Powerpoint
I use pcAnywhere to remotely control another computer running a Powerpoint presentation 24/7. When I disconnect the pcAnywhere, it turns off the Powerpoint presentation as well.
Powerpoint uses macros which uses visual basic.
I want to be able to activate the macro, which will turn on the presentation. I need to have enough time to disconnect the pcAnywhere program. I need a delay of about 15 seconds or so.
Sub StartShow() ' ' Macro recorded 2/19/2007 by DHW '
With ActivePresentation.SlideShowSettings .ShowType = ppShowTypeSpeaker .LoopUntilStopped = msoTrue .ShowWithNarration = msoFalse .ShowWithAnimation = msoTrue .RangeType = ppShowAll .AdvanceMode = ppSlideShowUseSlideTimings .PointerColor.SchemeColor = ppForeground .Run End With SlideShowWindows(Index:=1).View.PointerType = ppSlideShowPointerAlwaysHidden
End Sub
Any ideas?
triumphguy
View Complete Forum Thread with Replies
See Related Forum Messages: Follow the Links Below to View Complete Thread
Starting A Slide Show As The File Opens.. Vba Powerpoint
Im new here and wondering if anyone could help me out. I'm familiar with VBA in excel, but I am using it on PowerPoint for the first time. I wanted to know if it is possible to have a slide show start when the file is opened, so that say a user wouldn't have to go to Slide Show>View Show. any suggestions would be very helpful... thank you
kevin
Is There A Way To Tell When A PowerPoint Slide Show Actually Starts?
I’m using the following code to run a large PP slide show. There is a finite amount of time between when the program gives the command to start and when the show actually starts (2-3 minutes in my case) I would like to play some background music during this time. Is there a variable that I could monitor to determine when the show actually starts? Or maybe some other method of doing slide shows with VB that would give me that capability.
VB Code:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Private Const RPC_E_CALL_REJECTED = &H80010001 Sub RunSlideShow(ByVal S As String) Dim PPT As Object Dim Pres As Object Dim SSW As Object Dim State As Long On Error Resume Next Set PPT = CreateObject("PowerPoint.Application") Set Pres = PPT.Presentations.Open(S, False, False, False) Set SSW = Pres.SlideShowWindow If SSW Is Nothing Then Set SSW = Pres.SlideShowSettings.Run End If State = SSW.View.State Err.Clear Do While (Err.Number = RPC_E_CALL_REJECTED) Or (Err.Number = 0) DoEvents Sleep 1000 State = SSW.View.State Loop Pres.Close PPT.Quit Set Pres = Nothing Set PPT = NothingEnd Sub
Playing A Powerpoint Slide Show. --
Is there a control out there for free which will play powerpoint slide shows? Ideally with the ability to control the show aswell.
This isn't really my area of expertise so I'd be gald if anyone can help me out.
Thanx
PowerPoint Slide Show Capture
Hi, I am trying to capture the forward and backward events of a PowerPoint Slide show.
NOTE: I am using a mouse connected to my computer (Windows 2000) through USB port.
Any suggestion/help is greatly appreciated.
Thanks alot,
-PG
PcAnywhere Turns Off Powerpoint Slide Show Upon Disconnect
My idea didn't work after all. A script was developed that tells
Powerpoint to run a slideshow 15 seconds after it is told to
run. This would allow time to "disconnect" pcAnywhere, with the
hopes that the slideshow would not stop running as well. The
slideshow ends up running, but not in full screen mode.
Something else has to be developed. Such as a script that when
started opens up Powerpoint, then the file, then starts the
slideshow, then makes adjustments in the settings. This must be
possible.
Can anyone come up with a way to do this?
VB6 - Starting A PowerPoint Show From VB
I am using VB6. Is there a way to start a PPS from VB? Or can I use the VBA editor in PP to write the program and have it be the first thing that starts when the PPS begins. I would have a user form that the user would begin the show with.
Any advice?
Thanks
Getting To The Next Slide In PowerPoint
I have seen several instances of code that allows you to advance to the next slide in PowerPoint, but all of these instances require that you be in Slide Show mode. I am looking for a way to advance to the next slide while outside of the slide show so I can then have visual basic delete and modify objects on the next page, which doesn't work if you are viewing the slide show. Any help would be appreciated.
Thanks
Showing A Slide In PowerPoint
Hi,
How do you show a certain of slide in MS PowerPoint using a command button? for example, I created several controls in Slide(5). During Slide Show, If I click on a command button, it shows Slide(10). How do I make it work?
Thanks,
TXK
RichTextBox And Powerpoint-Slide
Hallo and good evening.
I have here a Problem and no solution.
Ok here we go.
I have a Richtextbox and over a Button-Click event the text will copied into a Powerpointslide.
If the Textlength of the Richtextbox is shorter or exactly equal long of the Powerpointshape it works.
But if the Richtext is longer I have a Problem.
How can I programmed it that, if the Text is longer a 2. or x Powerslide will added and the rest of the Text will copy to the 2. or x Powerpointslide.
Thanks in advance and greetings
Powerpoint Slide Transitions In VB
Hello All,
Iam using Powerpoint API thru visual basic for opening a presentation which I have managed it. Can any one tell me how can I make slide transitions through my code? I will have a Browse button, which will open the presentation and Next and Previuos buttons, which will do the slide transitions.
Now how will I manage to make this Next and Previuos buttons to work.
Thnx in advance,
Pres.
Powerpoint Hide Slide
I'm trying to activate/deactive the "Hide Slide" option from within a Powerpoint2000 presentation using an ActiveX checkbox. Just some context: This is a flashcard program that displays all slides in a random order. The program must not show the flashcards that users already know, which they indicate by clicking the checkbox.
I have...
Sub CheckBox1_Click()
' If CheckBox checked then set Hide Slide option Active.
If (CheckBox1.Value = Checked) Then
ActivePresentation.Slides(2).SlideShowTransition.Hidden = msoTrue
ElseIf (CheckBox1.Value = Unchecked) Then
ActivePresentation.Slides(2).SlideShowTransition.Hidden = msoFalse
End If
End Sub
Any thoughts?
Creating New Powerpoint Slide Using Excel?
ok.. Im trying to add a new slide to a presentation that has NO slides (from excel) using:
Code:
Set PPT = GetObject(, "PowerPoint.Application")
PPT.ActivePresentation.Slides.Add(1, ppLayoutTitle).SlideIndex
but it does not reconize ppLayoutTitle (SlideFormat). so I tried:
Code:
Set SlideType = PPT.Presentations.Sliderange.Slides(1).Layout
PPT.ActiveWindow.View.GotoSlide Index:=PPT.ActivePresentation.Slides.Add(Index:=1, Layout:=SlideType.ppLayoutTitle).SlideIndex
but no success. Any ideas??
Thanks, JEff
Trying To Close Powerpoint Pps Slide Programatically
I am trying to find out how to programatically close down Powerpoint programatically ina pps file. I have tried the application.quit command but PPt does not recognise it and goes straight to the <End of Presentation> black screen. I am slightly at a loss at what to do....if anyone can give something to get me started or a lead, it would be greatly appreciative.
Powerpoint Slide Navigation Using Combo Box?
I am not a programmer so I was wondering if there is anyway to code a combo box in Powerpoint so when you select an option in the drop down, it goes to different slides throughout the presentation based on your selection. If there is, does anyone have any sample code for this to get me started?
Or if you know of a site that would point me in the right direction, that would work too. Thanks!
Image To EXISTING Powerpoint Slide
this should be simple and i apologize if i am missing something stupid but i can not get this to work but every example i have looked at is either coded wrong giving me errors or deals with adding a slide then putting an image file on the slide
Dim oPP As PowerPoint.ApplicationClass
Dim oPresSet As PowerPoint.Presentations
Dim oPres As PowerPoint.PresentationClass
oPP = CreateObject("PowerPoint.Application")
oPP.Visible = True
oPresSet = oPP.Presentations
If firstpass = True Then
oPres = oPresSet.Open("c:plantest.ppt", , , True)
Else
oPres = oPresSet.Open("c:plan beta.ppt", , , True)
End If
oPP.ActiveWindow.View.GotoSlide(Index:=layoutvalue(x, 1))
Dim oSlide As PowerPoint.Slide
*** i thought one of the next lines would declare the oslide var to a slide but it is not working*****
'oSlide = opresset.ActivePresentation.Slides(layoutvalue(x, 1))
'oSlide = opresset.slides(1)
**** because i want to use this line to put the image to the slide****
oSlide.Shapes.AddPicture(spic, False, True, 150, 150, 500, 350)
if anyone can point me in the right direction or show me some example code it would be greatly appreciated.. again i apologize if i am doing something stupid.
THANKS!!!
Hyperlinking To A Specific Slide In PowerPoint
I'm starting to wonder if this is actually possible. I'm using a web browser control in my project, and I want to use its Navigate method to navigate to a specific slide within a PowerPoint presentation. I thought I could do this using bookmarks, but PowerPoint doesn't let you insert bookmarks. I've tried making a hyperlink within PowerPoint to another slide, and then copying its notation for the link into my VB project, but I can't get it to work. Does anyone have any ideas on how I could go straight to the right slide? Thanks.
[CLOSED] Powerpoint Slide Inside VB
i have searched and i have not found anything conclussive to help me with what i need to pull off
i know it is doable because the technician pulled it off with vb6 about 6 months ago
this is what i need to do
load a slide show inside the vb window and then exit out in 7 seconds
in FULL screen mode
also there can be no interaction (kiosk mode) no right clicking, no controls shown
what this is being used for is to show advertisment at logon
any help is much appricated, thx
Refresh Slide Display Powerpoint
Hi
I want to have some text (probably in a label) pop-up when I click on an icon in a PowerPoint Presentation. I can change visibility of the Label object but the display doesn't show the change.
How do you get a slide in a PPT presentation to refresh/re-display ??
Thanks for any help.
Richard
VBA And Powerpoint 97 Add Photo To Slide Problem
hi all
been having a little problem i want to insert a photo onto a slide and keep the photos natural proportions, but in pp97 the addpicture function has the width and height attributes as non-optional, which when automated brings in all the photos the same size, which is no good to me as i need to place the photo on the correct background according to its natural dimensions. In pp2000 the attributes are optional and it works perfectly.
I have tried the addOLEoject function this seems very slow and has given problems by not diplaying the photo only an icon....indicating jpeg
A solution to this problem would be great as this is quite urgent
many thanks
martin.
VBA And Powerpoint 97 Add Photo To Slide Problem
hi all
been having a little problem i want to insert a photo onto a slide and keep the photos natural proportions, but in pp97 the addpicture function has the width and height attributes as non-optional, which when automated brings in all the photos the same size, which is no good to me as i need to place the photo on the correct background according to its natural dimensions. In pp2000 the attributes are optional and it works perfectly.
I have tried the addOLEoject function this seems very slow and has given problems by not diplaying the photo only an icon....indicating jpeg
A solution to this problem would be great as this is quite urgent
many thanks
martin.
Listing All The Objects In Powerpoint Slide In VBA
Dear ALL:
Can someone tell me how can i use VBA to list all the items in a powerpoint slide?
I mean, if say in slide 1, i have a few images and a few text box with some animations etc, how can i use VBA to lisr all of them?
TIA
Medical Doctor
CBT/Web CBT Consultant
Network Supporter
Multimedia Developer
VB and VBA Specalist
Company URL: Http://webcbt.ch
Toolbook Developers Network URL: Http://webcbt.ch
Powerpoint - Stop Slide Transition Query
I have disabled the slide transition on mouse click, but when you move the rollerball, the slide moves onto the end of the slide show (a blank screen). Is there anyway of disabling that also with or without vba?
Powerpoint: Removing Shapes On Slide Change
I dynamically add a few shapes to a Slide to simulate a dropdown menu. I ran into a problem deleting the shapes again however.
Because I write shapes they are actually added to the slide and won't disapear anymore. I know how to dynamically delete a shape. That is not a problem. But I want to do this when the user goes to the next slide. I could unfortunatly not find any event that is triggerd upon moving to a next slide. Is this at all possible? Am I simply missing something?
In the ideal situation the user would click on a "menu item" (a shape), which opens up the dropdown menu (a collection of dynamically writen shapes) and when the user clicks anywhere but the dropdown menu all those shapes making up the dropdown menu would be deleted again.
I have no problem detecting my dropdown menu, nor with deleting slides. I am most of all looking for an event or any other possible way to trigger my code when the user clicks to go to the next slide.
Thanks in advance to anybody who can help me!
Export Excel Cells To PowerPoint Slide
I have a list of names and addresses set up in Excel. I need to be able to export a name and address to a text box on a PowerPoint slide that is already created. The PowerPoint slide is a mailing label that will be printed after being merged from Excel. I will be doing a loop to export each of these addresses individually to separate slides (copies of each other). Please help me out on the process of going between Excel and PowerPoint...I'm good on everything else. Any help or pointing me toward help will be appreciated. Thanks.
I Am Using DCOM In VB. Importing Mschart 8 In Powerpoint Slide Using OLE.
I am using DCOM in VB. Importing mschart 8 in powerpoint slide using OLE. It works fine when server is in logged on mode but if server restarts or no body is logged on I got this error.
"Application-defined or object-defined error"
what I understands it fails at some windows 2000 service, but unable to determine which service is this.
For reference the line where it gives me the error is
Set shpGraph = ppslide.Shapes.AddOLEObject(160, 250, 480, , "MSGraph.Chart", , msoFalse, , , , 0).OLEFormat.object
shpGraph.ApplyCustomType 22, "3Lines1Bar"
FndGraph = True
Capture The Time That Has Passed On A Powerpoint Slide
Hi!
I'm creating a Powerpoint presentation where the viewer would have to answer some questions in a textbox and then click on a command button to move on to the next page.
I would like to record how long the person takes before clicking on the 'Next' button. I'm trying to use the SlideElapsedTime Property in my code, and display the timing taken on a label. But the time recorded and displayed is 0 when I click on the button. Wondering if anyone can help me with this.
Thanks!
How To Distinguish Objects In Powerpoint Slide Presentation
i am running a powerpoint presentation through vb.I have inserted some objects such as movie clips,charts,pictures in the slides.What i would like 2 do now is that soon as the first slide runs the prograqm should be able to check the contents of each slide objects i.e if it finds a movie clip or a picture object ,then it should be exported as a JPG extension to a particular folder created by me anf for any other objects such as chart or text boxes it shoud be exported with an GIF extension to the folder created by me.How do i distinguish between the objects in the slide?
Convert PowerPoint Slide To Good Quality Graphics
Hi all,
I am not sure whether I am posting in a right forum. I am looking for a open source/free software/way to convert a powerpoint file to graphics file. There is a way to convert the PPT slides to Image formats by File -> Save As. But the quality is not so good. So, I am looking for alternatives.
Currently my VB applciation opens the PPT and do save as Image. But I am looking for an alternative.
Please suggest me.
Thanks in advance.
Convert PowerPoint Slide To Good Quality Graphics
Hi all,
I am not sure whether I am posting in a right forum. I am looking for a open source/free software/way to convert a powerpoint file to graphics file. There is a way to convert the PPT slides to Image formats by File -> Save As. But the quality is not so good. So, I am looking for alternatives.
Currently my VB applciation opens the PPT and do save as Image. But I am looking for an alternative.
Please suggest me.
Thanks in advance.
I Am Using DCOM In VB. Importing Mschart 8 In Powerpoint Slide Using OLE. It Works Fi
I am using DCOM in VB. Importing mschart 8 in powerpoint slide using OLE. It works fine when server is in logged on mode but if server restarts or no body is logged on I got this error.
"Application-defined or object-defined error"
what I understands it fails at some windows 2000 service, but unable to determine which service is this.
For reference the line where it gives me the error is
Set shpGraph = ppslide.Shapes.AddOLEObject(160, 250, 480, , "MSGraph.Chart", , msoFalse, , , , 0).OLEFormat.object
shpGraph.ApplyCustomType 22, "3Lines1Bar"
FndGraph = True
Visual Basic Clear All Textboxes On A Powerpoint Slide
What do i need change in this code to make it work with a Powerpoint slide. Ive changed "frm As Form" to "sld As Slide7" "For Each ctl In sld", but it does not work!
Public Sub ClearAllText(ByVal frm As Form, ByVal ctl As Control)
For Each ctl In frm
If TypeOf ctl Is TextBox Then
ctl.text = ""
End If
Next
End Sub
Showing Powerpoint Slide Sorter Mode On Form
I need to show Powerpoint in slide sorter mode on a form where the user will be able to touch the slide and it will come up. I tried the slide icon that's provided, but you can't resize it, so that won't work. Any help will be appreciated. Thanks.
A Really Basic Question About Addressing A Textbox On A PowerPoint Slide From A Macro
I am trying to have PowerPoint create several slides that each have am image of a recursive mathematical function. I have written a macro that will create the desired number of slides and draw the image I want, but I can't get the program to put the elements of each cyles into a textbox on each slide. I have put the code of the macro below.
"cycle" is that array that contains the output elements of each cycle and "pts" is the array that has the coordinates of the points on the circle that represent each cycle's elements. I want to put the array "cycle" into a textbox on each page.
Code:
Const modulus = 10
Const mult = 7
Dim cycle(modulus)
Sub creatCycles()
'
' Macro recorded 5/11/2004 by
'
Dim i As Integer
Dim j As Integer
Dim w As Integer
Dim h As Integer
Dim xc As Integer
Dim yc As Integer
Dim u As Integer
'set slide dimensions
With Application.ActivePresentation.PageSetup
.SlideWidth = 8.5 * 72
.SlideHeight = 8.5 * 72
h = 400
w = 400
End With
'set center and unit length
xc = w / 2
yc = h / 2
u = xc
'create new window
For i = 1 To modulus
createNewSlide
Next
'create cycle
For j = 1 To modulus
cycle(1) = j
For i = 2 To modulus
cycle(i) = (mult * cycle(i - 1)) Mod modulus
Next
'create coordinates of cycle's elements on the circle
Dim pts(1 To modulus, 1 To 2) As Single
For i = 1 To modulus
pts(i, 1) = (Cos(6.28 / modulus * cycle(i))) * u + xc
pts(i, 2) = -(Sin(6.28 / modulus * cycle(i))) * u + yc
Next
'draw the cycle
For i = 1 To modulus - 1
Set myDocument = ActivePresentation.Slides(j)
myDocument.Shapes.AddLine pts(i, 1), pts(i, 2), pts(i + 1, 1), pts(i + 1, 2)
Next
pts(modulus, 1) = pts(1, 1)
pts(modulus, 2) = pts(1, 2)
Next
' createTextBox() here and enter the cycle's elements
End Sub
Sub createNewSlide()
'
' Macro recorded 5/12/2004 by
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank).SlideIndex
End Sub
Sub createTextBox()
Dim i As Integer
Dim modulus As Integer
modulus = 10
For i = 1 To modulus
Set myDocument = ActivePresentation.Slides(i)
myDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, _
30, 462, 550, 100).TextFrame.TextRange.text = ""
Next
End Sub
I also want to draw "dots" on the circle where the cycle touches the circle. I hope that's clear.
I'm sure you can tell that I'm not a programer, so please keep the answer simple. All of the code I know I gained from letting the program write a macro and then I modified it. If you can recommend a good text, I would appreciate it.
Thanks,
Vicki
Edited by - vpayne on 6/1/2004 2:41:54 PM
Slide Show
I am having trouble making a simple slide show using a timer. I set my interal at a second and set enabled as false till i hit the command. I saved my pictures under a common name (Bpic in JPEG) on my E drive. I think my code to call the pictures is incorect. Any help would be very appreciated. So far my code is this:
Dim counter As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Picture1.Picture = LoadPicture("e:\" & bpic & ".jpg")
counter = counter = 1
End Sub
Slide Show
What is the best way to display pictures as a slide show? I would like the "Windows Picture And Fax Viewer"-style display with all the basic finctions like e-mail, rotate, save as, etc....
Slide Show
Im teaching myself vb, so im really clueless, but would anyone know how to move a img without making it look like a slide show,, it blurs across the screen.... I tried putting the image in a form and moveing the form, but that still makes the img blur,,,, HELP ME STOP THE BLUR ahhhhhhhhh
-thx EdTHeGreat
VB Slide Show
Guys I'm trying to program a slide show using VB 6.0.
I'm using a picture box to dispaly the images and a timer control to to set the interval of the pictures. I also want a vertical scroll bar to adjust the speed at which pictures are displayed.
I know I should probably is a array to accomplish this. I have 10 pictures I want to use for the sildeshow. My problem is i really dont know where to begin.
Any and all help will be greatly appreciated. I am brand new to programming and need all the help I can get.
Thanks,
"pictures or examples of code would be alot of help"
Slide Show
I was wondering if there is a way to display multiple pictures in a single form. I have 24 pictures that I would like the user to be able to scroll through using the arrow keys on the handheld. I want to try and minimize the amount of work I have to do. Does anyone have an idea on how to do this without placing 24 pictureboxes on the form and changing the focus. Example code would be appreciated since I am very new to VB and eMbedded VB.
Slide Show Or Animation
I am going to integrate a slide show or animation type demonstration in a program that i'm making. The demonstration doesn't have to be smooth animations because it's more of a slide show than a smooth animation.
What is the best way to present this? The following is a list that i've thought up. Please choose the best one or give me your idea for the best way in terms of system resources and whether it's hard to do.
Imagebox control and just update with pics
use mediaplayer control to play AVI
Thanks in advance
Making A Slide Show?
How can you make a slide show with a bunch of pictures without having to refer to the file path? Is there a way you can put the pictures in an array of sum sort?
I have cut and pasted a picture into a Picture box control. But I would like to have a bunch of pictures you can view by just clicking a button. Does anybody have any ideas?
I am using jpg files.
Giving A Time Delay To Close Powerpoint
Hi, its me again, I can´t figure it out (my last post), so I'll Try something else... maybe I could give some time to the user to see the slide content, how can I make it, lets say for 20 secs.?
Any ideas could be very helpful!!!
Focus Problem During Slide Show Run From VB
This's the situation: there's two form, one is used to display ppt slide and one more is interface to control the ppt slide viewing in the other form. there's no problem to run the ppt slide when focus is set to the ppt form(ei by click on the ppt form). but when user click back on the control form, the ppt slide show stop switching its slide. the ppt will play again when user click back to the ppt displaying form. any i dea to make the ppt to continue switching it slide when user click on other form(when the ppt form lose it focus).
Please Help: Slide Show Model Detection In VBA
Hi, folks:
I wrote a Macro in VBA code which will be repeatedly run when the PowerPoint goes to the slide show model. TO do that I used a Do ... While True loop. But when I exit the slide show model, the macro keeps running and will give a run-time error. Is there any way the VBA code can find the PowerPoint has exit the slide show model? Thanks a lot!
Gang
|