Set objBar = objSlide.Shapes.AddShape(msoTextOrientationHorizontal, intBarLeft, _
  intBarTop, varBarWidth, intBarHeight)
                    With objBar
                        With .Fill
                            .Solid
                            .Visible = msoTrue
                            If varTask.Summary Then
                                .ForeColor.RGB = RGB(cnstRedSummaryTask, _
                                  cnstGreenSummaryTask, cnstBlueSummaryTask)
                            ElseIf varTask.Critical Then
                                ' critical task in red
                                .ForeColor.RGB = RGB(cnstRedCriticalTask, _
                                  cnstGreenCriticalTask, cnstBlueCriticalTask)
                            Else
                                .ForeColor.RGB = RGB(cnstRedTask, _
                                  cnstGreenTask, cnstBlueTask)
                            End If
                        End With ' .Fill
                        .Line.Visible = msoFalse
 
                    End With ' objBar

 Set objBar = objSlide.Shapes.AddShape(msoShapeDiamond, intBarLeft - _
   intBarHeight / 2, intBarTop, intBarHeight, intBarHeight)
                With objBar
                    With .Fill
                        .Solid
                        .Visible = msoTrue
                        If varTask.Critical Then
                            ' critical milestone in red
                            .ForeColor.RGB = RGB(cnstRedCriticalTask, _
                              cnstGreenCriticalTask, cnstBlueCriticalTask)
                        Else
                            .ForeColor.RGB = RGB(cnstRedMilestone, _
                              cnstGreenMilestone, cnstBlueMilestone)
                        End If
                    End With ' .Fill
                    .Line.Visible = msoFalse
                End With ' objBar