project should allow export of schedule gantt as a powerpoint sli.

[Ted]

 

[Mike Glen]

Hi Ted,

Welcome to this Microsoft Project newsgroup

Please see FAQ Item: 16. Project Viewer.

FAQs, companion products and other useful Project information can be seen at
this web address: http://www.mvps.org/project/

Hope this helps - please let us know how you get on

Mike Glen
Project MVP

 

[SpaceCamel]

You would think so wouldn't you?!
Another big black mark.

I wrote a macro to do it. May need tweeking for your use. Give it a try.

'======================================
Sub Copy2PP()
'---------------------------
' By RNM
' 3-Aug-2004
'------------------------------------------
Dim objPPT As New PowerPoint.Application

'---------------------------------------------
Set myProj = ActiveProject
Set ts = myProj.Tasks
TaskCnt = ts.Count
SelectAll
For Each t In ActiveSelection.Tasks
Scnt = Scnt + 1
Next t
TaskCnt = Scnt
' should be view count NOT task count
ProjectTitle = myProj.Title
'-------------------------------------
LPP = InputBox("Task Line per Page:", , 40)
If LPP = "" Then LPP = 40
LPP = CInt(LPP) - 1
TopLine = 1
pagecnt = 0

objPPT.Activate
objPPT.Presentations.Add WithWindow:=msoTrue

Do Until TopLine > TaskCnt
pagecnt = pagecnt + 1
SelectRow Row:=TopLine, Height:=LPP, rowrelative:=False
EditCopyPicture Object:=False, forPrinter:=0, SelectedRows:=1,
ScaleOption:=pjCopyPictureShowOptions


With objPPT.ActivePresentation.Slides
SlideNo = .Count + 1
.Add Index:=SlideNo, Layout:=ppLayoutTitleOnly
End With

'-=-- Paste schedule into slide ---
With objPPT.ActivePresentation.Slides(SlideNo)
.Shapes.PasteSpecial DataType:=ppPasteEnhancedMetafile
.Shapes(2).Left = 30
.Shapes(2).Top = 50
.Shapes(2).Width = 650
.Shapes.Title.TextFrame.TextRange.text = ProjectTitle
.Shapes.Title.TextFrame.TextRange.Font.Size = 18
.Shapes.Title.Left = 30
.Shapes.Title.Top = 10
.Shapes.Title.Width = 650
.Shapes.Title.Height = 50
End With

TopLine = TopLine + LPP + 1
Loop
MsgBox "Copy Complete"

End Sub
'====================================

 

[JulieS]

Hi Ted,
Project 2003 has a copy Picture to Office Wizard which does precisely that.
The button is on the Analysis toolbar. Sadly Prj 2003 was the first release
to do that.

Hope this helps.

Julie