Acessing Powerpoint status bar via VBA

[Pranav Vaidya]

Hi,

I am trying to access the Powerpoint statusbar in my VBA code.
I know in Word there is something like Application.StatusBar.

I do not find the same in Powerpoint. I just want to show some message on
the Status bar.

Is this possible? How?

Thanks in advance.
--
Pranav Vaidya
VBA Developer
PN, MH-India
If you think my answer is useful, please rate this post as an ANSWER!!

[Steve Rindsberg]

In article <F2CC57A9-B1CC-4B6E...@microsoft.com>, Pranav Vaidya
wrote:

> Hi,
>
> I am trying to access the Powerpoint statusbar in my VBA code.
> I know in Word there is something like Application.StatusBar.
>
> I do not find the same in Powerpoint. I just want to show some message on
> the Status bar.
>
> Is this possible?

No, afraid not. The status bar isn't exposed as part of the object model.

-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================

[John Wilson]

As Steve says this can't be done. Interestingly the 2007 vba help says its
no longer supported in Word 2007 either but it seems to still work!
--
Amazing PPT Hints, Tips and Tutorials

http://www.PPTAlchemy.co.uk
http://www.technologytrish.co.uk
email john AT technologytrish.co.uk

[Brian Reilly, MVP]

You can fake a Application.StatusBar by using a text box. The
following code works in SlideShow view but does have hardcode textbox
name and it is set to work on Slide 1.

Sub fake_status_bar()
'By Brian Reilly, MVP
'Purpose, to show and then populate a text box and hide it when
finished.
'This works in SlideShow View and is only tested in PPT 2003
Dim lCounter As Long
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'I added a textbox in Edit View but you could also add it when this
code is called
' and then position it
'Text Box was the name PowerPoint assigned it for me.

ActivePresentation.Slides(1).Shapes("Text Box 17").Visible = True
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
With ActivePresentation.Slides(1).Shapes("Text Box
17").TextFrame.TextRange
For lCounter = 1 To 100
'You must use GotoSlide to refresh the screen
SlideShowWindows(1).View.GotoSlide 1
.Text = "Counting to " & lCounter
Next lCounter
End With
ActivePresentation.Slides(1).Shapes("Text Box 17").Visible = False
End Sub

To accomplish this in Edit View you'd probably have to use an API call
using Sleep. Shyam Pillai's web site has a good example of the Sleep
API call. I've modified his code and used it in Edit mode for a
completely different reason.

Brian Reilly, MVP