exporting to powerpoint

T

Tom Wilkason

How do you export project's gantt chart to powerpoint?
Thanks
Tom
You can use the vba macro below, just attach it to a button and the selected
tasks will be copied to the clipboard with the visual dates adjusted
appropriatly.

''
' Copy the selected tasks to the clipboard as a graphic but
' Only use the dates that the tasks are within
''
Sub CopyTasks()
Dim tc As Task
Dim SelTasks As Tasks
Dim startDate As Date
Dim endDate As Date
endDate = #1/1/1980#
startDate = #12/31/2010#

Set SelTasks = ActiveSelection.Tasks
On Error GoTo skipTask:
For Each tc In SelTasks
If tc.Start < startDate Then
startDate = tc.Start
End If
If tc.Finish > endDate Then
endDate = tc.Finish
End If
skipTask:
Next tc
' Adjust back one week
startDate = DateAdd("ww", -1, startDate)
EditCopyPicture Object:=False, ForPrinter:=0, SelectedRows:=1,
FromDate:=startDate, ToDate:=endDate, ScaleOption:=pjCopyPictureShowOptions
End Sub

Tom Wilkason
 
J

John

Thomas,
An alternate method to the Project Viewer options is to use the "copy
picture" (camera icon) to copy and paste graphic information from
Project to PowerPoint. You will have to play with it to get the best
results but it does work for most purposes.

Hope this helps.
John
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top