Thank you but I have used the below VBA Macro, since it avoids the requirement for a wizard and copies a WMF file instead of the bitmap file. All I did was just assign it to a button and then selected the tasks that I wanted to copy. It also finds out the proper start and stop dates on the tasks as selected:
Code:
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/2020#
Set seltasks = ActiveSelection.Tasks
On Error GoTo skipTask:
For Each TC In seltasks
If Not TC Is Nothing Then
If TC.Start < StartDate Then
StartDate = TC.Start
End If
If TC.Finish > EndDate Then
EndDate = TC.Finish + 20
End If
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
Bookmarks