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