status bar information when updating Power Point from Excel

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi everybody,
In a VBA routine (in Excel 2000) Power Point slides are updated from Excel
(copy Excel ranges and paste in Power Point. In Excel it´s possible to give
the user information how the routine proceeds with application. statusbar.
I want to have the similar information displayed in the Power Point but i
can´t find something like statusbar in Power Point VBA.
Thanks in advance for any help how the statusbar information could be
displayed in Power Point.
Best Regards
Mats
ESI Update
 
Mats Nilsson said:
Hi everybody,
In a VBA routine (in Excel 2000) Power Point slides are updated from Excel
(copy Excel ranges and paste in Power Point. In Excel it´s possible to give
the user information how the routine proceeds with application. statusbar.
I want to have the similar information displayed in the Power Point but i
can´t find something like statusbar in Power Point VBA.
Thanks in advance for any help how the statusbar information could be
displayed in Power Point.
Click to expand...

Quick version - ask for more details if this doesn't make sense to you:

In PPT2000 and up you can use modeless userforms (it won't work in PPT 97 or in
any Mac version of PPT)

Create a user form.

Put your status text in a label on the form

Show the form modelessly then update the label text from your VBA routine as it
runs.

ex: frmProgress.lblProgressText.Caption = "Slide " & cstr(oSld.SlideIndex)
 
Hi Steve,
Thanks for your answer. i think it can be useful but I have got problems
showing the userform when the Presentation in Power Point is opened.
I use a code like this

"Set PPTApp = CreateObject("PowerPoint.Application")
With PPTApp
.Visible = True
.WindowState = ppWindowMaximized
'Set Pres1 = PPTApp.Presentations.Add
.Presentations.Open
filename:="D:\Minadokument\Officeutveckling\Test4.ppt", ReadOnly:=msoFalse
End With"
Then i have tried
" Load frmStatus
frmStatus.Show"
or
"WithPPTApp
..Load frmStatus
..frmStatus.Show"
End With

I appreciate if you could give me some help how I can get the the userform
loaded and shown in Power Point.
Regards
Mats
 
Mats Nilsson said:
Hi Steve,
Thanks for your answer. i think it can be useful but I have got problems
showing the userform when the Presentation in Power Point is opened.
I use a code like this

"Set PPTApp = CreateObject("PowerPoint.Application")
With PPTApp
.Visible = True
.WindowState = ppWindowMaximized
'Set Pres1 = PPTApp.Presentations.Add
.Presentations.Open
filename:="D:\Minadokument\Officeutveckling\Test4.ppt", ReadOnly:=msoFalse
End With"
Then i have tried
" Load frmStatus
frmStatus.Show"
or
"WithPPTApp
..Load frmStatus
..frmStatus.Show"
End With

I appreciate if you could give me some help how I can get the the userform
loaded and shown in Power Point.
Click to expand...

Hi Mats,

I read over the part about automating PPT *from Excel* too quickly. My mistake
...

One approach might simply be to leave PPT minimized or invisible then use an
Excel form (or Excel's status bar, for that matter).

To load a PPT/VBA form, you'd have to include the form in a PPT add-in and be
certain that the addin's installed (I think you'd be able to automate the
loading and unloading of it from Excel via the PPTApp.Addins object.)
 
Back
Top